Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - PowerPoint events - step by step

jahu44 · Starszy Forumowicz **Pomógł:** 1 raz Posty: 46

Witam Was,

Mam problem z odpaleniem event`ów w PP 2007, czy ktoś mógłby mi łopatologicznie po polsku wyjaśnić co mam gdzie wpisać, włączyć, zmienić aby event "PresentationOpen" zadziałał.

Mam PP 2007 pilk zapisany w formacie pptm

Z góry dziękuję za pomoc.

tkuchta1 · Excel Expert **Pomógł:** 1495 razy Posty: 2270

W Nowej prezentacji!
Do projektu VBA dodaj moduł class. Nadaj mu nazwę ppEvents a w nim:

Kod:

Option Explicit

Public WithEvents ppAppEvents As PowerPoint.Application

Private Sub ppAppEvents_NewPresentation(ByVal Pres As Presentation)
MsgBox "Nowa"
End Sub

Private Sub ppAppEvents_PresentationOpen(ByVal Pres As Presentation)
MsgBox "Open"
End Sub

dodaj moduł standardowy a w nim

Kod:

Option Explicit

Public clsPPAppEventsClass As New ppEvents

Sub Auto_Open()
Set clsPPAppEventsClass.ppAppEvents = PowerPoint.Application
End Sub

Sub Auto_Close()
Set clsPPAppEventsClass.ppAppEvents = Nothing
End Sub

- plik zapisz jako Dodatek programu PowerPoint (ppa, ppam - dla PP2007/10) nadając mu nazwę np: ppAppEvents.ppa
- dodaj dodatek do PowerPointa:
w PP2010: Zakładka Plik / Opcje (na dole po lewej) / Dodatki (po lewej) / (na dole) Zarządzaj -> Z listy rozwijanej wybierz: Dodatki programu PowerPiont / Przycisk: Przejdź / Dodaj Nowy: / Wskaż plik przed chwilą utworzonego dodatku / OK..

Resetnij PowerPointa.

jahu44 · Starszy Forumowicz **Pomógł:** 1 raz Posty: 46

ok dzięki po części mi to pomogło...

1) Ale natrafiłem na inny problem - czytałem że niestesty za pomocą czego takiego nie da się stworzyć w add insach przycisku... (control)

czy może jednak da się to jakoś wywołać

2) W ten sposób stworzę auto_open event tylko dla jednego user`a (bedzie to przypisane do jednego kompa) - czy da się połączyć taki add ins z plikiem PP a nie userem?

Z góry dzięki wielkie za odpowiedź.