Shapes-Eigenschaften
13.09.2005 23:05:42
windalf
Ich habe folgendes Problemchen...
Ich habe auf einem Exceltabellenblatt viele Shapes...
Ich möchte diese nun alle einzelen in einer Schleife durchgehen und wenn es sich bei dem Shape um eine "Rechteck" oder "Oval" handelt etwas mit dem text der dort drinne steht verantalten. Funktioniert soweit auch schon ganz gut allerdings habe ich das Problem das wenn z.B. andere Shapes auf der Oberfläche liegen diese nicht ignoriert werden...
For i = 0 To count_shapes - 1
If ActiveSheet.Shapes(i + 1).Type = msoShapeRectangle Or ActiveSheet.Shapes(i + 1).Type = msoShapeOval Then
'irgendwas mit anstellen...
End If
Next i
Dies funktioniert leider nicht da z.B. ein Pfeil anscheinend auch ein msoShapeRectangle ist und damit die Bedinung true wird. Wie kann ich das verhindern. Ich hoffe ihr wisst was ich meine...
Besten Dank Gruß Windalf