Come lavorare con messaggi e caselle di input in PowerPoint VBA?

Esaminando i commenti, ho visto un paio di domande dei lettori su come lavorare con le caselle di input e messaggi di Visual Basic in PowerPoint.

In questo tutorial forniremo una conoscenza di base di base per aiutarti a utilizzare queste capacità quando automatizza la creazione della presentazione.

Configurazione della scheda Sviluppatore

Prima di tutto, dovremo abilitare l'ambiente di sviluppo per PowerPoint. Segui questo tutorial per impostare la scheda di sviluppo.

In PowerPoint, vai al menu Sviluppatore e premi Visual Basic.

Nell'albero del progetto, fai clic con il pulsante destro del mouse sulla presentazione, premi Inserisci e quindi seleziona Modulo. Verrà creato un nuovo modulo VBA, quello è il luogo in cui scriverai il tuo codice.

Caselle di messaggio in PowerPoint

Le finestre di messaggio sono in qualche modo autoesplicative, il loro obiettivo è mostrare alcune informazioni utili all'utente finale. Scrivi il seguente codice nel tuo modulo:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Premi F5 o Esegui e guarda il risultato:

Esempio di messaggio e casella di immissione

A differenza delle caselle dei messaggi, le caselle di input vengono utilizzate per ottenere un feedback dall'utente. Diamo un'occhiata all'esempio qui sotto. Lo script inserisce automaticamente nuove diapositive nella presentazione.

Ecco cosa implementeremo:

1. Per prima cosa chiederemo all'utente il numero di diapositive da aggiungere (usando una casella di input).
2. Invieremo quindi una notifica all'utente sul numero di diapositive da creare (utilizzando una finestra di messaggio)
3. Infine, andrà avanti e creerà le diapositive a livello di codice.
4. Infine salveremo la presentazione modificata

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Spero che questo abbia aiutato, sentiti libero di lasciare come commenti se necessario.