Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Selection slide by combobox

140 views
Skip to first unread message

badush

unread,
Feb 4, 2003, 1:33:38 PM2/4/03
to
Please Help me!!!
Is it possible by one combobox, to show the slide that I wish
selecting its text?

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

unread,
Feb 4, 2003, 8:35:53 PM2/4/03
to
Good question - you mean, you want to use a combo box
to navigate to different slides? This topic was covered in this group
last October. Below is a copy of the messages and VBA code you could
use to get this working.

- 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 Dalal

unread,
Feb 4, 2003, 11:46:40 PM2/4/03
to
If you need to navigate to a slide by its title during slide shows, you
might want to look at the free Slide Navigator addin from
http://officerone.tripod.com/ (Addins Section).

- 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...

badush

unread,
Feb 5, 2003, 1:51:06 PM2/5/03
to
thank you
"Jeff Chapman" <jap...@hotmail.com> ha scritto nel messaggio
news:et$MsaLzCHA.2288@TK2MSFTNGP09...

badush

unread,
Feb 5, 2003, 1:51:37 PM2/5/03
to
thank you
"Chirag Dalal" <dalal....@iname.com> ha scritto nel messaggio
news:Oi7i4ENzCHA.2488@TK2MSFTNGP12...
0 new messages