Najprostszym sposobem na tworzenie w�asnej aplikacji w PowerPoincie jest utworzenie dodatku aplikacji PowerPoint. Dlaczego?
PowerPoint w swoich prezentacjach nie ma �adnych wewn�trznych mechanizm�w pozwalaj�cych uruchomi� jakikolwiek makro w momencie otwierania prezentacji.
A przecie�, wi�kszo�� zada� zwi�zanych z ustawianiem aplikacji do w�asnych potrzeb odbywa si� w procedurach typu:
- Workbook_Open() lub Auto_Open() /MS Excel/,
- Document_Open() lub AutoOpen() /MS Word/,
- AutoExec() /MS Access - dotyczy makra o takiej nazwie, a nie procedury/,
i dotyczy tworzenia w�asnych pask�w narz�dziowych i menu oraz wielu innych spraw.
Jedynym sposobem na to, �eby procedura uruchomi�a si� przy otwarciu, to utworzenie dodatku i wpisanie w dowolnym module procedury: Procedure Auto_Open()
Oczywi�cie nic nie stoi na przeszkodzie umieszcza� kod w plikach *.ppt (prezentacji), a nie *.ppa (dodatku)...
MS PowerPoint na pierwszy rzut oka nie zosta� mocno zmieniony... Ale to pozory.
W rzeczywisto�ci, dla programisty, zasz�y wielkie zmiany...
Wiele obiekt�w i funkcji do�o�ono ju� w PowerPoincie 2002/XP, ale najwi�kszy rozw�j wida� po PowerPoincie 2003.
S� tu mi�dzy innymi:
- funkcje do przesuwania slajd�w /MoveTo()/, a wcze�niej trzeba by�o to realizowa� za pomoc� metod wytnij /Cut()/, wklej /Paste()/
- funkcje do wstawiania tabeli wprost, a nie przez pliki Worda, czy Excela,
- i wiele innych...
Tworzenie dodatku polega na tym, �e tworzysz pust� prezentacj�, umieszczasz odpowiedni kod w modu�ach, modu�ach klas i modu�ach formularzy.
Nast�pnie, w oknie projektowania kodu, uruchamiasz polecenie Debug->Compile... i zapisujesz zamiany w pliku �r�d�owym. Dalej przechodzisz do okna g��wnego aplikacji (z pust� prezentacj�) i
poprzez menu Plik->Zapisz jako... zapisujesz plik jako dodatek programu PPoint we wskazanej przez CIebie lokalizacji.
Klika uwag
- NIE USUWAJ PLIKU �R�D�OWEGO, bo nie b�dziesz mia� mo�liwo�ci dokonania zmian w projektowanej przez Ciebie aplikacji,
- MS PowerPoint �adowa� dodatki mo�e w dwojaki spos�b:
- r�cznie (poprzez menu Narz�dzia->Dodatki...),
- automatycznie (poprzez umieszczenie w kodzie proceduty Auto_Open()),
- To samo dotyczy usuwania dodatk�w z kolekcji dodatk�w za�adowanych.
- MS PowerPoint przeszukuje katalog AddIn umieszczony najcz�ciej w katalogu C:\Program Files\Microsoft Office\Office\ (dla Office 97) lub C:\Documents and Settings\U�YTKOWNIK\Dane aplikacji\Microsoft\ (dla nowszych wersji i �rodowiska Windows z zarejestrowanymi wieloma u�ytkownikami).
Przyk�ad pobierania numeru indeksu
W zale�no�ci od wywo�ania zwraca:
- nr pierwszego indeksu
- nr bie��cego indeksu
- nr ostatniego indeksu
'Przyk�ad pobierania indeksu
Public Const iFIRST As Integer = 0
Public Const iCURRENT As Integer = 1
Public Const iLAST As Integer = 2
Function GetSlideIndex(iKtory As Integer)
'w razie b��du id� do podprogramu obs�ugi b��d�w