Kaip dirbti su pranešimų ir įvesties laukeliais „PowerPoint VBA“?

Peržiūrėdamas komentarus mačiau keletą skaitytojų klausimų, kaip dirbti su „Visual Basic“ įvesties ir pranešimų laukeliais „PowerPoint“.

Šioje pamokoje pateiksime labai pagrindines žinias, kurios padės jums pasinaudoti šiomis galimybėmis automatizuojant pristatymo kūrimą.

Kūrėjo skirtuko nustatymas

Pirmiausia turėsime įgalinti „PowerPoint“ kūrėjo aplinką. Vykdykite šią mokymo programą, kad nustatytumėte kūrimo skirtuką.

„PowerPoint“ eikite į kūrėjo meniu ir paspauskite „Visual Basic“.

Projekto medyje dešiniuoju pelės mygtuku spustelėkite pristatymą, paspauskite Įterpti ir pasirinkite Modulis. Bus sukurtas naujas VBA modulis, kuriame rašysite savo kodą.

„PowerPoint“ pranešimų dėžutės

Pranešimų dėžutės yra savaime suprantamos, jų tikslas yra pateikti naudingos informacijos galutiniam vartotojui. Savo modulyje parašykite šį kodą:

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

Paspauskite F5 arba Vykdyti ir pamatysite rezultatą:

Kaip dirbti su pranešimų ir įvesties laukeliais „PowerPoint VBA“?

Pranešimo ir įvesties dėžutės pavyzdys

Skirtingai nei pranešimų dėžutės, įvesties laukeliai naudojami norint gauti vartotojo atsiliepimą. Pažiūrėkime į toliau pateiktą pavyzdį. Scenarijus automatiškai įterpia naujas skaidres į pristatymą.

Štai ką mes įgyvendinsime:

Pirmiausia paraginsime vartotoją pridėti skaidrių skaičių (naudodami įvesties laukelį).
Tada informuosime vartotoją apie sukurtų skaidrių skaičių (naudodami pranešimų laukelį)
Paskutinis, eis į priekį ir skaidres sukurs programiškai.
Galiausiai išsaugosime pakeistą pristatymą



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

Tikimės, kad tai padėjo, jei reikia, palikite komentarus.

Check the values returned from the MsgBox function

When the MsgBox dialog box pops up for user interaction, you want to know which option the user clicked, you can use the following code to check that:

The code checks what button the user chooses on MsgBox

Corresponding to each user's choice, you can continue to run different codes, these VBA codes, you can learn in VBA courses with leading experts at Learn Excel Online.

Does MsgBox support accented Vietnamese? The answer is no, why? Because Microsoft programmed it like that. But is there any other way? The answer is yes, you can read the article Using accented Vietnamese with MsgBox VBA

All the code in the article you can see at Gist:

	Sub HeoBasicMessageBox()
	MsgBox "Xin chao cac ban da den voi Hoc Excel Online"
	End Sub

	Sub HeoBasicMessageBoxWithTitle()
	MsgBox "Xin chao cac ban da den voi Hoc Excel Online", , "HEO"
	End Sub

	Sub HeoBasicMessageBox2()
	MsgBox "Hoc Excel Online", _
	vbOKCancel + _
	vbCritical + _
	vbDefaultButton1 + _
	vbApplicationModal
	End Sub

	Sub HeoBasicMessageBox3()
	MsgBox "Hoc Excel Online", _
	vbOKCancel + _
	vbCritical + _
	vbDefaultButton1 + _
	vbSystemModal
	End Sub

	Sub HeoMsgBoxResult1()
	Dim response As VbMsgBoxResult

	response = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult2()
	Dim response As VbMsgBoxResult

	response = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult3()
	Dim response As VbMsgBoxResult

	response = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
	MsgBox response

	End Sub

	Sub HeoMsgBoxResult4()
	Dim response As VbMsgBoxResult

	response = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult5()
	Dim response As VbMsgBoxResult
	response = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult6()
	Dim response As VbMsgBoxResult
	response = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult7()
	Dim response As VbMsgBoxResult
	response = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult8()
	Dim response As VbMsgBoxResult
	response = MsgBox("Error", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult9()
	Dim response As VbMsgBoxResult
	response = MsgBox("Want to try again?", vbRetryCancel + vbQuestion, "Error")
	MsgBox response
	End Sub

	Sub HeoMsgBoxResult10()
	MsgBox "Critical error occurred", vbCritical, "System Error"
	End Sub

Kaip apversti tekstą Word 2016 / 2019 dokumente?

Sužinokite, kaip lengvai apversti, pasukti ir apversti tekstą Word 2016 ir 365 dokumentuose.

Instrukcijos, kaip pakeisti Facebook avatarą niekam nežinant

Sužinokite, kaip pakeisti „Facebook“ avatarą niekam nežinant, laikantis paprastų žingsnių, kad jūsų profilio nuotrauka liktų privatumo dėka.

Kaip nustatyti numatytąjį šriftą Outlook 365 el. pašto pranešimuose?

Sužinokite, kaip „Outlook 365“ lengvai nustatyti kitokį šrifto tipą ir dydį.

Kaip naudoti „PowerPoint“ mastelio efektą

Sužinokite, kaip efektyviai naudoti „PowerPoint“ mastelio keitimo efektą pristatymuose, kad jie būtų įdomesni ir interaktyvesni.

Kaip lengvai įtraukti „Excel“ lapus ir „Word“ dokumentus į „PowerPoint“ skaidres?

Sužinokite, kaip įterpti Word ir Excel objektus į Microsoft PowerPoint pristatymus.

Instrukcijos, kaip klausytis muzikos „Google“ žemėlapiuose

Muzikos klausymosi „Google“ žemėlapiuose instrukcijos. Šiuo metu vartotojai gali keliauti ir klausytis muzikos naudodami „Google“ žemėlapio programą „iPhone“. Šiandien WebTech360 kviečia jus

LifeBOX – Viettel internetinės saugojimo paslaugos naudojimo instrukcijos

„LifeBOX“ naudojimo instrukcijos – „Viettel“ internetinės saugojimo paslauga, „LifeBOX“ yra naujai paleista „Viettel“ internetinės saugojimo paslauga, turinti daug puikių funkcijų.

Kaip atnaujinti būseną „Facebook Messenger“.

Kaip atnaujinti būseną „Facebook Messenger“, „Facebook Messenger“ naujausioje versijoje vartotojams suteikė itin naudingą funkciją: keisti

Kortų žaidimo „Werewolf Online“ instrukcijos kompiuteryje

Kortų žaidimo „Werewolf Online“ instrukcijos kompiuteryje, „Werewolf Online“ atsisiuntimo, įdiegimo ir žaidimo instrukcijos kompiuteryje per itin paprastą LDPlayer emuliatorių.

Instagrame paskelbtų istorijų ištrynimo instrukcijos

Instagrame paskelbtų istorijų ištrynimo instrukcijos. Jei norite ištrinti istoriją Instagram, bet nežinote, kaip? Šiandien WebTech360

We use cookies to improve your experience.
By continuing, you acknowledge that you have read and understand our Cookie Policy. Accept