MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 02.07.2019, 10:46   #1
spitzinger
Neuer Benutzer
Neuer Benutzer
Standard VBA - Auto_Close VBA in PP

Hallo,

ich habe vor einiger Zeit bereits bei Word über AutoClose eine Funktion beim Schliessen eingefügt. Nun möchte ich das bei powerpoint auch gerne machen. Hintergrund ist, dass ich beim Schliessen der Powerpointdatei gerne den Foliensatz zusätzlich als pdf abspeichern möchte.

Googlen bringt mir dabei die Info, dass ich das über ein Addin machen muss. Ich habe leider keine Ahnung wie ich das anstelle. Hat mir da jemand netterweise ein kurze Anleitung?! Das wäre super.

Viele Grüße

Steffen
spitzinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.07.2019, 13:12   #2
spitzinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

also ich habe das mit dem Add-In an sich jetzt raus.

Folgendes Makro teste ich gerade:

Public CurrentFolder As String
Public FileName As String
Public myPath As String
Public UniqueName As Boolean


Sub Auto_Close()


MsgBox "test"

'Store Information About PowerPoint File
myPath = ActivePresentation.FullName
CurrentFolder = ActivePresentation.Path & ""
FileName = Mid(myPath, InStrRev(myPath, "") + 1, _
InStrRev(myPath, ".") - InStrRev(myPath, "") - 1)


MsgBox FileName
MsgBox myPath
MsgBox CurrentFolder

MsgBox "test" & myPath




ActivePresentation.ExportAsFixedFormat CurrentFolder & FileName & ".pdf", _
ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, _
ppPrintOutputSlides, msoFalse, , ppPrintAll, , False, False, False, False, False

MsgBox "ok"


End Sub




Warum bekomme ich nur die aller erste Messagebox angezeigt? Der Rest funktioniert nur beim Test in der PPTM-Datei. Bin echt ratlos....Wäre super, wenn mir jemand helfen könnte.

DAnke schon mal im Voraus

Steffen
spitzinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.07.2019, 13:29   #3
derHoepp
MOF Profi
MOF Profi
Standard

Moin,

Gibt es einen Grund, warum du AutoClose statt der Application-Events verwendest? Autoclose ist eigentlich ein Relikt aus längst vergangenen Tagen.
Steig doch einfach auf die Application-Events um. Im konkreten Fall sollte das das PresentationBeforeClose-Event sein. In der Variablen Pres hast du dann auch das richtige Presentation-Objekt und du musst nicht auf ActivePresentation vertrauen.

Viele Grüße
derHöpp
derHoepp ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.07.2019, 13:45   #4
spitzinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hi Höpp,

vielen Dank für Deine Antwort!

Ich bin nicht sehr fit in VBA und habe das AutoClose daher genommen, weil ich das vor ein paar Jahren schon mal so ähnlich in nem Word-Makro gemacht hab und ich es nicht besser weiss...

Wie ist das denn mit der PresentationBeforeClose? Muss das dann auch in ein Add-In? Oder lasse ich das einfach in der .pptm drin, damit es ausgeführt wird?

Habe mal nach PresentationBeforeClose gesucht. Leider finde ich nur das hier:
https://docs.microsoft.com/de-de/off...ionbeforeclose

Was sollen die Parameter in meinem Fall sein?

Bin leider ziemlicher Anfänger...
Vielleicht kannst Du mir da nochmal kurz auf die Sprünge helfen?!

Vielen Dank und viele Grüße
Steffen
spitzinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.07.2019, 16:19   #5
derHoepp
MOF Profi
MOF Profi
Standard

Hallo Steffen,

Zitat:

nochmal kurz auf die Sprünge

das ist leider keine Sache, die ich mal eben kurz erläutern könnte. Prinzipiell besteht das Problem darin, dass Powerpoint seit der massenhaften Verbreitung von Viren über lustige Präsentationsdateien anfang der 00er Jahre in der automatischen Verarbeitung zu Recht deutlich abgespeckt wurde. Ereignisse, wie das öffnen oder schließen einer Präsentation lassen sich nicht mehr ohne weiteres Abfangen, um darauf mit Code zu reagieren. Es gibt schlicht keine eingabauten Objekte mehr, deren Klassenmodule man mit Event-Handlern erweitern könnte. Es sind also einige Klimmzüge nötig. Eine Möglichkeit ist es eben, in einem AddIn die Events des Application-Objekts abzugreifen, um darauf zu reagieren. Blöderweise kann man auf Events wieder nur in Klassenmodulen reagieren.
Long Story Short:
Lies dir vielleicht mal den Beitrag Nr. 8 in diesem Thread durch: https://www.ms-office-forum.net/foru...d.php?t=358703
oder den Beitrag bei HaWe: https://hawehofmann.wordpress.com/20...reignisklasse/
Oder einen der Katze-beißt-sich-in-Schwanz Beiträge bei Office-Loesung: http://office-loesung.de/p/viewtopic.php?f=164&t=740891 oder http://office-loesung.de/p/viewtopic.php?f=164&t=734142

Viele Grüße nochmal!
derHöpp
derHoepp ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2019, 13:44   #6
spitzinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Höpp,

vielen Dank für den Versuch mir auf die Sprünge zu helfen. Das mir den Application Events hab ich leider nicht recht geschnallt.

Aber mal eine letzte doofe Frage: Warum funktioniert an sich die AutoClose Funktion? Das Anzeigen der MsgBox zu Beginn der geht noch, alles andere wird ignoriert.

Vielen Dank nochmals für Deine Mühe
Steffen
spitzinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.07.2019, 14:47   #7
Hans Hofmann
MOF Koryphäe
MOF Koryphäe
Standard

Du hast einen design fehler in der Denke - denke ich...

Auto_Open und Auto_Close sind in Addins funktionsfähig und betreffen auch addins - Auto_Close feuert wenn das betreffende Addin geschlossen wird und Du brauchst ein Event das beim Schließen der Datei feuert, das als pdf gespeichert werden soll - so hab ich jedenfalls verstanden...
is das so?

__________________

Gruß HW

WebSite:
Veröffentlichungen zu PP & VBA
Hans Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2019, 15:04   #8
spitzinger
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Das stimmt so :-)
spitzinger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:37 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.