Ich hab mal selber sowas gebastelt für nen Arbeitskollegen...
Wenn Du das Makro aufrufst, startet eine Art Explorer, in dem Du ein Verzeichnis angeben kannst, in dem sich die Grafikdateien (GIF, JPG u. BMP) befinden und wenn Du OK drückst, dann werden alle automatisch eingefügt...
Einfach mal ausprobieren, vielleicht ist es ja das, was Du brauchst!?
EDIT: Du musst im Visual-Basic-Editor unbedingt noch in Extras-Verweise die Microsoft Shell Controls and Automation aktivieren!!!
-------------------------
Private Declare Function BrowseForFolder Lib shell32.dll (Hwnd As Long, Title As String, Options As Long) As FolderItem
Sub Grafik_Insert()
Dim Eintrag As Object
Dim FolderObject As Object
Dim Inhalt As Object
Dim Shell As Object
Dim i As Integer
Dim Message As String
Dim fExt(3) As String * 4
fExt(1) = .JPG
fExt(2) = .GIF
fExt(3) = .BMP
Set Shell = CreateObject(Shell.Application)
Set FolderObject = Shell.BrowseForFolder(0, Verzeichnis mit Grafik-Dateien angeben..., 0)
Set Inhalt = FolderObject.Items
Message = Inhalt des Ordners + FolderObject.Title + : + vbCr + vbCr
For Each Eintrag In Inhalt
If Len(Eintrag.Name) > 4 Then
For i = 1 To 3
If UCase(Right(Eintrag.Name, 4)) = fExt(i) Then Exit For
Next
If i <= 3 Then
Message = Message + Eintrag.Path + vbCr
With ActivePresentation.Slides
.Add .Count + 1, ppLayoutBlank
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Count
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=Eintrag.Path, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0).Select
End If
End If
Next
MsgBox Message, vbInformation
End Sub
