Insérer des images dans des feuilles

Si vous souhaitez ajouter une image à une table, assurez-vous que l’image existe réellement sur votre disque dur, puis démarrez la macro .

Sub CopierImageDansFeuilleDupliquer ()

Dim Pic As Picture

On Error GoTo err

Set Pic = ActiveSheet.Pictures.Insert ("‪C:\Users\JOSUE-PC\Downloads\5-8-ecole.jpg ")

Pic.Select

Pic.CopyPicture xlScreen

ActiveSheet.Paste

Exit Sub

error:

MsgBox " L'image n'a pas pu être trouvée!"

End Sub

Utilisez l’instruction ActiveSheet.Pictures.Insert pour insérer une image dans votre tableau. Marquez ensuite l’image insérée à l’aide de la méthode Select. Utilisez la méthode CopyPicture pour copier l’image et spécifier la constante xlScreen. Cela copiera l’image afin qu’il correspond le plus possible à sa représentation à l’écran. Collez ensuite l’image copiée à l’aide de la méthode Paste.

figure:Insérer et dupliquer l’image

Sub InsererUnGraphiqueDansFeuille ()

Dim Picture As Picture

Dim s As String

s = Application.GetOpenFilename _

(" Bilder(*.Jpg; *.Bmp; *.Gif),*.jpg, *.bmp, *.gif")

Range("A1").Value = s

Range("A2").Select

On Error GoTo abbruch

If s = "Falsch" Then

 Range("a1").Clear

 Else

 Set Picture = ActiveSheet.Pictures.Insert(s)

 Picture.ShapeRange.Height = 220

 Range("a1").Select

End If

abbruch:

End Sub

Dans l’exemple suivant, une image est insérée à l’aide de la méthode GetOpenFileName.

Tableau: Insérer une image avec une étiquette

Utilisez la méthode GetOpenFilename. Il affiche la boîte de dialogue OPEN standard, mais sans ouvrir aucun fichier. Vous pouvez déterminer vous-même la sélection des fichiers à afficher. L’étape suivante consiste à vérifier si le nom du fichier graphique a également été écrit dans la cellule A1. Si tel est le cas, le fichier graphique est inséré à l’aide de la méthode Insert. Vous pouvez ensuite ajuster la hauteur du fichier image inséré à l’aide de la propriété Height de l’objet de collection ShapeRange.