macro werkt niet in PowerPoint

[Frits231]

macro werkt niet in PowerPoint

--------------------------------------------------------------------------------

Ik heb een macro gemaakt in PowerPoint.
De macro verandert de tekst in een textbox die in een dia staat.
De macro werkt als die gestart wordt vanuit vba.
De macro heb ik gekoppeld aan een knop die ook op de dia aanwezig is.

De macro wordt echter NIET uitgevoerd als er op de knop wordt geklikt tijdens de diavoorstelling.

Het beveiligingsniveau is op "gemiddeld" ingesteld.
De knop is bij de Actie-instellingen (rechtermuisklik op de knop) ingesteld op het tabblad
Muisklik op Macro uitvoeren bij de naam van de Macro.
Het is overigens nog de enige macro in dit project, dus ik kan mij niet vergissen.

Wat kan er fout zijn gegaan, ik schiet hier maar niet mee op........

 

[Wigi]

Enige kans om een stukje uit het bestand hier te posten?

 

[Frits231]

De macro is nog experimenteel, dus vrij eenvoudig.
Ik wilde de werking testen omdat ik wel macro's ken in Excel, maar nog niet in PowerPoint.

Sub TextBox1()

ActiveWindow.Selection.SlideRange.Shapes("Text Box 102").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=13, Length:=1).Select
ActiveWindow.Selection.TextRange.Text = "4"

End Sub

De macro is opgenomen met de macrorecorder, dus niet echt door mijzelf geschreven.
Het zou geweldig zijn als je mij de goede weg kunt ophelpen.

 

[Wigi]

Aangezien de macro op zich wel werkt en niet in een bestandje, moeten we volgens mij het bestandje zelf te zien krijgen.

 

[Frits231]

Hierbij een voorbeeldbestandje van mijn vraag.
In de tekstbox staat de tekst "Gesprek met 2 personen".
Door op de knop te drukken tijdens de presentatie wil ik de tekst veranderen in: Gesprek met 4 personen".
Dat lukt niet met de knop.

Ik ben zo benieuwd wat hier nu fout gaat....

 

[Wigi]

Volgens mij werkt dit niet tijdens het afspelen van een presentatie:

ActiveWindow.Selection

en wel bij de slides zelf.

Maar meer weet ik er ook niet van, heb nog bijna niets in VBA PPT geprogrammeerd.

Wigi

 

[Frits231]

Het is gelukt, er moet in de vba-code rechtstreeks naar de dia worden verwezen.
De uitdrukking ActiveWindow werkt niet in de diavoorstelling, kennelijk is er geen Window aktief.
Bovendien zat er nog een foutje in de vorige zip.

Macro's geven veel meer mogelijkheden in een dia presentatie, je kunt er een interactief medium van maken op deze wijze.

Zo hoef ik niet voor elke situatie een nieuwe dia te maken, maar kan de dia tijdens de vooorstelling naar believen worden aangepast.

Bedankt voor het meedenken Wigi.:thumb:

 

[Wigi]

Jij bedankt voor het voortborduren op mijn (uiteindelijk juist gebleken) gok

 

[Frits231]

Macro's werken wel tijdens de diavoorstelling, je moet alleen de juiste uitdrukkimgen in de macro toepassen.
ActiveWindow is kennelijk onjuist, terwijl een verwijzing naar de slide zelf wel werkt tijdens de diapresentatie.

De macro ziet er dan als volgt uit:

Sub TextBox1()

ActivePresentation.Slides(1).Shapes("Text Box 6").TextFrame.TextRange.Text = "5"

End Sub

In de aktieve presentatie wordt verwezen naar Slide(1) en dan "begrijpt" de macro kennelijk waar het over gaat.

Dit even voor de duidelijkheid als later andere forumbezoekers met het zelfde probleem kampen.