Hi guys,
I'm trying to take screenshots of certain slides from certain files and copy/paste them into a new powerpoint file.
I think it might go along the lines of:
If there are any experts out there who can figure this out. I would be really appreciative
Thanks in advanced.
I'm trying to take screenshots of certain slides from certain files and copy/paste them into a new powerpoint file.
I think it might go along the lines of:
Code:
Sub InsertAndSizePicture()
Dim oPicture1, oPicture2, oPicture3, oPicture4 As Shape
Dim FullPath1, FullPath2, FullPath3, FullPath4 As String
Dim oSl1, oSl2, oSl3, oSl4 As Slide
FullPath1 = "R:\Produced\E" & <name> & "<some other string>" '(only the <name> bit will change from each process)
Set oSl1 = [Slide 2 from the file]
Set oPicture1 = oSl1.Shapes.AddPicture(FileName:=FullPath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=0, Top:=0, _
Width:=100, Height:=100)
' Rescale the picture to its "natural" slze
With oPicture1
.ScaleHeight 1, msoTrue
.ScaleWidth 1, msoTrue
End With
...
End Sub
If there are any experts out there who can figure this out. I would be really appreciative
Thanks in advanced.