Excel - Ein Makro zum Einfügen von Bildern in ein Arbeitsblatt

Problem
Lösung

Problem

Ich versuche, Bilder in eine Excel-Spalte einzufügen, indem ich ein Makro verwende, das die Dateinamenreferenz aus der B2-Zelle entnimmt und ein Bild in die A2-Zelle einfügt. Beispiel: Wenn B2 N235 enthält, lautet das Bild, das in A2 eingefügt wird, N235.jpg aus dem angegebenen Pfad in Macro. Dies funktioniert einwandfrei, es sei denn, der Ordner enthält kein Bild mit demselben Namen wie der Ordner.

Ich erhalte den Laufzeitfehler 1004 und das Makro wird angehalten und kann das Bild nach dieser Zelle nicht mehr füllen.

Lösung

 Unterbild ()
Dim picname As String
Paste dimenAt As Integer
Verdunkeln Sie diese Zeile so lange
lThisRow = 2
Do While (Cells (lThisRow, 2) "")
pasteAt = lThisRow
Cells (pasteAt, 1) .Select 'Hier wird das Bild eingefügt
picname = Cells (lThisRow, 2) 'Dies ist der Bildname
present = Dir ("C: \ Benutzer \ Administrator \ Desktop \ LC \" & picname & ".jpg")
Wenn vorhanden "" Dann
ActiveSheet.Pictures.Insert ("C: \ Benutzer \ Administrator \ Desktop \ LC \" & Bildname & ".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 = 130 #
.ShapeRange.Rotation = 0 #
Ende mit
Sonst
Cells (pasteAt, 1) = "Kein Bild gefunden"
End If
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