Einfügen von Bildern in Excel mithilfe eines Makros

Makros in Excel können Funktionen wie das Einfügen von Bildern, das Kopieren von Daten von einer Zelle in eine andere usw. ausführen. Um ein effektives Makro zum Einfügen von Bildern in Excel zu schreiben, müssen Sie eine Schleife verwenden

In diesen häufig gestellten Fragen werden Sie durch die Schritte zum Anwenden dieses Makros auf Ihre Tabelle geführt, damit Bilder angezeigt werden.

Verwenden Sie ein Makro, um Bilder in Excel einzufügen

Um ein Makro zum Einfügen von Bildern zu verwenden, müssen Sie mit den folgenden Annahmen beginnen: Die Bildnamen befinden sich in Spalte B, beginnend bei B2; Sie möchten jedes Bild an einer anderen Stelle einfügen. wo das in Spalte B angegebene Bild eingefügt werden soll, steht in Spalte C ab C2.

Geben Sie nun den folgenden Code ein:

 Unterbild ()
Dim picname As String
Paste dimenAt As Integer
Verdunkeln Sie diese Zeile so lange
lThisRow = 2
Do While (Cells (lThisRow, 2) "")
'Bereich ("A6"). Wählen Sie' Hier wird das Bild eingefügt
pasteAt = Cells (lThisRow, 3)
Cells (pasteAt, 1) .Select 'Hier wird das Bild eingefügt
Dim picname As String
'picname = Range ("B6")' Dies ist der Bildname
picname = Cells (lThisRow, 2) 'Dies ist der Bildname
ActiveSheet.Pictures.Insert ("C: \ Users \ vbayat \ Eigene Dateien \ vidabayat \ re-market \" & picname & ".jpg"). Wählen Sie "Pfad zum Speicherort der Bilder"
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'Dies ändert die Größe des Bildes
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Mit Auswahl
'.Left = Range ("A6"). Left
'.Top = Range ("A6"). Top
.Left = Cells (pasteAt, 1) .Left
.Top = Zellen (pasteAt, 1) .Top
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100 #
.ShapeRange.Width = 80 #
.ShapeRange.Rotation = 0 #
Ende mit
lThisRow = lThisRow + 1
Schleife
Bereich ("A10"). Wählen Sie
Application.ScreenUpdating = True
Sub beenden
ErrNoPhoto:
MsgBox "Foto konnte nicht gefunden werden" 'Zeigt ein Meldungsfeld an, wenn das Bild nicht gefunden wurde
Sub beenden
Bereich ("B20"). Wählen Sie
End Sub