Suche Makro für Impress

[F3K Total]

Hi,
ich habe dir mal was gebastelt. Du findest diese Symbolleiste

Joker.png (2.03 KiB) 590 mal betrachtet

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: Alles auswählen

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

Viel Spaß damit
Gruß R