Powerpoint-Folie per Excel-Makro öffnen

Computer: Software & Programmierung Office Software
1

Hallo Reinhard, hallo alle,

in einer Anfrage zum Abspeichern von Grafiken (siehe /t/tabellen-per-makro-als-grafiken-speichern/4816304/2

Ich habe dazu gleich 2 Fragen:

  1. In Deinem Code erhalte ich einen Fehler

    Sub ZuPP()
    Dim appPP As Object, Slide As Object
    Selection.CopyPicture
    Set appPP = CreateObject(„PowerPoint.Application“)
    With appPP
    .Visible = True
    .Presentations.Add
    .ActivePresentation.Slides.Add 1, ppLayoutBlank
    Set Slide = .ActivePresentation.Slides(1)
    Slide.Shapes.Paste
    End With
    End Sub

Bei „.ActivePresentation.Slides.Add 1, ppLayoutBlank“ erhalte ich die Fehlermeldung „Invalid enumeration value“

  1. Kann ich anstelle einer leeren Folie auch eine bereits bestehende Folie öffnen, wenn ja wie?

Vielen vielen Dank wie immer!!
Tina

2

Hallo Tina,

in einer Anfrage zum Abspeichern von Grafiken (siehe
/t/tabellen-per-makro-als-grafiken-speichern/4816304/2
hattest Du mir einen Code gegeben, in dem Du Powerpoint
öffnest und eine leere Folie aufmachst.

  1. In Deinem Code erhalte ich einen Fehler

Sub ZuPP()
Dim appPP As Object, Slide As Object
Selection.CopyPicture
Set appPP = CreateObject(„PowerPoint.Application“)
With appPP
.Visible = True
.Presentations.Add
.ActivePresentation.Slides.Add 1, ppLayoutBlank
Set Slide = .ActivePresentation.Slides(1)
Slide.Shapes.Paste
End With
End Sub

Bei „.ActivePresentation.Slides.Add 1, ppLayoutBlank“ erhalte
ich die Fehlermeldung „Invalid enumeration value“

Extras–Verweise, Verweis auf Microsoft Powerpoint… setzen.

  1. Kann ich anstelle einer leeren Folie auch eine bereits
    bestehende Folie öffnen, wenn ja wie?

Ungetestet, ersetze mal

.Presentations.Add

durch

.Presentations.Open FileName:=„Pfad\PWRPNT10.POT“, ReadOnly:=msoFalse

Gruß
Reinhard

3

Hallo Reinhard,

entschuldige, hat ein bisschen gedauert!

Extras–Verweise, Verweis auf Microsoft Powerpoint… setzen.

ja, geht jetzt!

.Presentations.Open FileName:=„Pfad\PWRPNT10.POT“,
ReadOnly:=msoFalse

geht so auch!

Vielen Dank
Tina