OpenOffice.info

Sub S_rot
    S_Show_Hide("S_rot")
end sub

Sub S_gelb
    S_Show_Hide("S_gelb")
end sub

Sub S_gruen
    S_Show_Hide("S_gruen")
end sub

Sub S_Show_Hide(sName)
    oPage = thiscomponent.Masterpages(0)
    for i = 0 to oPage.count - 1
        oshape = opage(i)
        if oshape.name = sName then
           oshape.visible = not oshape.visible
        endif
    next i
End Sub

Hi,
ich habe dir mal was gebastelt. Du findest diese Symbolleiste[attachment=1]Joker.png[/attachment]wenn du die angehängte Datei öffnest.
Auf dem Folienmaster habe ich drei Elemente versteckt, die werden beim Anklicken der Symbolleiste ein/ausgeblendet.
Die Makros sehen so aus:[code]Sub S_rot
S_Show_Hide("S_rot")
end sub

Sub S_gelb
S_Show_Hide("S_gelb")
end sub

Sub S_gruen
S_Show_Hide("S_gruen")
end sub

Sub S_Show_Hide(sName)
oPage = thiscomponent.Masterpages(0)
for i = 0 to oPage.count - 1
oshape = opage(i)
if oshape.name = sName then
oshape.visible = not oshape.visible
endif
next i
End Sub[/code]

Viel Spaß damit
Gruß R