Bilder aus ORdenr in Powerpoint
25.01.2017 12:59:00
Wolfgang
ich bin neu in der VBA Welt, konnte aber dennoch schon das ein oder andere Problem dank dem genialen Forum lösen. Derzeit komme ich aber nicht weiter. Mein Problem erschein im ersten Moment recht einfach. Ich möchte alle Bilder in einem Ordner in eine PowerPoint setzen. Und zwar soll das Makro bei Folie 4 Starten und jedes Bild auf eine neue Folie setzen.
Mein Makro bisher sieht wie folgt aus.
Sub Bild_jpg_Einfuegen2()
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
Pfad = BrowseDir.Items().Item().Path
If Pfad = "" Then Exit Sub
' Position in Folie
x = 8.5 * 72 / 2.54
y = 4 * 72 / 2.54
' Bild Skalieren
NewW = 25 * 72 / 2.54
'StartFolie
Foliennummer = 4
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder(Pfad)
Set fdateien = fVerz.Files
For Each fDatei In fdateien
strDat = fDatei.Name
PfadDatei = Pfad & strDat
MsgBox PfadDatei
Next fDatei
End Sub
Die MsgBox zeigt mir den richtigen Pfad. Danach muss der Befehl folgen der das Bild einfügt und gegeben falls eine neue Folie erstellt.
Vielen Dank für eure Hilfe.
Gruß
Wolfgang
Anzeige