Fehler TopLeftCell-Eigenschaft des DropDown
14.03.2016 11:46:46
phlp
ich habe hier ein kleines Problem, wenn ich über einen Button ein Bild einfügen möchte.
Es klappt alles so wie ich will, aber nur so lange bis ich eine Auswahl in einem DropDown-Objekt vornehme. Wenn ich danach wieder auf den Button "Bild einfügen" klicke kommt folgende Fehlermeldung:
Laufzeitfehler '1004':
Die TopLeftCell-Eigenschaft des DropDown-Objektes kann nicht zugeordnet werden.
Der Code sieht folgendermaßen aus:
Private Sub CommandButton1_Click()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
Range("A10")) Is Nothing Then myShape.Delete
Next
Range("A10").Select
Application.Dialogs(xlDialogInsertPicture).Show
On Error GoTo EndMacro:
Selection.ShapeRange.ZOrder msoSendToBack
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 220
Selection.ShapeRange.Height = 170
Selection.Locked = False
EndMacro:
ActiveSheet.Unprotect
End Sub
Ich habe das Problem auch hier schon mal geschildert, aber da konnte man mir (bisher) nicht helfen: https://www.herber.de/forum/archiv/1480to1484/t1481350.htm
Deshalb habe ich die Sache jetzt nochmal vereinfacht dargestellt.
Vielen Dank schon mal im Voraus!