Hi,
I am quite annoyed at the at the fact that when I write a macro to change text, then add a action button to do that macro, in the middle of showing a presentaion, that it doesn't work. Please can you get my text to change whilst showing slideshow.
.
Please help!
p.s. i am using powerpoint 2003
p.p.s. my code is (whole module coming but the bit I'm annoyed about is in red):
Option Explicit
Public x As Integer
Sub Shape1_MovementLeft()
With ActivePresentation.Slides(1).Shapes(1)
.Left = .Left - x
End With
End Sub
Sub Shape1_MovementUp()
With ActivePresentation.Slides(1).Shapes(1)
.Horizontal = . 10
End With
End Sub
Sub Shape1_MovementRight()
With ActivePresentation.Slides(1).Shapes(1)
.Left = .Left + x
End With
End Sub
Sub Shape1_MovementDown()
With ActivePresentation.Slides(1).Shapes(1)
.Down = .Down - 10
End With
End Sub
Sub ChangeX_UP()
x = x + 1
ActiveWindow.Selection.SlideRange.Shapes("Text Box 14").TextFrame.TextRange.Text = ("Movement = " & x)
DoEvents
End Sub
Sub ChangeX_Down()
x = x - 1
ActiveWindow.Selection.SlideRange.Shapes("Text Box 14").TextFrame.TextRange.Text = ("Movement = " & x)
DoEvents
End Sub
Sub ResetX()
x = 20
]ActiveWindow.Selection.SlideRange.Shapes("Text Box 14").TextFrame.TextRange.Text = ("Movement = " & x)
DoEvents
End Sub