gibt es auch eine Möglichkeit zu prüfen ob ein Bild angewählt ist z.B.
If ActiveSheet.Shapes("Picture 41").Select Then
MsgBox "TEST"
Else
MsgBox "Nix ausgewählt"
End If
Vielen Dank im voraus für eure Hilfe!
MFG Jens
If TypeName(Selection) = "Picture" Then
if Selection.name = "Picture 41" then
MsgBox Selection.Name
end if
End If
If TypeName(Selection) = "Picture" Then
If Selection.Name = "Picture 41" Then
MsgBox "TEST"
Else
MsgBox "ausgewählt wude " & Selection.Name
End If
End If