Open "Insert Slides From File" dialog in VBA

[Guest]

How can I open the dialog for "insert slides from file" through vba? I have
found an option that lets me insert a certain slide in a certain file but I
only want to open the dialog and specify a certain file but not select a
slide through vba.

Any ideas?

Or else: is there an option to display thumbnails of all slides in a
userform without having to insert every picture (and code the slidenumber
behind it). My file has 150 slides!

Any help apprechiated

 

[Austin Myers]

There isn't anything available from the PowerPoint object model I can think
of that would do this. I suppose you could use a common dialog control to
open the folder containing the presentation to be inserted from, then fire
an instance of PPT to open the selected file (nothing else can read the
file). At that point you would need to generate thumbnails for each slide,
display them, and let your user select what they want.

Doable yes, easy not so much...

Maybe someone else will have a better idea.



Austin Myers
MS PowerPoint MVP Team

Provider of PFCPro, PFCMedia and PFCExpress
www.playsforcertain.com

 

[Guest]

Thought as much... might have to think of another solution then - unless
someone has got a bright idea?!

Thanks Austin!

 

[Shyam Pillai]

Cathy,
It is possible to launch the dialog using:
Call commandbars.FindControl(ID:=2703).Execute

But you cannot specify any parameters to the dialog.


--
Regards,
Shyam Pillai

Animation Carbon: Copy/Paste/Share animation libraries.
www.animationcarbon.com

 

[Guest]

Not sure if this will help but it goes to the open pres dialogue and opens
the chosen file in slidesorter view arranged alondside your current open pres.

Sub menus()
Dim fd As FileDialog
Dim strFile As String
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
..InitialView = msoFileDialogViewList
..AllowMultiSelect = False
..Title = "Please browse for your file"
..Filters.Clear
..Filters.Add "presentations", "*.ppt,*.pps"
If .Show = -1 Then
strFile = .SelectedItems(1)
End If
End With
Presentations.Open (strFile)
ActiveWindow.ViewType = ppViewSlideSorter
Application.Windows.Arrange (ppArrangeTiled)
End Sub

 

[Guest]

Thanks Shyam, will give it a try.
--
Cathy

Cathy,
It is possible to launch the dialog using:
Call commandbars.FindControl(ID:=2703).Execute

But you cannot specify any parameters to the dialog.


--
Regards,
Shyam Pillai

Animation Carbon: Copy/Paste/Share animation libraries.
www.animationcarbon.com