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: Alles auswählen
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
- den Inhalt eines Textfelds (gewonnene Summe) ändern kann (insbesondere: wie adressiere ich das Feld: geht "getByName"?)
- eine Grafik (verbrauchte Joker) ausblenden kann
Vielen herzlichen Dank im Voraus - Matthias