shapes mit bestimmten Kriterien selectieren
04.07.2007 14:24:30
Atikar
ich habe folgende Routine geschrieben, die mir alle Shapes durchprüft und mir Info gibt wenn Kriterien erfüllt sind.
Wie kann ich dort wo die ++++++++++ stehen eine Möglichkeit einfügen das diese Shapes nach Ende der Schleife alle selectiert sind.
Sub Test()
Dim shab As Shapes, shap As Shapes
Set shab = ActiveSheet.Shapes
For i = 1 To shab.Count
If shab(i).Name = "alex" Then
End If
Next i
End Sub
ciao
Atikar
Anzeige