Bild einfügen und löschen mit Button
22.03.2016 16:27:25
phlp
ich füge in einem Formular über einen Button ein Bild in eine bestimmte Zelle (A10) ein. Vorher wird noch geprüft ob sich bereits ein Bild in der entsprechenden Zelle befindet. Wenn ja, wird es gelöscht. Das funktioniert einwandfrei.
Jetzt habe ich aber das Problem, dass manchmal mehrere Zeilen (Zeilen 5-9) in meinem Formular ausgeblendet werden. Und wenn ich dann wieder auf meinen Button klicke um ein Bild einzufügen wird das alte nicht mehr gelöscht...
Jemand ne Idee woran das liegen könnte?
Hier noch der Code um das Bild einzufügen:
Private Sub CommandButton1_Click()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If myShape.Type = msoPicture Then
If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
Range("A10")) Is Nothing Then myShape.Delete
End If
Next
Range("A10").Select
Application.Dialogs(xlDialogInsertPicture).Show
Selection.ShapeRange.ZOrder msoSendToBack
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 280
Selection.ShapeRange.Height = 210
Selection.Locked = False
End Sub