Ich versuche, ein Bild aus einem Benutzerformular in das Excel-Blatt einzufügen, aber wenn ein Bild nicht ausgewählt ist, wenn ich die Übergabeschaltfläche im Formular drücken, sagt Laufzeitfehler '424': Objekt erforderlich . Wie kann ich dieses Problem lösen? Das Folgende ist für die Durchsuchen-Schaltfläche.Einfügen von Bild in VBA
Und das folgende ist der Code, der das Bild der spezifischen Zelle zuweist.
Cells(emptyrow, 10).Select
With xlApp.ActiveSheet.Pictures.Insert(picname) 'it is this line the debugger always points to when I submit the form without a picture
With .ShapeRange
.LockAspectRatio = msoTrue
.Height = 150
End With
.Left = xlApp.ActiveSheet.Cells(emptyrow, 10).Left
.Top = xlApp.ActiveSheet.Cells(emptyrow, 10).Top
.Placement = 1
.PrintObject = True
End With
Überprüfen Sie die Anzahl der ausgewählten Elemente, bevor Sie etwas tun. –