Is there a way to insert slide from one presentation into another with VBA? I have a add in where user can create take 5 slides from a presentation of lets say 100 and make a new presentation with only those 5. Lets say now i wanted to add in 3 from another presenation. Is there any type of vba code that can help me do that?
This copies a slide from a closed workbook to the active one....
[VBA]Sub Macro1()
Presentations.Open FileName:="F:\Temp\1.ppt", ReadOnly:=msoFalse
ActivePresentation.Slides(1).Copy
With Application.Presentations("1.ppt")
.Saved = True
.Close
End With
ActiveWindow.View.Paste
End Sub[/VBA]
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
Nice, thanks. One thing that I did was invoke the menu option Insert>Slides from Files and let the user work with that.
Another question: Does anyone know how to access the browse button or funciton? For example in the islides from file men screen there is a browse button that allows you to pick a presentation but not open it right away. The file path is then shown in a text box. How can I access that operation
from the help files:
[VBA]
Sub ShowFileDialog()
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog( _
Type:=msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With
End Sub
[/VBA]
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
nice..Am I able to pull the fie path of the file they choose to a text box? Sorta like how the browse works.
Posting Permissions
Reply With Quote
