wie kann ich prüfen ob ein shape mit bekanntem namen vorhande ist?
ciao
atikar
Function fcnShapeThere(strShapeName As String) As Boolean
' Prüft ob das angegebene Shape im aktiven Blatt vorhanden ist
Dim lngHelp As Long
On Error Resume Next
lngHelp = ActiveSheet.Shapes(strShapeName).Width
If Err.Number <> 0 Then
fcnShapeThere = False
Else
fcnShapeThere = True
End If
On Error GoTo 0
End Function
Sub test()
MsgBox fcnShapeThere("Rechteck 1")
End Sub
Sub ttt()
Dim my As Shapes, i As Integer
Set my = Sheets("Tabelle1").Shapes
For i = 1 To my.Count
'MsgBox my.Range(i).Name
If my.Range(i).Name = "Rectangle 4" Then MsgBox "ja" Else MsgBox "nein"
Next i
End Sub