Fehler beim Einfügen von Bildern nach DropDown
11.03.2016 09:26:28
Bildern
ich habe möchte über einen Button ein Bild in eine bestimmte Zelle (hier A11) einfügen. Das funktioniert auch über folgenden Code ohne Probleme.
Private Sub CommandButton1_Click()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
Range("A11")) Is Nothing Then myShape.Delete
Next
Range("A11").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.ZOrder msoSendToBack
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 220
Selection.ShapeRange.Height = 170
Selection.Locked = False
End Sub
Nun habe ich etwas weiter unten auf meinem Tabellenblatt eine Dropdown-Funktion über die ein paar weitere Zeilen aus- und eingeblendet werden können. Wenn ich das tue und danach wieder den Button zum Bild einfügen klicke, kommt die Fehlermeldung:
Laufzeitfehler '1004':
Die TopLeftCell-Eigenschaft des DropDown-Objektes kann nicht zugeordnet werden.
Und markiert werden mir dann diese Zeilen im Code:
If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
Range("A11")) Is Nothing Then myShape.Delete
Mir ist bisher noch keine Lösung eingefallen. Ich hoffe hier kann mir jemand helfen!!
