.AddPicture --> Laufzeitfehler 91
02.10.2016 19:24:21
Ben
ich hatte vor ein paar Tagen schon einmal den Code gepostet, allerdings erscheint jetzt immer der Laufzeitfehler 91 und zwar in der Zeile Picture = PPTNEW.Slides(1).Shapes.AddPicture(pfBild, msoTrue, msoTrue, Left:=0, Top:=0). Ich hoffe mir kann einer weiterhelfen.
Das Bild wird in der PowerPoint Folie eingefügt, der Code bricht dann allerdings ab mit Erscheinung der Fehlermeldung und es kommt auch nicht zum Speichern. Es werden auch noch vordefinierte Shapes mit Texten gefüllt, allerdings hab ich die Zeilen jetzt nicht mitkopiert.
Option Explicit
Dim pfBild As String
Private Sub bPicture_Click()
Dim Bild
'Es kann ein Bild mit den Typen *.JPG;*.bmp;*.cur;*.wmf;*.ico geöffnet werden, welches auf _
der Anzeigemaske angezeigt wird.
Bild = Application.GetOpenFilename("Bilddateien (*.JPG;*.bmp;*.cur;*.wmf;*.ico), *.JPG;*. _
_
_
bmp;*.cur;*.wmf;*.ico")
If Bild = "" Or Bild = False Then Exit Sub
On Error Resume Next
Template.Image1.Picture = LoadPicture(Bild)
Template.Image1.PictureSizeMode = fmPictureSizeModeZoom
'der Pfad des Bildes wird auf pfBild übertragen welches als String deklariert ist
pfBild = CStr(Bild)
Private Sub bPowerPoint_Click()
Dim pptPfad As String 'Speicherpfad und Ort der Vorlage
Dim pptData As String 'Name der Vorlage
Dim PPT As PowerPoint.Application 'Powerpoint öffnen
Dim PPTNEW As Presentation 'Der entstehende Onepager
Dim Picture As Object
'Festlegung des Pfades und PPT-Vorlage aus dem der Onepager entstehen soll
pptPfad = "C:\Users\Ben\Desktop\OnePager_jetzt erst recht\"
pptData = "op_vorlage.pptx"
'PowerPoint-Vorlage öffnen + anzeigen
Set PPT = New PowerPoint.Application
PPT.Visible = msoTrue
PPT.Presentations.Open Filename:=pptPfad + pptData
Picture = PPTNEW.Slides(1).Shapes.AddPicture(pfBild, msoTrue, msoTrue, Left:=0, Top:=0)
Picture.ScaleHeight -1, msoTrue
Picture.ScaleWidth -1, msoTrue
'Speichert die neue POwerPoint-Datei unter dem Format: yyyymmdd_projecttitle_version_prename _
Lastname.pptx ab
PPTNEW.SaveAs Filename:=pptPfad & Format(tbDate.Value, "yyyymmdd") & "_" & tbHeadline & "_" _
_
_
& tbPrename & " " & tbLastname & ".pptx"
'Schließt die neue abgespeicherte Datei sowie das Programm Powerpoint
PPTNEW.Close
PPT.Quit
End Sub
Vielen Dank im Voraus!
Ben