[RISOLTO] Il tuo computer è offline, accedi con lultima password Windows 10
Se stai riscontrando l
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:
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.
Quando viene visualizzata la finestra di dialogo MsgBox per l'interazione dell'utente, vuoi sapere su quale opzione l'utente ha fatto clic, puoi utilizzare il seguente codice per verificarlo:
Il codice controlla quale pulsante l'utente sceglie su MsgBox
In base alla scelta di ciascun utente, puoi continuare a eseguire codici diversi, questi codici VBA, che puoi apprendere nei corsi VBA con i maggiori esperti su Impara Excel Online.
MsgBox supporta il vietnamita accentato? La risposta è no, perché? Perché Microsoft lo ha programmato in questo modo. Ma esiste un altro modo? La risposta è sì, puoi leggere l'articolo Utilizzo del vietnamita accentato con MsgBox VBA
Tutto il codice nell'articolo che puoi vedere su Gist:
SubHeoBasicMessageBox() | |
MsgBox "Xin chao cac ban da den voi Hoc Excel Online" | |
Fine sott | |
Sub HeoBasicMessageBoxWithTitle() | |
MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO" | |
Fine sott | |
SubHeoBasicMessageBox2() | |
MsgBox "Hoc Excel Online", _ | |
vbOKAnnulla + _ | |
vbCritico + _ | |
vbDefaultButton1 + _ | |
vbApplicationModal | |
Fine sott | |
SubHeoBasicMessageBox3() | |
MsgBox "Hoc Excel Online", _ | |
vbOKAnnulla + _ | |
vbCritico + _ | |
vbDefaultButton1 + _ | |
vbSystemModal | |
Fine sott | |
SubHeoMsgBoxResult1() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Hoc Excel Online", vbYesNo + vbCritical) | |
Risposta MsgBox | |
Fine sott | |
SubHeoMsgBoxResult2() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult3() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult4() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Hoc Excel Online", vbYesNo + vbInformation) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult5() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Errore", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult6() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Errore", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult7() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Errore", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult8() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Errore", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton) | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult9() | |
Risposta debole come VbMsgBoxResult | |
risposta = MsgBox("Vuoi riprovare?", vbRetryCancel + vbQuestion, "Errore") | |
Risposta MsgBox | |
Fine sott | |
Sub HeoMsgBoxResult10() | |
MsgBox "Si è verificato un errore critico", vbCritical, "Errore di sistema" | |
Fine sott |
Se stai riscontrando l
Vuoi spostare gli elementi in Presentazioni Google senza perdere la loro posizione relativa? Scopri come raggrupparli in pochi semplici passi.
Scopri come cancellare la cronologia delle connessioni desktop remoto in modo semplice e veloce seguendo i passaggi indicati.
Scopri come attivare o disattivare Caps Lock su Chromebook in modo semplice e veloce. Segui i nostri passaggi per personalizzare la tua esperienza di digitazione.
Scopri come regolare i rientri degli elenchi in Microsoft Word per migliorare la formattazione del tuo documento.
Stai riscontrando problemi con la connettività HDMI su Windows 11? Scopri come risolvere i problemi di HDMI con 11 semplici correzioni.
Scopri come risolvere Valheim continua a bloccarsi, bloccarsi, schermo nero e problemi di avvio. Segui queste soluzioni efficaci per giocare senza interruzioni.
Scopri come abilitare e personalizzare il lettore immersivo in Microsoft Word per una lettura più accurata, aiuto con la pronuncia delle parole e per ascoltare il documento letto ad alta voce.
Scopri come riprodurre i tuoi file musicali archiviati su Google Drive senza doverli scaricare. Utilizza Music Player per Google Drive per un
Scopri come risolvere l