Option Explicit
Sub Main()
'create a folder and put all the files you want to link
Dim oFileSystemObject As Object
Dim oFolderSpec As Object
Dim oFile As Object
Dim oFileCollection As Object
Dim xlApp As Excel.Application
Dim FolderPath As Variant
Dim ppSlide As Slide
Dim obChart
Set oFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xlApp = CreateObject("Excel.Application")
'you must set a reference to the Excel Object Library via Tools/References _
in order to use GetOpenFilename
FolderPath = xlApp.GetOpenFilename("Excel Files (*.xls), *.xls")
If FolderPath <> False Then
Set oFolderSpec = oFileSystemObject.GetFolder(ReturnPath(FolderPath))
Set oFileCollection = oFolderSpec.Files
For Each oFile In oFileCollection
With ActivePresentation
Set ppSlide = ActivePresentation.Slides.Add( _
Index:=ActivePresentation.Slides.Count + 1, Layout:=ppLayoutBlank)
Set obChart = ppSlide.Shapes.AddOLEObject( _
Left:=120#, Top:=110#, Width:=480#, Height:=320#, _
FileName:=ReturnPath(FolderPath) & oFile.Name, _
Link:=msoTrue)
End With
Next
End If
Set xlApp = Nothing
Set oFileCollection = Nothing
Set oFolderSpec = Nothing
Set oFileSystemObject = Nothing
Set obChart = Nothing
Set ppSlide = Nothing
End Sub
Function ReturnPath(s)
'this function returns the folder path string in the form _
"C:\Folders\"
Dim i As Integer
For i = Len(s) To 1 Step -1
If Mid(s, i, 1) = "\" Then Exit For
Next
ReturnPath = Left(s, i)
End Function
