Come scrivere in Visual Basic in Power Point

Visual Basic è un linguaggio utilizzato da applicazioni Windows . VBA , che è Visual Basic, Applications Edition , può essere utilizzato in programmi di Windows come PowerPoint e le altre applicazioni di Office. Lavorare con VBA consente all'utente di creare delle macro , che sono scorciatoie per le attività che si desidera eseguire su base regolare . Le macro possono essere molto semplici o estremamente complessi . Tutto dipende da che cosa avete bisogno e come si è in Visual Basic . Cose che ti serviranno
PowerPoint versione 2000-2007
Mostra più istruzioni
1

Avviare PowerPoint e aprire una presentazione esistente o iniziarne uno nuovo . In PowerPoint 2000-2003 , andare sul menu "Strumenti" , scegliere "Macro" e cliccare su "Protezione". Impostare l'impostazione di protezione su "Medio ". In PowerPoint 2007 , fare clic sul " Pulsante Office " e poi su " Opzioni di PowerPoint. " Fare clic su " Centro protezione " e quindi su " Impostazioni Centro protezione. " Selezionare " Impostazioni macro " e poi su " Disattiva tutte le macro con notifica ".
2

Premere la combinazione di tasti "Alt + F11 ". L'editor VBA si apre. È anche possibile avviare l'editor andando sul menu "Strumenti" in PowerPoint 2000-2003 , che punta a "Macro" e cliccando su " Editor di Visual Basic . " In PowerPoint 2007 , fare clic sul " Pulsante Office " e poi " Opzioni di PowerPoint ". Selezionare "Popular" e poi " Mostra scheda Sviluppo sulla barra multifunzione. " Chiudere la finestra di dialogo e fare clic su " Visual Basic : in " . . Sviluppatori " . Scheda
3

Vai " Inserisci "e selezionare " Modulo " Una pagina vuota si aprirà Questo è dove verrà inserito il codice VBA .
4

Inserisci il codice di Visual Basic nel modulo . VBA deve iniziare con "Sub" e finire con " End Sub . " Per esempio , il seguente codice aggiungerà una data per ogni diapositiva .

Sub TimeDate ( ) Set myPres = Application.ActivePresentationWith myPres.SlideMaster.HeadersFooters.DateAndTime.Format = ppDateTimeMdyy.UseFormat = TrueEnd WithEnd Sub