Home » » Hvernig á að vinna með skilaboða- og inntaksboxum í PowerPoint VBA?

Hvernig á að vinna með skilaboða- og inntaksboxum í PowerPoint VBA?

Þegar ég fór í gegnum athugasemdirnar, hef ég séð nokkrar lesendaspurningar um hvernig á að vinna með Visual Basic innsláttar- og skilaboðareiti í PowerPoint.

Í þessari kennslu munum við veita mjög undirstöðuþekkingu til að hjálpa þér að nota þessa möguleika þegar þú gerir kynningargerð sjálfvirkan.

Setja upp forritaraflipann

Í fyrsta lagi þurfum við að virkja þróunarumhverfið fyrir PowerPoint. Fylgdu þessari kennslu til að setja upp þróunarflipann þinn.

Í PowerPoint, farðu í Developer valmyndina og ýttu á Visual Basic.

Í verkefnatrénu skaltu hægrismella á kynninguna þína, ýta á Insert og velja síðan Module. Ný VBA Module verður búin til, það er staðurinn þar sem þú munt skrifa kóðann þinn.

Skilaboðakassi í PowerPoint

Skilaboðakassar skýra sig sjálfir, markmið þeirra er að sýna notandanum gagnlegar upplýsingar. Skrifaðu eftirfarandi kóða í eininguna þína:

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

Smelltu á F5 eða Run og sjáðu niðurstöðuna:

Hvernig á að vinna með skilaboða- og inntaksboxum í PowerPoint VBA?

Dæmi um skilaboð og inntaksbox

Ólíkt skilaboðakassi eru inntaksreitir notaðir til að fá endurgjöf frá notandanum. Við skulum skoða dæmið hér að neðan. Handritið setur sjálfkrafa nýjar glærur inn í kynninguna.

Hér er það sem við munum útfæra:

  1. Við munum fyrst biðja notandann um fjölda skyggna sem á að bæta við (með því að nota inntaksbox).
  2. Við munum síðan láta notandann vita um fjölda skyggna sem á að búa til (með skilaboðakassi)
  3. Síðast, mun halda áfram og búa til glærurnar forritunarlega.
  4. Síðast munum við vista breytta kynningu


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

Vonandi hjálpaði það, ekki hika við að skilja eftir athugasemdir eftir þörfum.

Athugaðu gildin sem skilað er frá MsgBox aðgerðinni

Þegar MsgBox valmyndin birtist fyrir notendaviðskipti, þú vilt vita hvaða valmöguleika notandinn smellti á, þú getur notað eftirfarandi kóða til að athuga það:

Kóðinn athugar hvaða hnapp notandinn velur á MsgBox

Í samræmi við val hvers notanda geturðu haldið áfram að keyra mismunandi kóða, þessa VBA kóða, sem þú getur lært á VBA námskeiðum með leiðandi sérfræðingum á Learn Excel Online.

Styður MsgBox víetnömsku með hreim? Svarið er nei, hvers vegna? Vegna þess að Microsoft forritaði það þannig. En er einhver önnur leið? Svarið er já, þú getur lesið greinina Using accented Vietnamese with MsgBox VBA

Allur kóðann í greininni sem þú getur séð á Gist:

  Undir HeoBasicMessageBox()
  MsgBox "Xin chao cac ban da den voi Hoc Excel Online"
  End Sub
   
  Undir 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
   
  Undir HeoMsgBoxResult1()
  Dim svar Sem VbMsgBoxResult
   
  svar = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult2()
  Dim svar Sem VbMsgBoxResult
   
  svar = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult3()
  Dim svar Sem VbMsgBoxResult
   
  svar = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
  MsgBox svar
   
  End Sub
   
  Undir HeoMsgBoxResult4()
  Dim svar Sem VbMsgBoxResult
   
  svar = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult5()
  Dim svar Sem VbMsgBoxResult
  svar = MsgBox("Villa", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult6()
  Dim svar Sem VbMsgBoxResult
  svar = MsgBox("Villa", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult7()
  Dim svar Sem VbMsgBoxResult
  svar = MsgBox("Villa", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult8()
  Dim svar Sem VbMsgBoxResult
  svar = MsgBox("Villa", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult9()
  Dim svar Sem VbMsgBoxResult
  svar = MsgBox("Viltu reyna aftur?", vbRetryCancel + vbQuestion, "Villa")
  MsgBox svar
  End Sub
   
  Undir HeoMsgBoxResult10()
  MsgBox "Mikilvæg villa kom upp", vbCritical, "Kerfisvilla"
  End Sub

Leiðbeiningar til að hlusta á tónlist á Google kortum

Leiðbeiningar til að hlusta á tónlist á Google kortum

Leiðbeiningar um að hlusta á tónlist á Google kortum. Eins og er geta notendur ferðast og hlustað á tónlist með því að nota Google Map forritið á iPhone. Í dag býður WebTech360 þér

Leiðbeiningar um notkun LifeBOX - geymsluþjónustu Viettel á netinu

Leiðbeiningar um notkun LifeBOX - geymsluþjónustu Viettel á netinu

Leiðbeiningar um notkun LifeBOX - geymsluþjónusta Viettel á netinu, LifeBOX er nýlega opnuð netgeymsluþjónusta Viettel með marga yfirburði eiginleika

Hvernig á að uppfæra stöðu á Facebook Messenger

Hvernig á að uppfæra stöðu á Facebook Messenger

Hvernig á að uppfæra stöðu á Facebook Messenger, Facebook Messenger í nýjustu útgáfunni hefur veitt notendum afar gagnlegan eiginleika: að breyta

Leiðbeiningar fyrir kortaleikinn Werewolf Online á tölvunni

Leiðbeiningar fyrir kortaleikinn Werewolf Online á tölvunni

Leiðbeiningar fyrir kortaleikinn Werewolf Online á tölvunni, Leiðbeiningar um niðurhal, uppsetningu og spilun Werewolf Online á tölvunni í gegnum einstaklega einfalda LDPlayer keppinautinn.

Leiðbeiningar um að eyða sögum settar á Instagram

Leiðbeiningar um að eyða sögum settar á Instagram

Leiðbeiningar um að eyða sögum settar á Instagram. Ef þú vilt eyða sögu á Instagram en veist ekki hvernig? Í dag WebTech360

Leiðbeiningar um að bæta við myndum á Facebook

Leiðbeiningar um að bæta við myndum á Facebook

Leiðbeiningar um að bæta við myndum á Facebook. Eins og er gerir Facebook okkur kleift að stilla myndir á persónulegum síðum okkar. Hér bjóðum við þér

Hvernig á að laga villu í Windows Quick Assist sem virkar ekki

Hvernig á að laga villu í Windows Quick Assist sem virkar ekki

Hvernig á að laga villu í Windows Quick Assist sem virkar ekki, Windows Quick Assist hjálpar þér að tengjast ytri tölvu auðveldlega. Hins vegar, stundum býr það líka til villur. En,

Leiðbeiningar um að kveikja/slökkva á blöndun laga á Spotify

Leiðbeiningar um að kveikja/slökkva á blöndun laga á Spotify

Leiðbeiningar um að kveikja/slökkva á því að blanda lögum á Spotify, Til að hjálpa fólki að breyta röð laga á lagalistanum hér að ofan

Leiðbeiningar til að taka upp hljóð í leyni á iPhone

Leiðbeiningar til að taka upp hljóð í leyni á iPhone

Leiðbeiningar um leynilegar upptökur á iPhone, Eins og er geta iPhone notendur tekið upp leynilega með því að snerta bakhlið símans. Í dag býður WebTech360 þér

Hvernig á að nota Mixamo til að búa til sérsniðin þrívíddarlíkön

Hvernig á að nota Mixamo til að búa til sérsniðin þrívíddarlíkön

Hvernig á að nota Mixamo til að lífga sérsniðin þrívíddarlíkön Með Mixamo geturðu auðveldlega flutt inn þrívíddarlíkan og beitt hreyfimyndaáhrifum á það. Hér að neðan eru leiðbeiningar um notkun