Hallo,
ich möchte in Excel 2003 mit VBA feststellen, ob ein Shape selektiert ist oder nicht:
Sub test()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
'Aktion nur für selektierte Shapes
If(shp.??? = True) Then
End If
Next shp
Grüße
Ben
ich möchte in Excel 2003 mit VBA feststellen, ob ein Shape
selektiert ist oder nicht:
Hi Ben,
was sind das für Shapes, aus welcher Symbolleiste satmmen sie?
Gruß
Reinhard
Hallo Reinhard,
ich hab eine Lösung gefunden:
Sub IDthisShape()
'Identify selected shape, David McRitchie, programming, 2002-12-20
’ http://www.mvps.org/dmcritchie/excel/shapes.htm
’ http://google.com/groups?threadm=uV1T2%23FqCHA.2484@…
Dim str As String, i As Long, cnt As Long
cnt = 0
On Error Resume Next
cnt = Selection.ShapeRange.Count '-- err if none selected
str = „There are " & ActiveSheet.Shapes.Count _
& " shapes on this worksheet“ _
& Chr(10) & „of which " & cnt _
& IIf(cnt = 1, " was selected“, " were selected") _
& Chr(10) & Chr(10)
MsgBox Selection.Count
If cnt = 0 Then
str = str & "Actually, Selected shape is: " & Selection.Name
MsgBox str
Exit Sub
End If
For i = 1 To Selection.ShapeRange.Count
MsgBox str & i & " of " & Selection.ShapeRange.Count _
& " in selection. The selected shape is " _
& Chr(10) & " " & Selection.ShapeRange.Item(i).Name
Next i
End Sub
Trotzdem Danke der Nachfrage 
Grüße
Ben
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]