วิธีการทำงานกับกล่องข้อความและอินพุตใน PowerPoint VBA

เมื่อพิจารณาจากความคิดเห็นแล้ว ฉันได้เห็นคำถามของผู้อ่านสองสามข้อเกี่ยวกับวิธีการทำงานกับกล่องข้อความและ Visual Basic Input ใน PowerPoint

ในบทช่วยสอนนี้ เราจะให้ความรู้พื้นฐานขั้นพื้นฐานเพื่อช่วยให้คุณใช้ความสามารถเหล่านั้นในการสร้างงานนำเสนอของคุณโดยอัตโนมัติ

การตั้งค่าแท็บนักพัฒนา

ก่อนอื่น เราจะต้องเปิดใช้งานสภาพแวดล้อมของนักพัฒนาสำหรับ PowerPoint ทำตามบทช่วยสอนนี้เพื่อตั้งค่าแท็บการพัฒนาของคุณ

ใน PowerPoint ไปที่เมนู Developer แล้วกด Visual Basic

ในแผนผังโครงการ ให้คลิกขวาที่งานนำเสนอของคุณ กด แทรก แล้วเลือก โมดูล โมดูล VBA ใหม่จะถูกสร้างขึ้น ซึ่งเป็นที่ที่คุณจะเขียนโค้ด

กล่องข้อความใน PowerPoint

กล่องข้อความเป็นแบบอธิบายตนเอง เป้าหมายคือการแสดงข้อมูลที่เป็นประโยชน์ต่อผู้ใช้ปลายทาง เขียนโค้ดต่อไปนี้ในโมดูลของคุณ:

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

กด F5 หรือ Run และดูผลลัพธ์:

ตัวอย่างข้อความและช่องใส่ข้อความ

กล่องข้อความต่างจากกล่องข้อความที่ใช้เพื่อรับคำติชมจากผู้ใช้ ลองดูตัวอย่างด้านล่าง สคริปต์จะแทรกสไลด์ใหม่ลงในงานนำเสนอโดยอัตโนมัติ

นี่คือสิ่งที่เราจะนำไปใช้:

1. ก่อนอื่นเราจะแจ้งผู้ใช้ให้ใส่จำนวนสไลด์ที่จะเพิ่ม (โดยใช้ช่องป้อนข้อมูล)
2. จากนั้นเราจะแจ้งผู้ใช้เกี่ยวกับจำนวนสไลด์ที่จะสร้าง (โดยใช้กล่องข้อความ)
3. สุดท้าย จะสร้างสไลด์โดยทางโปรแกรม
4. สุดท้ายเราจะบันทึกการนำเสนอที่แก้ไข

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

หวังว่าจะช่วยได้ โปรดแสดงความคิดเห็นได้ตามต้องการ