[RISOLTO] Il tuo computer è offline, accedi con lultima password Windows 10
Se stai riscontrando l
Un paio di giorni fa, un lettore ha chiesto se esiste un modo per automatizzare la creazione di presentazioni PowerPoint da zero e quindi aggiungere rapidamente diapositive a quella presentazione esistente. Ho pensato che quello script potesse essere molto nell'elenco delle macro di PowerPoint più utili.
Come indicato in passato, PowerPoint non include un registratore di macro (a differenza di Excel e Word, che hanno entrambi registratori integrati per Macro). Pertanto, ci rimane il buon vecchio Visual Basic per applicazioni che possiamo utilizzare per creare semplici macro per automatizzare PowerPoint. Esistono ulteriori alternative per PowerPoint Automation, ma queste vanno oltre lo scopo di questo tutorial.
Nel breve tutorial di oggi, esamineremo tre diversi casi d'uso:
Iniziamo.
Guarda il nastro. Se non vedi la voce Sviluppatore nel menu, prima di iniziare la codifica dovrai abilitare la scheda sviluppatore.
Dopo aver reso visibile il menu Developer sulla barra multifunzione, vai avanti e premi Developer , quindi premi il pulsante Visual Basic (o semplicemente vai avanti e premi Alt+F11) per aprire l'IDE di Visual Basic.
VBA per creare presentazioni PowerPoint
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA per inserire diapositive
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
Macro per impostare una nuova presentazione e aggiungere diapositive
Sarebbe solo confondere i due frammenti descritti sopra.
Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub
Successivamente potresti esaminare il nostro tutorial sulla creazione programmatica di forme in PowerPoint con VBA
Genera una presentazione PowerPoint da Excel
L'ultimo caso è che desideri creare una presentazione PowerPoint direttamente da un foglio di calcolo Excel. Puoi utilizzare la stessa tecnica da Word e da altre applicazioni Microsoft 365.
Sub CreatePresentationFromExcel()
Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")
Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close
MyPPt.Quit
MsgBox ("Presentation saved")
End Sub
Divertiti 🙂
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