OpenOffice.info

Verfasst: **Do, 19.12.2013 21:55**

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

: Joker.png (2.03 KiB) 602 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

OpenOffice.info

Suche Makro für Impress

Re: Suche Makro für Impress