Comment insérer des images dans Excel à l'aide d'une macro

Les macros dans Excel peuvent exécuter des fonctions telles que l' insertion d'images, la copie de données d'une cellule à une autre, etc. Afin d'écrire une macro efficace pour insérer des images dans Excel, vous devrez utiliser une boucle.

Cette FAQ vous expliquera les étapes à suivre pour appliquer cette macro à votre feuille de calcul afin d’afficher des images.

Utiliser une macro pour insérer des images dans Excel

Pour utiliser une macro pour insérer des images, vous devez commencer par les hypothèses suivantes: les noms des images se trouvent dans la colonne B à partir de B2; vous voulez coller chaque image à un endroit différent; où coller la photo identifiée dans la colonne B se trouve dans la colonne C à partir de C2.

Maintenant, entrez le code suivant:

 Sous-image ()
Dim picname As String
Dim pasteAt As Integer
Dim lThisRow As Long
lThisRow = 2
Do While (Cells (lThisRow, 2) "")
"Plage (" A6 "). Sélectionnez" C'est ici que l'image sera insérée
pasteAt = Cells (lThisRow, 3)
Cellules (pasteAt, 1) .Select 'C'est ici que l'image sera insérée
'Dim picname As String
'picname = Range ("B6")' Ceci est le nom de l'image
picname = Cells (lThisRow, 2) 'Ceci est le nom de l'image
ActiveSheet.Pictures.Insert ("C: \ Utilisateurs \ vbayat \ Mes documents \ vidabayat \ re-commercialiser \" & picname & ".jpg"). Sélectionnez "Chemin d'accès où sont stockées les images.
« » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » '' '' '
'Ceci redimensionne l'image
« » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » « » '' '' '
Avec sélection
'.Left = Range ("A6"). Gauche
'.Top = Plage ("A6"). Haut
.Left = Cellules (pasteAt, 1) .Left
.Top = Cellules (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Terminer par
lThisRow = lThisRow + 1
Boucle
Plage ("A10"). Sélectionnez
Application.ScreenUpdating = True
Sortie sous
ErrNoPhoto:
MsgBox "Impossible de trouver une photo" 'Affiche une boîte de message si l'image n'est pas trouvée
Sortie sous
Plage ("B20"). Sélectionnez
End Sub