Seite 1 von 1
Objekt bei bedarf anzeigen
Verfasst: Sa, 09.10.2004 21:54
von Gorgon
Hi zusammen.
Ich benötige einen Weg Objekte bei Bedarf anzuzeigen. Wenn ich zum Beispiel auf ein Objekt klicke, soll eine Grafik erscheinen. Wenn ich aber wieder auf die Grafik klicke, soll sie verschwinden.
Wer kann mir da helfen?
Verfasst: So, 10.10.2004 09:35
von Toxitom
Hey Gorgon,
Mit Basic? Eine formularschaltfläche über deine Grafik legen, keinen Inhalt, keinen Rahmen. Die Schaltfläche mit einem Makro verbinden, gewünschte Grafik einblenden und ausblenden.
Wäre das ein Weg?
Gruss
Thomas
Verfasst: So, 10.10.2004 11:47
von 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: 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