anbei ein Beispiel mit zwei Optionsgruppen, denen ich die Namen "Abitur" und "Farbe" gegeben habe.
Die dazugehörigen Makro-auslösenden Schaltflächen tragen in ihrer Eigenschaft "Zusatzinformation" den Namen der auszuwertenden Gruppe.
Dann geht's mit diesem Makro:
Code: Alles auswählen
Sub Get_Option_Status(Event)
sGoupname = Event.source.model.Tag
for i = 0 to ThisComponent.Drawpage.count -1
if ThisComponent.Drawpage(i).Name = sGoupname then
oGroup = ThisComponent.Drawpage(i)
for k = 0 to oGroup.count - 1
oControl = oGroup(k).Control
if oControl.State = 1 then
sText = oControl.label
msgbox ("Es ist """ & sText & """ausgewählt",64,"Optionsfelder")
endif
next k
endif
next i
End Sub