Sub tt()
Dim o As Object
On Error Resume Next
Set o = Sheets(1).Pictures("Picture 1")
On Error GoTo 0
MsgBox IIf(o Is Nothing, "nicht ", "") & "da"
End Sub
Sub tt()
Dim o As Object
On Error Resume Next
Set o = Sheets(1).Pictures("Picture 1")
On Error GoTo 0
MsgBox IIf(o Is Nothing, "nicht ", "") & "da"
Stelle = Sheets(1).Pictures("Picture 1").TopLeftCell.Address
Range(Stelle).Select
End Sub
ich möchte prüfen ob ein Bild (Picture 1) überhaupt in der Tabelle vorhanden ist.
Stelle = Sheets(1).Pictures("Picture 1").TopLeftCell.Address
Range(Stelle).Select
Sub grafik_finden()
If ActiveSheet.Shapes("Picture 1").Visible = True Then
MsgBox "Grafik vorhanden!"
ActiveSheet.Shapes("Picture 1").Select
Stelle = ActiveSheet.Shapes("Picture 1").TopLeftCell.Address
Range(Stelle).Select
End If
If ActiveSheet.Shapes("Picture 1").Visible = False Then
ActiveSheet.Shapes("Picture 1").Visible = True
MsgBox "Grafik vorhanden!"
Stelle = ActiveSheet.Shapes("Picture 1").TopLeftCell.Address
Range(Stelle).Select
End If
End Sub