VBA in PowerPoint 2010
15.03.2017 22:04:09
Tommy
ich habe eine kurze Frage zu meinem VBA-"Code". Hierzu erst einmal das Makro:
Sub alleBilder()
Dim shp As Shape
Dim i As Integer
Call Bildserie1
Call Bildserie2
Call Bildserie3
Call ...
For i = 4 To 51
ActivePresentation.Slides.Range (i)
For Each shp In ActivePresentation.Slides.Range(i).Shapes
shp.ZOrder msoSendToBack
Next shp
Next i
End Sub
Sub BILDSERIE1()
Dim Pfad As String
Pfad = "..
Set myDocument = ActivePresentation.Slides(4)
myDocument.Shapes.AddPicture FileName:=Pfad + "Bildserie1\Bild1.png", LinkToFile:=msoFalse, _
_
SaveWithDocument:=msoTrue, _
Left:=20, Top:=29, Width:=882, Height:=496
Set myDocument = ActivePresentation.Slides(5)
myDocument.Shapes.AddPicture FileName:=Pfad + "Bildserie1\Bild2.png", LinkToFile:=msoTrue, _
SaveWithDocument:=msoFalse, _
Left:=20, Top:=29, Width:=882, Height:=496
End Sub
Sub BILDSERIE2()
Dim Pfad As String
Pfad = "..
Set myDocument = ActivePresentation.Slides(10)
myDocument.Shapes.AddPicture FileName:=Pfad + "Bildserie2\Bild1.png", LinkToFile:=msoFalse, _
_
_
_
SaveWithDocument:=msoTrue, _
Left:=20, Top:=29, Width:=882, Height:=496
Set myDocument = ActivePresentation.Slides(11)
myDocument.Shapes.AddPicture FileName:=Pfad + "Bildserie2\Bild2.png", LinkToFile:=msoFalse, _
_
_
_
SaveWithDocument:=msoTrue, _
Left:=20, Top:=29, Width:=882, Height:=496
End Sub
Sub BILDSERIE3()
Dim Pfad As String
Pfad = "..
Set myDocument = ActivePresentation.Slides(16)
myDocument.Shapes.AddPicture FileName:=Pfad + "Bildserie3\Bild1.png", LinkToFile:=msoFalse, _
_
_
_
SaveWithDocument:=msoTrue, _
Left:=20, Top:=29, Width:=882, Height:=496
Set myDocument = ActivePresentation.Slides(17)
myDocument.Shapes.AddPicture FileName:=Pfad + "Bildserie3\Bild2.png", LinkToFile:=msoFalse, _
_
_
_
SaveWithDocument:=msoTrue, _
Left:=20, Top:=29, Width:=882, Height:=496
End Sub
Ich lade über dieses Makro mehrere Bilder in eine Präsentation aus verschiedenen Ordner, dabei liegen die Ordner in dem gleichen Überordner, in eine PRäsentation. Nun möchte ich den Pfad allerdings nicht mehrfach einfügen müssen, allerdings müssen auch die verschiedenen Makros bestehen bleiben. Könnt ihr mir eine Möglichkeit hierfür aufzeigen mit der ich den Code dementsprechend abändern kann?
Vielen Dank im Voraus.
MfG Tommy