OpenOffice.info

Sub ToggleColor
	Dim oDoc As Object
	Dim oPage As Object
	Dim RectangleShape As Object

	oDoc = ThisComponent
	oPage = oDoc.DrawPages(0)
	RectangleShape = oPage.getByIndex(4)

   for i = 1 to 5
   	RectangleShape.FillColor = RGB(0, 255, 0)
   	wait 800
 '  	msgbox i & ". Durchlauf"
   	RectangleShape.FillColor = RGB(0, 0, 0)
   	wait 800
   next i
End Sub

Hallo!

Ich muß bis Donnerstag eine Präsentation mit Impress erstellen, mit der ein Quiz in der Art von "Wer wird Millionär" gespielt werden kann. Ich habe nach langem verzweifeltem Suchen in diversen Foren folgende Routine erstellt, mit der ein Sechseck (über "Standardformen", "Sechseck" gezeichnet) zum Blinken gebracht werden kann, wenn man darauf klickt. In der Entwurfsansicht funktioniert auch alles wunderbar. Zu meinem Entsetzen passiert im Präsentationsmodus allerdings überhaupt nichts. Auch die (jetzt auskommentierte) messagebox erscheint nicht. Ich habe den Eindruck, als würde die Makroausführung im Päsentationsmodus angehalten. Kann das sein?

[code]
Sub ToggleColor
Dim oDoc As Object
Dim oPage As Object
Dim RectangleShape As Object

oDoc = ThisComponent
oPage = oDoc.DrawPages(0)
RectangleShape = oPage.getByIndex(4)

for i = 1 to 5
RectangleShape.FillColor = RGB(0, 255, 0)
wait 800
' msgbox i & ". Durchlauf"
RectangleShape.FillColor = RGB(0, 0, 0)
wait 800
next i
End Sub
[/code]

Falls es doch eine Lösung geben sollte, wäre ich extrem dankbar, wenn Ihr mir auch noch Tips geben könntet, wie ich
[list]
[*]den Inhalt eines Textfelds (gewonnene Summe) ändern kann (insbesondere: wie adressiere ich das Feld: geht "getByName"?)
[*]eine Grafik (verbrauchte Joker) ausblenden kann[/list]

Meine Versuche unternehme ich übrigens in OpenOffice 3.2.1 unter Windows XP.

Vielen herzlichen Dank im Voraus - Matthias