per Makro:
Code: Alles auswählen
Sub S_Fill_Circles(event)
oButton = event.source.model
if oButton.label = "einfärben" then
S_colorize_Circles
oButton.label = "zurücksetzen"
else
S_uncolorize_Circles
oButton.label = "einfärben"
endif
end Sub
Sub S_colorize_Circles
odrawpages = Thiscomponent.drawpages
odrawpage = odrawpages.getbyindex(0)
for i = 0 to odrawpage.count - 1
oshape = odrawpage(i)
if right(oShape.name,1) = "R" then
oshape.FillStyle = 1
oshape.FillColor = 16711680 'rot
elseif right(oShape.name,1) = "G" then
oshape.FillStyle = 1
oshape.FillColor = 8421504 'grau
end if
next i
End Sub
Sub S_uncolorize_Circles
odrawpages = Thiscomponent.drawpages
odrawpage = odrawpages.getbyindex(0)
for i = 0 to odrawpage.count - 1
oshape = odrawpage(i)
if right(oShape.name,1) = "R" or right(oShape.name,1) = "G" then oshape.FillStyle = 0
next i
End Sub
HTH Gruß R