Objekt bei bedarf anzeigen

[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?

[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

[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