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:

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.