.Object.GroupName
14.03.2013 11:32:35
Ralf
'Ausschnitt
With Worksheets("DECKBLATT")
For Each shp In .OLEObjects
If shp.Object.GroupName = "Zuschnitt" Then
If Err.Number 438 Then
shp.Object.Value = False
End If
End If
Err.Clear
Next
End With
'Ausschnitt ende
Die Optionbuttons bekommen einen GroupName, damit die sich gegenseitig ausschließen.
Es gibt mehrere Gruppen und Elemente, die GroupName nicht unterstützen.
Wenn der Element den GroupName nicht unterstützen, ist:
(If shp.Object.GroupName = "Zuschnitt") = true
Ist das normal? Kann ich das anders als durch eine Fehlerbehandlung lösen?
Ich mag Fehlerbehandlungen nicht. :-D
Danke
Ralf