Results 1 to 3 of 3

Thread: Text box alter while viewing show

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    VBAX Newbie
    Joined
    May 2011
    Posts
    2
    Location

    Question Text box alter while viewing show

    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
    Last edited by 10redmoe; 05-30-2011 at 10:03 AM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •