"Navigate through Combo" Issue Solved - Another arised.. Pls Help

[Guest]

My First Issue "Navigation of Slides from a Combo Box" has been solved.
Another issue arised regarding activation of macros written for navigation. I
was unable to activate the macros upon slideshow mode as the macro requires
compilation in Slide View Mode and that too when the combobox is selected at
that particular moment.

I need that my users simply run the presentation in Slideshow mode and the
macro get activated. If autorun is not possible, user can click a button for
entry into the presentation by which we can get the macro compiled. The issue
is how to get that combo selected while we are in slideshow mode. I get an
error that "There is no active window", and hence I'm not able to make out
how to get this working.

I've uploaded the sample PPT at
"http://www.shineoshine.com/ppt/Optimized samplePPT_Combo.ppt"

You'll find the code messed upl. My apologies for that... I'm a newbieeee
and for the 1st time I'm coding into VBA.

This is real urgent and I need it to get fixed soon. Please help....

 

[Steve Rindsberg]

My First Issue "Navigation of Slides from a Combo Box" has been solved.
Another issue arised regarding activation of macros written for navigation. I
was unable to activate the macros upon slideshow mode as the macro requires
compilation in Slide View Mode and that too when the combobox is selected at
that particular moment.

I need that my users simply run the presentation in Slideshow mode and the
macro get activated. If autorun is not possible, user can click a button for
entry into the presentation by which we can get the macro compiled. The issue
is how to get that combo selected while we are in slideshow mode. I get an
error that "There is no active window", and hence I'm not able to make out
how to get this working.

I've uploaded the sample PPT at
"http://www.shineoshine.com/ppt/Optimized samplePPT_Combo.ppt"

You'll find the code messed upl. My apologies for that... I'm a newbieeee
and for the 1st time I'm coding into VBA.

This is real urgent and I need it to get fixed soon. Please help....

One problem:
'This will advance the show to the selected slide
'Note that the list index begins with zero _
and slides begin with one, so there is an _
offset added
SlideShowWindows(1).View. _
GotoSlide .ListIndex + 1
With ActivePresentation

' you can't use .Slides.Shapes
' you need to specify which slide, so try
' If .Slides(.ListIndex+1).Shapes.HasTitle ...
If .Slides.Shapes.HasTitle Then
' you need to specify WHICH item here then iterate through all the
' shapes to find th eone that's a ppPlaceholderTitle
' or use
' .Slides.Shapes.Title
With .Slides.Shapes.Placeholders.Item
If .PlaceholderFormat.Type = ppPlaceholderTitle Then
comboVals = .TextFrame.TextRange
MsgBox comboVals
End With

And also:

Sub ExportSldTitles()


Dim oShape As Shape
' There's no selection in a slideshow, so this errors:
Set oShape = ActiveWindow.Selection.ShapeRange(1)
' Instead, try
Set oShape = ActivePresentation.SlideMaster.Shapes("ComboBox1")

With oShape.OLEFormat.Object
..Clear
End With
' Stores the filename provide by th

 

[Guest]

Thanks Steve. I appreciate your quick support... I'm all set to go