Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 491
  • Last Modified:

Bringing forward text boxes in powerpoint

I would like a series of 4 text boxes layered one on top of the other to be brought forward into view as required by clicking one of 4 action buttons.  I am trying to create the idea of 4 microsoft style tabs, which when clicked will reveal the appropriate text box.

My instinct would be to have someone design a macro and attach this to the action button such that it 'brings forward' a text page when depressed.

I am an advanced user using Powerpoint 2010.

Thank you in advance.
0
RichShare
Asked:
RichShare
2 Solutions
 
Chris BottomleyCommented:
In a running presentation then the syntax is as below ... in this case it cycles around 1 to 4 with the textbox prefix.

Chris
Static intVal

    intVal = intVal + 1
    If intVal > 4 Then intVal = 1
    Application.ActivePresentation.Slides(1).Shapes("TextBox" & intVal).ZOrder msoBringToFront

Open in new window

0
 
AmickCommented:
The trick is to make separate  slides addressed by a mouseclick action tied to the tab. When you click on the tab, the slide in question loads. I've attached a very simple example.
 Tab-1.pptx
0
 
RichShareAuthor Commented:
Thank you for both suggestions.  Amick, the multiple slide will work but may get messy in the long term as it will require 4 x the number of slides, but thank you anyway.  Chris.  Where would I insert this script into powerpoint?  Is this a macro action button thing or part the text box itself?

Can you create your own custom shaped text boxes?
0
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

 
Chris BottomleyCommented:
For terst purposes I added a button that toggled around the boxes but as per your outline I imagine you adding 4 buttons via developer | Controls | Command Button

Right click the button you draw and select view code:  Each button would select one of the four text boxes.  You can of course use the code I posted if a single button cycling 1 ... 4 .. 1 .. 4 etc is the requirement just add the one buttton and again post the code (excluding the sub declaration and end sub statements of course) into the sub.

Chris


Private Sub CommandButton1_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox1").ZOrder msoBringToFront
    
End Sub


Private Sub CommandButton1_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox2").ZOrder msoBringToFront
    
End Sub


Private Sub CommandButton1_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox3").ZOrder msoBringToFront
    
End Sub


Private Sub CommandButton1_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox4").ZOrder msoBringToFront
    
End Sub

Open in new window

0
 
Chris BottomleyCommented:
Cut and half paste!

Private Sub CommandButton1_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox1").ZOrder msoBringToFront
   
End Sub


Private Sub CommandButton2_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox2").ZOrder msoBringToFront
   
End Sub


Private Sub CommandButton3_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox3").ZOrder msoBringToFront
   
End Sub


Private Sub CommandButton4_Click()
    Application.ActivePresentation.Slides(1).Shapes("TextBox4").ZOrder msoBringToFront
   
End Sub
0
 
JSRWilsonCommented:
You can do this with one line of code!

Download sample here
0
 
RichShareAuthor Commented:
Brilliant, thank you both.  Have posted equal points, Chris solved my immediate problem, thank you.  JSRWilson - thanks for the elegant long term solution.
0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now