For example :
I have a slide where there are a picture of a mountain and its text
"mountain". Can I watch that slide selecting by combobox the text
"mountain"?
Ps I am sorry for my english ..... I'm italian.
- Jeff Chapman
From: mejupi (ill_...@hotmail.com)
Subject: Re: Combo box to navigate PowerPoint presentation
View this article only
Newsgroups: microsoft.public.powerpoint
Date: 2002-10-19 05:11:52 PST
Hi Brian,
I found this code:
Private Sub ComboBox1_Change()
'Place a combobox on the SlideMaster
'Name a text box for the Slide "Title"
Dim IDX As String
If ComboBox1.Text = "" Then Exit Sub
'Get the index of the slide since the GotoSlide requires
an Index
IDX = ActivePresentation.Slides(ComboBox1.Text).SlideIndex
'Move to the slide
SlideShowWindows(1).View.GotoSlide (IDX)
ComboBox1.Text = ""
End Sub
Sub LoadCombo()
'Name a textbox shape "Title" on every page and use that
for the
combobox text
Dim i As Integer
Dim strTitle As String
ComboBox1.Clear
For i = 1 To ActivePresentation.Slides.Count
On Error GoTo Err_No_shpTitle
strTitle =
ActivePresentation.Slides(i).Shapes
("Title").TextFrame.TextRange.Text
Use_Slide_Name:
ActivePresentation.Slides(i).Name = strTitle
With ComboBox1
.AddItem strTitle
End With
Next i
Exit Sub
Err_No_shpTitle:
strTitle = "Slide " & ActivePresentation.Slides
(i).SlideIndex
Resume Use_Slide_Name
End Sub
Your code works just fine but it shows for drop-down list
values Slide1, Slide2, Slide3 etc. How do I modify the
code so that the drop-down list values would be the same
as slide titles are?
With kind regards,
Juha
>-----Original Message-----
>I posted VBA code to do this about 2-3 months ago right here. You can
>probably find it with a Google search.
>
>Brian Reilly, PowerPoint MVP
>.
>Message 6 in thread
From: Brian Reilly, MS MVP (brian@not_reillyand.com)
Subject: Re: Combo box to navigate PowerPoint presentation
View this article only
Newsgroups: microsoft.public.powerpoint
Date: 2002-10-19 06:18:04 PST
Slide1 etc, is the default slide name. You'd have to name it with VBA
or use our Slide Naming tool in the RnR PPTools Starter Kit which has
a tool that will prompt you to name a slide.
Or you could modify the code to pick up the Title text from each slide
but that seems like a bad idea without knowing how you are using
titles. That's why I like the Name property.
Here's a sample piece to write a slide name. Very rudimentary since it
only handles the first slide but you should get the idea.
MsgBox ActivePresentation.Slides(1).Name
ActivePresentation.Slides(1).Name = "While Stevie's away, the cat's
can play"
MsgBox ActivePresentation.Slides(1).Name
Brian Reilly, PowerPoint MVP
"badush" <bad...@martucci.com> wrote in message
news:6IT%9.81639$YG2.2...@twister1.libero.it...
- Chirag
PowerShow - View multiple shows simultaneously
http://officerone.tripod.com/powershow/powershow.html
"badush" <bad...@martucci.com> wrote in message
news:6IT%9.81639$YG2.2...@twister1.libero.it...