Kako pisati od desne proti levi v Microsoft Office 2016, 2019/365?
Naučite se preklopiti s tipkovnic LTR na RTL v programu Microsoft Word in Outlook.
Pred nekaj dnevi je bralec vprašal, ali obstaja način za avtomatizirano ustvarjanje PowerPointovih predstavitev iz nič in nato hitro dodajanje diapozitivov v obstoječo predstavitev. Mislim, da je ta skript lahko zelo na seznamu najbolj uporabnih PowerPointovih makrov.
Kot smo navedli v preteklosti, PowerPoint ne vključuje snemalnika makrov (to je za razliko od Excela in Worda, ki imata oba vgrajena snemalnika za makro). Zato nam ostane dober stari Visual Basic za aplikacije, ki ga lahko uporabimo za ustvarjanje preprostih makrov za avtomatizacijo PowerPointa. Obstajajo še druge alternative za PowerPoint Automation, vendar te presegajo obseg te vadnice.
V današnji kratki vadnici bomo pregledali tri različne primere uporabe:
Začnimo.
Poglejte trak. Če v meniju ne vidite vnosa Razvijalec, morate pred začetkom kodiranja omogočiti zavihek razvijalec.
Ko naredite meni za razvijalce viden na vašem traku, pojdite naprej in pritisnite Developer , nato pritisnite gumb Visual Basic (ali preprosto pojdite naprej in pritisnite Alt+F11), da odprete Visual Basic IDE.
VBA za ustvarjanje PowerPointove predstavitve
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
VBA za vstavljanje diapozitivov
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
Makro za nastavitev nove predstavitve in dodajanje diapozitivov
To bi bilo samo mešanje dveh zgoraj opisanih delčkov.
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
Nato si lahko ogledate našo vadnico o programskem ustvarjanju oblik v PowerPointu z VBA
Ustvarite PowerPointovo predstavitev iz Excela
Zadnji primer je, da želite ustvariti PowerPointovo predstavitev neposredno iz Excelove preglednice. Enako tehniko lahko uporabite iz Worda in drugih aplikacij 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
Uživajte 🙂
Naučite se preklopiti s tipkovnic LTR na RTL v programu Microsoft Word in Outlook.
Navodila za ustvarjanje podnapisov za videoposnetke s programom CapCut, Kako ustvariti podnapise v programu Capcut ni težko. Ta članek vam bo pokazal najenostavnejši način za vklop podnapisov v Capcutu.
Kako pošiljati sporočila z besednimi učinki v Facebook Messengerju? Odkrijte, kako enostavno namestiti in uporabljati besedne učinke na Facebook Messengerju.
Kako spremeniti ozadje fotografije v Canvi, enostavni koraki za spreminjanje ozadja fotografij.
Navodila za skrivanje sporočil Messengerja, ne da bi jih morali izbrisati. Če želite skriti sporočila Messengerja s funkcijo shranjevanja aplikacije, vendar ne veste, kako to storiti.
Navodila za poslušanje glasbe na Google Zemljevidih Trenutno lahko uporabniki potujejo in poslušajo glasbo z aplikacijo Google Zemljevid na iPhoneu. Danes vas vabi WebTech360
Navodila za uporabo LifeBOX - Viettelova spletna storitev za shranjevanje, LifeBOX je na novo uvedena spletna storitev za shranjevanje podjetja Viettel s številnimi vrhunskimi funkcijami
Kako posodobiti status v Facebook Messengerju? Facebook Messenger v najnovejši različici ponuja uporabnikom izjemno uporabno funkcijo: spreminjanje
Navodila za igro s kartami Werewolf Online na računalniku, Navodila za prenos, namestitev in igranje Werewolf Online na računalnik preko izjemno preprostega LDPlayer emulatorja.
Navodila za brisanje zgodb, objavljenih na Instagramu. Če želite izbrisati zgodbo na Instagramu, pa ne veste, kako? Danes WebTech360