Pp 2016 durch Commandbutton als pdf speichern

Moderator: ModerationP

Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DER_Ahnungslose » 22. Okt 2020, 14:12

Hallo liebes Forum,
Könnt ihr mir vielleicht verraten wie ich es schaffe durch einen CommandButton eine PowerPoint Datei abzuspeichern? Also nur Folie 2 bis 5, als PDF, das ich den Datenpfad angeben kann und vllt sogar das es automatisch den zukünftigen Speichername aus einer TextBox übernimmt??

des hab ich bisher (Folie 2 bis 11, als PDF) des mit dem Datenpfad finde ich noch nicht gut, ich würde ihn gerne im Makro festlegen können.

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then

Else: CommandButton1.Enabled = True

With ActivePresentation

With .PrintOptions
.NumberOfCopies = 1
.Collate = False
.PrintColorType = ppPrintColor
.PrintHiddenSlides = True
.FitToPage = True
.FrameSlides = True
.OutputType = ppPrintOutputSlides
End With

'Druckt den Bereich zischen Folie 2 und 11
.PrintOut From:=2, To:=11, Copies:=1, Collate:=msoFalse

End With

End If

End Sub

Wäre super wenn einer von euch mir helfen würde =))

Grüße
Der Ahnungslose
DER_Ahnungslose
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 11
Registriert: 08. Okt 2020, 15:55

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DerHoepp » 22. Okt 2020, 16:46

Moin,

versuchs mal mit der SaveCopyAs2-Methode:
Code: Alles auswählen
'@Folder("NativePowerpointObjects")
'Codename: Slide2

Option Explicit

Private Sub CommandButton1_Click()
    With Me.Parent
        .Slides.Range(Array(1, 2, 13, 14, 15, 16, 17, 18, 19, 20)).SlideShowTransition.Hidden = msoTrue 'Slides, die nicht mitgedruckt werden sollen
        .SaveCopyAs2 "C:\Daten\Export.pdf", ppSaveAsPDF
        .Slides.Range(Array(1, 2, 13, 14, 15, 16, 17, 18, 19, 20)).SlideShowTransition.Hidden = msoFalse
    End With
End Sub


Den Dateinamen kannst du wie jeden anderen String auch beliebig ermitteln.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9712
Registriert: 14. Mai 2013, 11:08

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DER_Ahnungslose » 22. Okt 2020, 18:10

Vielen Dank Hoepp für deine schnelle Hilfe,

doch leider bringt er mir immer eine Fehlmeldung =// (Laufzeitfehler 438)

.SaveCopyAs2 "C:\Daten\Export.pdf", ppSaveAsPDF

Beim Debuggen wird mir der Fehler auf dieser Zeile angezeigt ://

Grüße

Der Ahnungslose
DER_Ahnungslose
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 11
Registriert: 08. Okt 2020, 15:55

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DerHoepp » 22. Okt 2020, 18:54

Moin,

hast du noch nen Text zur Fehlermeldung? Und welche Powerpointversion verwendest du?

Gruß
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9712
Registriert: 14. Mai 2013, 11:08

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DER_Ahnungslose » 22. Okt 2020, 18:59

Servus,

Objekt unterstützt die Eigenschaft oder Methode nicht.

PowerPoint 2016

Grüße
Der Ahnungslose
DER_Ahnungslose
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 11
Registriert: 08. Okt 2020, 15:55

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DerHoepp » 22. Okt 2020, 19:03

Hi,

probier mal statt SaveCopyAs2 die Methode SaveCopyAs (also ohne die 2 am Ende).

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9712
Registriert: 14. Mai 2013, 11:08

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DER_Ahnungslose » 22. Okt 2020, 19:08

Geht leider auch nicht =/////

Gibt es noch einen anderen Weg?
DER_Ahnungslose
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 11
Registriert: 08. Okt 2020, 15:55

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DER_Ahnungslose » 22. Okt 2020, 19:13

Sorry, ich hab was falsch gehabt jetzt geht es :roll: :roll:

Da ich leider nicht wirklich eine Ahnung habe, was VBN angeht ist selbst das "einfache" ermitteln eines Strings nicht ganz so einfach :mrgreen: :mrgreen: :mrgreen:
Es wäre super wenn du mir nochmal helfen könntest :?: :?:


Vielen dank dir 8-)

Der Ahnungslose
DER_Ahnungslose
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 11
Registriert: 08. Okt 2020, 15:55

Re: Pp 2016 durch Commandbutton als pdf speichern

Beitragvon DerHoepp » 23. Okt 2020, 19:49

Hallo noch einmal,

ein Forum kann keine Grundlagen ersetzen. Schau dir die Onlinehilfe zu SaveCopyAs2 an, dann siehst du, welchen Datentyp welcher Parameter erhalten muss. Darüberhinaus schaust du dir an, welche Eigenschaften TextBoxen bieten und welchen Datentyp diese haben. Wie du auf den Inhalt einer Textbox zugreifst, hatte ich dir ja schon in einem der anderen Threads gezeigt.

Viele Grüße
derHöpp
DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9712
Registriert: 14. Mai 2013, 11:08


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast