Results 1 to 3 of 3
  1. #1
    3 Star Lounger
    Join Date
    Apr 2002
    Location
    Texas, USA
    Posts
    208
    Thanks
    0
    Thanked 1 Time in 1 Post

    VBA Coding in PPT (2003)

    On the slide I have an image of a program. I have over layed many text boxes on the image that are alligned with various data entry fields on the program. I have added a text box field at the bottom of the slide. What I am trying to do is find some way so that as users hover over one of the text boxes that are on the image the text box at the bottom of the screen is updated with comments specific to that field. I have everything working except for setting the text in the textbox at the bottom of teh slide to some value. How would I dynamically change the code in a text box on a slside via a macro or sub/function?

    And if anyone has a better idea on how to achieve this using a different method then I am working please share your thoughts.

    Thanks
    Ed

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: VBA Coding in PPT (2003)

    I'm not sure of the best way to do this, but if you assign tags to your different shapes, you should be able to use code similar to the attached. If you import this module (change the file name back to .bas) does it work? Please make a backup first. <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

  3. #3
    Star Lounger
    Join Date
    Jan 2004
    Posts
    65
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: VBA Coding in PPT (2003)

    Ed,

    Have you thought about using the "visible" technique in VBA?

    You could have all the text objects on the slide, then by making them all invisible, until you click the relevant text box above, then make the correct text box visible for each whatever the user clicked (that triggers the macro).

    With ActivePresentation.SlideShowWindow.Presentation.Sl ides("YourName")
    .Shapes("YourObjectName").Visible = False

    With ActivePresentation.SlideShowWindow.Presentation.Sl ides("YourName")
    .Shapes("YourObjectName").Visible = True

    Cheers
    TAJ Simmons
    microsoft powerpoint mvp

    awesome - powerpoint backgrounds

Posting Permissions

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