Makroausführung in Impress im Präsentationsmodus angehalten?
Verfasst: Mo, 23.08.2010 22:28
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?
Falls es doch eine Lösung geben sollte, wäre ich extrem dankbar, wenn Ihr mir auch noch Tips geben könntet, wie ich
Vielen herzlichen Dank im Voraus - Matthias
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