Tai yra išsamus „PowerPoint“ automatizavimo naudojant VBA („Visual Basic for Applications“) makrokomandas vadovas. Žemiau rasite daug naudingų pavyzdžių.
VBA PDF (nemokami atsisiuntimai)
Atsisiųskite nemokamą „Microsoft PowerPoint VBA“ mokymo programą! Arba kitų biuro programų VBA vadovėliai!
parsisiųsti
„PowerPoint VBA“ (makrokomandų) pamoka
Pristatymas išsaugoti kaip makrokomandas
Pristatymas su VBA kodu turėtų būti „Išsaugotas kaip“ „PowerPoint“ makrokomandų pristatymas (*.pptm)
Juostelėje įgalinkite skirtuką „Kūrėjas“
Prieš kurdami VBA kodą, juostelėje turėtumėte įgalinti skirtuką Kūrėjas. Norėdami tai padaryti, pasirinkite Failas -> Parinktys, tada spustelėkite „Tinkinti juostelę“ ir pažymėkite laukelį šalia skirtuko „Kūrėjas“ dešinėje srityje.
Sukurkite „PowerPoint“ makrokomandą
Tai paprastas „PowerPoint VBA“ makrokomandos pavyzdys:
1234567891011 | Sub SavePresentationAsPDF ()Dim pptName As StringSumažinti PDF pavadinimą kaip eilutę„Išsaugokite„ PowerPoint “kaip PDFpptName = ActivePresentation.FullName„Pakeiskite„ PowerPoint “failo plėtinį pavadinime į PDFPDFName = Kairysis (pptName, InStr (pptName, ".")) & "Pdf"ActivePresentation.ExportAsFixedFormat PDFName, 2 'ppFixedFormatTypePDF = 2Pabaiga Sub |
Jis išsaugo aktyvų pristatymą kaip PDF. Kiekviena kodo eilutė atlieka šiuos veiksmus:
- Sukuria „PowerPoint“ pavadinimo ir PDF pavadinimo kintamuosius
- Priskiria aktyvaus pristatymo pavadinimą kintamajam „pptName“
- Sukuria visą PDF pavadinimą
- Išsaugo pristatymą kaip PDF
„PowerPoint“ programa
Kai VBA kodas veikia „PowerPoint“ pristatyme, „PowerPoint“ programa yra numatytoji programa ir ja galima manipuliuoti be aiškios nuorodos. Sukurkite naują pristatymą
Norėdami sukurti pristatymą, naudokite „PowerPoint“ programos pridėjimo metodą.
123 | Taikymas. Pristatymai. Pridėti“arba be aiškios nuorodosPristatymai. Pridėti |
Atidarykite naują pristatymą
Norėdami atidaryti naują ir tuščią pristatymą, naudokite „Application.Presentations“ kolekcijos pridėjimo metodą
1 | Pristatymai. Pridėti |
Atidarykite esamą pristatymą
Norėdami atidaryti jau sukurtą pristatymą, naudokite „Application.Presentations“ kolekcijos metodą „Open“
1 | Presentations.Open („Mano pristatymas.pptx“) |
Aukščiau pateiktas kodas reiškia, kad pristatymas yra tame pačiame kataloge kaip ir „PowerPoint“ pristatymas, kuriame yra kodas.
Atidaryti ir priskirti kintamajam
Atidarytą pristatymą turėtumėte priskirti kintamajam, kad galėtumėte juo manipuliuoti pagal savo reikalavimus.
12 | Dim ppt kaip pristatymasNustatykite ppt = Presentations.Open ("My Presentation.pptx") |
Žr. Aktyvus pristatymas
Naudodami nuorodą „ActivePrentation“ manipuliuokite GUI veikiančia prezentacija, kai vykdomas VBA kodas.
12 | „Atspausdinkite„ ActivePresentation “pavadinimą į tiesioginį langąDerinti. Spausdinti „ActivePresentation.Name“ |
Išsaugoti dabartinį pristatymą
Toliau pateiktas teiginys išsaugos aktyvų pristatymą, jei jis buvo išsaugotas anksčiau. Jei jis nebuvo išsaugotas, būsite paraginti dialogo lange „Išsaugoti kaip“.
1 | ActivePresentation.Save |
Uždaryti dabartinį pristatymą
Toliau pateiktas teiginys uždarys aktyvią pristatymą, net jei jis nebuvo išsaugotas po paskutinio redagavimo.
1 | ActivePresentation.Uždaryti |
Naudingos nuorodos
Priskirti esamą pristatymą (pagal pavadinimą) kintamajam
12 | Dim myPresentationByName As PresentationNustatyti myPresentationByName = Application.Presentations ("Mano pristatymas") |
Priskirti aktyvią skaidrę kintamajam
12 | Sumažinti srovęSlide As SlideNustatyti currentSlide = Application.ActiveWindow.View.Slide |
Priskirkite skaidrę pagal indeksą kintamajam
12 | „Dim mySlide“ kaip skaidręNustatykite mySlide = ActivePresentation. Skaidrės (11) |
Skaičiuoti skaidrių skaičių
12 | Dim dimCount As LongslideCount = ActivePresentation.Slides.Count |
Gauti skaidrių indeksą Dabartinės skaidrės numeris
12 | Sumažinti srovęSlideIndex kaip skaidręcurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndex |
Pridėkite tuščią skaidrę prie skaidrių demonstravimo pabaigos
1234567 | Dim dimCount As LongPritemdyti naują skaidrę kaip skaidręslideCount = ActivePresentation.Slides.CountNustatykite newSlide = ActivePresentation.Slides.Add (slideCount + 1, 12)“arba kaip ppLayoutBlank = 12Nustatykite newSlide = ActivePresentation.Slides.Add (slideCount + 1, ppLayoutBlank) |
Pridėkite skaidrę po dabartinės skaidrės
12345 | Pritemdyti naują skaidrę kaip skaidręPašalinti currentSlideIndex kaip sveiką skaičiųcurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndexNustatyti newSlide = ActivePresentation.Slides.Add (currentSlideIndex, ppLayoutBlank) |
Ištrinti skaidrę
1234 | Pašalinti currentSlideIndex kaip sveiką skaičiųcurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndexActivePresentation.Slaides (currentSlideIndex). Ištrinti |
Eikite į konkrečią skaidrę
12 | „Jūs pateksite į 4 skaidręApplication.ActiveWindow.View.GotoSlide (4) |
Perkelti skaidrę
Galite perkelti skaidrę iš senos padėties į naują
123456 | „Pereikite iš 3 skaidrės į pirmąją skaidręPritemdyti seną poziciją kaip sveiką skaičių, pritemdyti naują poziciją kaip sveiką skaičiųsenoji pozicija = 3newPosition = 1ActivePresentation.Slides (oldPosition) .MoveTo toPos: = newPosition |
Peržiūrėkite visas skaidres
Galite ką nors padaryti su kiekviena skaidra arba peržiūrėti visas skaidres, kad surastumėte kelias skaidres ir ką nors padarytumėte naudodami kodą;
123456 | Dim mySlide kaip SlideUž kiekvieną „MySlide“ „ActivePresentation.Slides“„Darykite ką nors naudodami dabartinę skaidrę, nurodytą kintamajame„ mySlide “„Derinti. Spausdinti„ MySlide “. PavadinimasKita skaidrė |
Peržiūrėkite visas aktyvios skaidrės formas
„PowerPoint“ galią galima realizuoti naudojant „Formas“. Toliau pateiktas kodas perkelia visas dabartinės skaidrės figūras, kad galėtumėte jomis manipuliuoti taip, kaip norite;
123456789 | Sumažinti srovęSlide as SlideDim shp kaip ShapeNustatyti currentSlide = Application.ActiveWindow.View.SlideUž kiekvieną shp „CurrentSlide.Shapes“„Darykite ką nors su dabartine forma, nurodyta kintamajame„ shp “„Pavyzdžiui, nedelsdami atspausdinkite formos pavadinimąDerinti. Spausdinti shp. PavadinimasKitas shp |
Peržiūrėkite visas formas visose skaidrėse
Galite peržiūrėti visas pristatymo formas pridėdami kilpą, kad pereitumėte prie visų skaidrių.
123456789 | Sumažinti srovęSlide as SlideDim shp kaip ShapeUž kiekvieną currentSlide ActivePresentation.SlidesUž kiekvieną shp „currentSlide.Shapes“„Darykite ką nors su dabartine forma, nurodyta kintamajame„ shp “Derinti. Spausdinti shp. PavadinimasKitas shpKita dabartinė skaidrė |
Peržiūrėkite visas „Active Slide“ teksto dėžutes
„TextBoxes“ yra dažniausiai naudojama forma „PowerPoint“ pristatymuose. Galite peržiūrėti visus teksto laukelius pridėdami varnelę „Formos tipas“. „TexBoxes“ formos tipas yra apibrėžtas kaip VBA konstanta msoTextBox (skaitinė konstantos vertė yra 17)
1234567891011 | Sumažinti srovęSlide as SlideDim shp kaip ShapeNustatyti currentSlide = Application.ActiveWindow.View.SlideUž kiekvieną shp „CurrentSlide.Shapes“„Patikrinkite, ar formos tipas yra„ msoTextBox “Jei shp.Type = 17 Tada 'msoTextBox = 17„Atspausdinkite tekstą teksto laukelyjeDebug.Print shp.TextFrame2.TextRange.TextPabaiga JeiKitas shp |
Peržiūrėkite visas teksto dėžutes visose skaidrėse
Vėlgi, galite peržiūrėti visus pristatymo teksto laukus, pridėdami kilpą, kad peržiūrėtumėte visas skaidres.
1234567891011 | Slinkti kaip skaidrę Sumažinti shp kaip formąUž kiekvieną currentSlide ActivePresentation.SlidesUž kiekvieną shp „CurrentSlide.Shapes“„Patikrinkite, ar formos tipas yra„ msoTextBox “Jei shp.Type = 17 Tada 'msoTextBox = 17„Darykite ką nors naudodami„ TextBox “, nurodytą kintamajame„ shp “Debug.Print shp.TextFrame2.TextRange.TextPabaiga JeiKitas shpKita dabartinė skaidrė |
Nukopijuokite pasirinktas skaidres į naują PPT pristatymą
Norėdami nukopijuoti tam tikras skaidres į naujas prezentacijas, pirmiausia pasirinkite norimas skaidres esamame pristatyme ir tada paleiskite žemiau esantį kodą;
123456789101112131415161718 | „Dim currentPresentation as Presentation“Sumažinti srovęSlide as SlideDim newPresentation as Presentation„Išsaugoti nuorodą į dabartinį pristatymąNustatyti currentPresentation = Application.ActivePresentation„Išsaugoti nuorodą į dabartinę skaidręNustatyti currentSlide = Application.ActiveWindow.View.Slide„Pridėkite naują pristatymą ir išsaugokite nuorodojeNustatykite NewPresentation = Application.Presentations.Add'Kopijuoti pasirinktas skaidresPasirinkimas. Kopijuoti„Įklijuokite jį į naują pristatymąNewPresentation.Slaides.Paste |
Kopijuoti aktyvią skaidrę į aktyvios prezentacijos pabaigą
12345 | 'Kopijuoti dabartinę skaidręApplication.ActiveWindow.View.Slide.Copy'Įklijuokite pabaigojeActivePresentation.Slaides.Paste |
Naudingi „PowerPoint“ makrokomandų pavyzdžiai
Štai keletas naudingų makro pavyzdžių, rodančių, kaip atlikti užduotis. Jie taip pat parodys aukščiau aprašytas sąvokas.
Keisti skaidrę skaidrių demonstravimo metu
1234567891011 | Sub ChangeSlideDuringSlideShow ()„Dim SlideIndex“ kaip sveikasis skaičiusDim SlideIndex Ankstesnis kaip sveikasis skaičius„Keisti dabartinę skaidrę į pasirinktą 4 skaidrę skaidrių demonstravimo metu„SlideIndex“ = 4„Dabartinio skaidrių demonstravimo lango indeksas yra 1„ SlideShowWindows “kolekcijojeSlideIndexPrevious = SlideShowWindows (1). View.CurrentShowPositionSlideShowWindows (1). View.GotoSlide SlideIndexPabaiga Sub |
Pakeiskite šriftą visose skaidrėse visose teksto dėžutėse
123456789101112131415 | Sub ChangeFontOnAllSlides ()„Dim mySlide As“ skaidrėDim shp As Shape„Keisti šrifto dydį visose skaidrėseUž kiekvieną „MySlide“ „ActivePresentation.Slides“Už kiekvieną shp „MySlide.Shapes“Jei shp.Type = 17 Tada 'msoTextBox = 17„Pakeisti šrifto dydį į 24shp.TextFrame.TextRange.Font.Size = 24Pabaiga JeiKitas shpKitas mySlidePabaiga Sub |
Visose teksto dėžutėse pakeiskite raidę iš viršutinės į įprastą
123456789101112131415 | Sub ChangeCaseFromUppertoNormal ()„Dim mySlide As“ skaidrėDim shp As Shape„Visų skaidrių keitimas iš didžiosios raidės į įprastąUž kiekvieną „MySlide“ „ActivePresentation.Slides“Už kiekvieną shp „MySlide.Shapes“Jei shp.Type = 17 Tada 'msoTextBox = 17„Pakeiskite didžiąsias raides į įprastasshp.TextFrame2.TextRange.Font.Allcaps = NetiesaPabaiga JeiKitas shpKitas mySlidePabaiga Sub |
Perjunkite didžiųjų ir didžiųjų raidžių tarp visų teksto laukelių
12345678910111213141516 | Sub ToggleCaseBetweenUpperAndNormal ()„Dim mySlide As“ skaidrėDim shp As Shape„Perjunkite tarp didžiųjų ir įprastų raidžių visoms skaidrėmsUž kiekvieną „MySlide“ „ActivePresentation.Slides“Kiekvienam shp In MySlide.ShapesJei shp.Type = 17 Tada 'msoTextBox = 17„Perjunkite tarp didžiųjų ir įprastų raidžiųshp.TextFrame2.TextRange.Font.Allcaps = _Ne shp.TextFrame2.TextRange.Font.AllcapsPabaiga JeiKitas shpKitas mySlidePabaiga Sub |
Pašalinti pabraukimą iš „Descenders“
Tipografijoje nusileidimas yra raidės dalis, esanti žemiau šrifto pradinės linijos. Daugelyje šriftų palikuonys yra skirti mažosioms raidėms, tokioms kaip g, j, q, p, y ir kartais f.
Kai pabrauki tekstą, po palikuonių jis neatrodo gražiai. Čia yra kodas, skirtas pašalinti pabraukimus iš visų tokių simbolių g, j, p, q ir y visame pristatyme.
1234567891011121314151617181920212223242526 | Sub RemoveUnderlineFromDescenders ()„Dim mySlide As“ skaidrėDim shp As ShapeDim descenders_list kaip eilutėBlanki frazė kaip eilutėDim x As Long„Pašalinkite pabraukimus iš palikuoniųdescenders_list = "gjpqy"Už kiekvieną „MySlide“ „ActivePresentation.Slides“Kiekvienam shp In MySlide.ShapesJei shp.Type = 17 Tada 'msoTextBox = 17„Pašalinkite pabraukimą iš raidžių„ gjpqy “Su shp.TextFrame.TextRangefrazė = .TekstasX = 1 iki Len (.Text)Jei InStr (descenders_list, Mid $ (frazė, x, 1))> 0 Tada. Simboliai (x, 1). Šriftas. Pabraukimas = klaidingaPabaiga JeiKitas xPabaiga suPabaiga JeiKitas shpKitas mySlidePabaiga Sub |
Pašalinkite animacijas iš visų skaidrių
Naudokite toliau pateiktą kodą, kad pašalintumėte visas pristatyme nustatytas animacijas.
123456789101112 | Sub RemoveAnimationsFromAllSlides ()„Dim mySlide As“ skaidrėTamsiai ilgasUž kiekvieną „MySlide“ „ActivePresentation.Slides“I = mySlide.TimeLine.MainSequence.Count iki 1 1 veiksmas„Pašalinkite kiekvieną animacijąmySlide.TimeLine.MainSequence.Item (i). IštrintiKitas I.Kitas mySlidePabaiga Sub |
Išsaugoti pristatymą kaip PDF
Aktyvų pristatymą galite lengvai išsaugoti PDF formatu.
1234567891011 | Sub SavePresentationAsPDF ()Dim pptName As StringSumažinti PDF pavadinimą kaip eilutę„Išsaugokite„ PowerPoint “kaip PDFpptName = ActivePresentation.FullName„Pakeiskite„ PowerPoint “failo plėtinį pavadinime į PDFPDFName = Kairysis (pptName, InStr (pptName, ".")) & "Pdf"ActivePresentation.ExportAsFixedFormat PDFName, 2 'ppFixedFormatTypePDF = 2Pabaiga Sub |
Raskite ir pakeiskite tekstą
Galite rasti ir pakeisti tekstą visose visų skaidrių teksto dėžutėse. Po pirmojo norimo rasti teksto egzemplioriaus (apibrėžto „findWhat“), norėdami rasti kitų egzempliorių, jei tokių yra, turite pereiti per komandą „Rasti“.
123456789101112131415161718192021222324252627282930313233 | Sub FindAndReplaceText ()„Dim mySlide As“ skaidrėDim shp As ShapeDim findWhat As String„Dim pakeisti“ su „String“Dim ShpTxt kaip TextRangeSumažinti „TmpTxt“ kaip „TextRange“findWhat = "šakalas"pakeistiWith = "lapė"'Rasti ir rasti ir pakeistiUž kiekvieną „MySlide“ „ActivePresentation.Slides“Už kiekvieną shp „MySlide.Shapes“Jei shp.Type = 17 Tada 'msoTextBox = 17Nustatykite ShpTxt = shp.TextFrame.TextRange„Raskite žodžio„ Rasti “pirmąją instanciją (jei yra)Nustatykite TmpTxt = ShpTxt.Replace (findWhat, _Pakeisti ką: = pakeistiVisi žodžiai: = tiesa)„Raskite papildomų žodžio„ Rasti “egzempliorių (jei yra)Daryk, kol ne „TmpTxt“ yra niekasNustatykite ShpTxt = ShpTxt.Characters (TmpTxt.Start + TmpTxt.Length, ShpTxt.Length)Nustatykite TmpTxt = ShpTxt.Replace (findWhat, _Pakeisti ką: = pakeistiVisi žodžiai: = tiesa)KilpaPabaiga JeiKitas shpKitas mySlidePabaiga Sub |
Eksportuoti skaidrę kaip vaizdą
Galite eksportuoti dabartinę skaidrę (arba bet kurią kitą skaidrę) kaip PNG arba JPG (JPEG) arba BMP vaizdą.
1234567891011121314 | Sub ExportSlideAsImage ()„Dim imageType“ kaip eilutėDim pptName As StringPritemdyti vaizdo pavadinimą kaip eilutę„Dim mySlide As“ skaidrė„Eksportuoti dabartinę skaidrę į vaizdąimageType = "png" 'arba jpg arba bmppptName = ActivePresentation.FullNameimageName = Kairysis (pptName, InStr (pptName, ".")) & imageTypeNustatykite mySlide = Application.ActiveWindow.View.slidemySlide.Export imageName, imageTypePabaiga Sub |
Pakeiskite vaizdo dydį, kad jis padengtų visą skaidrę
1234567891011121314151617181920212223242526 | Sub ResizeImageToCoverFullSlide ()„Dim mySlide As“ skaidrėDim shp As Shape„Pakeiskite vaizdo dydį iki viso skaidrių dydžio„Pakeiskite dabartinės skaidrės pirmosios formos aukštį ir plotį“, kad atitiktų skaidrių matmenisNustatykite mySlide = Application.ActiveWindow.View.slideNustatykite shp = mySlide.Shapes (1)'''' Pakeiskite du aukščiau esančius statemetus į“, jei norite, šį teiginį'' išplėsti šiuo metu pasirinktą formą'' duos klaidą, jei nieko nepasirinkta'Nustatyti shp = ActiveWindow.Selection.ShapeRange (1)Su shp.LockAspectRatio = Netiesa.Height = ActivePresentation.PageSetup.SlideHeight.Width = ActivePresentation.PageSetup.SlideWidth.Kairė = 0. Viršuje = 0Pabaiga suPabaiga Sub |
Uždarykite visas veikiančias skaidrių demonstracijas
Jei vienu metu atidarote kelias skaidrių peržiūras, galite jas visas uždaryti naudodami toliau pateiktą makrokomandą.
1234567 | Sub ExitAllRunningSlideShows ()„Do SlideShowWindows.Count“> 0„SlideShowWindows“ (1). Rodyti. IšeitiKilpaPabaiga Sub |
„PowerPoint“ automatizavimas iš „Excel“
Taip pat galite prisijungti prie „PowerPoint“ naudodami kitas programas (pvz., „Excel“ ir „Word“). Pirmiausia turite nurodyti „PowerPoint“ egzempliorių.
Yra du būdai tai padaryti - ankstyvas įrišimas ir vėlyvas įrišimas .
Atidarykite „PowerPoint“ - ankstyvas įrišimas
Skiltyje „Ankstyvas įrišimas“ VBE („Visual Basic“ redaktoriuje) turite aiškiai nustatyti nuorodą į „Microsoft PowerPoint 16 objektų biblioteką“ (skirta „MS Office 2022“), naudodami parinktį Įrankiai-> Nuorodos.
123 | 'Ankstyvas įrišimasDim pptApp kaip programaNustatykite pptApp = New PowerPoint.Application |
Atidarykite „PowerPoint“ - vėlyvas įrišimas
„Vėlyvojo įrišimo“ programos kintamasis deklaruojamas kaip objektas, o VBA variklis paleidimo metu prisijungia prie tinkamos programos.
123 | 'Vėlyvas įrišimasApšviesti pptApp kaip objektąNustatykite pptApp = CreateObject ("PowerPoint.Application") |
Padarykite programą matomą
Nustačius „PowperPoint“ programos nuorodą, gali tekti ją padaryti matomą.
1 | pptApp.Visible = Tiesa |
Manipuliuoti „PowerPoint“
Galite naudoti visus metodus, kaip manipuliuoti „PowerPoint“ pristatymais, aprašytais aukščiau „Excel“, tiesiog pridėdami nuorodą į aukščiau sukurtą „PowerPoint“.
Pavyzdžiui
1 | Presentations.Open („My Presentation.pptx“) |
reikia naudoti taip
1 | pptApp .Presentations.Open („Mano prezentacija.pptx“) |
Uždarykite programą
Baigę tai, ką norėjote padaryti naudodami „PowerPoint“ programą, turite ją uždaryti ir išleisti nuorodą.
12 | pptApp. BaigtiNustatyti pptApp = Nieko |
Kopijuoti iš „Excel“ į „PowerPoint“
Šis kodas nukopijuos diapazoną iš „Excel“ į „PowerPoint“:
Pastaba: Buvo kiek įmanoma paprasčiau parodyti, kaip diapazoną nuo „Excel“ galima nukopijuoti į „PowerPoint“ naudojant VBA.
12345678910111213141516171819 | Sub copyRangeToPresentation ()„Atidarykite naują„ PowerPoint “egzemplioriųNustatykite pptApp = CreateObject ("PowerPoint.Application")Su pptApp„Sukurkite naują pristatymąNustatykite ppt = .Presentations.Add„Pridėti tuščią skaidręNustatykite newSlide = ppt.Slides.Add (1, 12) 'ppLayoutBlank = 12„Nukopijuokite diapazoną iš„ Excel “aktyvaus lapo„ActiveSheet.Range“ („A1: E10“). Kopijuoti„Įklijuokite į„ Powerpoint “kaip vaizdąnewSlide.Shapes.PasteSpecial DataType: = 2 '2 = ppPasteEnhancedMetafile„Perjunkite į„ PowerPoint “.AktyvuotiPabaiga suPabaiga Sub |
DUK apie „PowerPoint VBA“
Kas yra makrokomandos PPT?
Makrokomanda yra bendras terminas, nurodantis programavimo instrukcijų rinkinį, kuris automatizuoja užduotis. „PowerPoint“ (PPT) makrokomandos automatizuoja „PowerPoint“ užduotis naudodami VBA programavimo kalbą.
Kaip naudoti VBA „PowerPoint“?
Jei norite naudoti VBA „PowerPoint“, atidarykite VBA redaktorių (ALT + F11 arba Kūrėjas> „Visual Basic“).
Kaip sukurti makrokomandą „PowerPoint“?
1. Atidarykite VBA redaktorių (ALT + F11 arba kūrėjas> Visual Basic)
2. Norėdami sukurti kodo modulį, eikite į Įterpti> Modulis
3. Įveskite „Sub HelloWorld“ ir paspauskite „Enter“
4. Tarp eilučių „Sub HelloWorld“ ir „End Sub“ įveskite „MsgBox„ Hello World! “
5. Jūs sukūrėte makrokomandą!
6. Dabar paspauskite „F5“, kad paleistumėte makrokomandą
Parašė: Vinamra Chandra