[Makros]in Powerpoint 2000

[.marc]

ich versuch gerade ein wenig mit Makros in Powerpoint 2000 rumzuspielen. hier mein code:

ActiveWindow.Selection.SlideRange.Shapes("Text Box 6").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=7).Select
ActiveWindow.Selection.TextRange.Text = "das ist der neue Text"

das geht wenn ich das makro via Extra > Makros >Ausführen starte aber wenn die presentation läuft geht es nicht mehr
ich habe schon mit ActivePresentation rumgespielt aber funktioniert auch nicht hat jemand ein tipp?

 

[.marc]

für die die es interesiert

ich habe es mit dem hier glelöst:

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes("Text Box 6").TextFrame.TextRange.Text = "Das ist der neue Text"