Da es sich um eine Grafik handeln soll kannst Du sie wie folgt unsichtbar machen.
(1)Füge die Grafik ein und gib ihr den Objektnamen "anfangs_unsichtbar" und stelle die Transparenz der Grafik auf 100%
(2)ordne dieser Grafik und dem Objekt auf das Du klicken willst damit die Grafik erscheint folgendes Makro als Interaktion zu:
Code: Alles auswählen
Sub Main
Doc = StarDesktop.CurrentComponent
'hier Seite der Präsentation festlegen
'wo sich die Objekte befinden
'drawPages(0) entspricht Seite 1
Seite = Doc.drawPages(0)
Shape = Seite.getCount()
For nShape = 0 To Shape - 1
oShape = Seite.getByIndex(nShape)
If oShape.Name = "anfangs_unsichtbar" Then
If oShape.transparency = 0 then
oShape.transparency = 100
Else
oShape.transparency = 0
End If
End if
Next
End Sub
(vergiß nicht die Seiteneinstellung im Makro vorzunehmen, siehe den dortigen Kommentar)
Das Makro läßt sich auch von der einzublendenden Grafik starten wenn diese unsichtbar ist, das ist Absicht, weil ich nicht weiß wie die Ebenenverteilung der Objekte ist.
Gruß
Stephan
Da es sich um eine Grafik handeln soll kannst Du sie wie folgt unsichtbar machen.
(1)Füge die Grafik ein und gib ihr den Objektnamen "anfangs_unsichtbar" und stelle die Transparenz der Grafik auf 100%
(2)ordne dieser Grafik und dem Objekt auf das Du klicken willst damit die Grafik erscheint folgendes Makro als Interaktion zu:
[code]Sub Main
Doc = StarDesktop.CurrentComponent
'hier Seite der Präsentation festlegen
'wo sich die Objekte befinden
'drawPages(0) entspricht Seite 1
Seite = Doc.drawPages(0)
Shape = Seite.getCount()
For nShape = 0 To Shape - 1
oShape = Seite.getByIndex(nShape)
If oShape.Name = "anfangs_unsichtbar" Then
If oShape.transparency = 0 then
oShape.transparency = 100
Else
oShape.transparency = 0
End If
End if
Next
End Sub[/code]
(vergiß nicht die Seiteneinstellung im Makro vorzunehmen, siehe den dortigen Kommentar)
Das Makro läßt sich auch von der einzublendenden Grafik starten wenn diese unsichtbar ist, das ist Absicht, weil ich nicht weiß wie die Ebenenverteilung der Objekte ist.
Gruß
Stephan