bobbybobbertson
Programmer
Is there a VB function for the "insert slides from files" command in Microsoft Power point?
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub InsertAllSlides()
Dim fso As Scripting.FileSystemObject
Dim fld As Scripting.Folder
Dim fil As Scripting.File
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder("c:\temp")
For Each fil In fld.Files
If Right(fil.ShortName, 3) = UCase("ppt") Then
ActivePresentation.Slides.InsertFromFile _
fil.Path, 0, 1
End If
Next
Set fld = Nothing
Set fso = Nothing
End Sub