Làm thế nào để làm việc với Hộp thư và Hộp nhập trong PowerPoint VBA?

Xem qua các nhận xét, tôi đã thấy một số câu hỏi của độc giả về cách làm việc với hộp Nhập và Thông báo Visual Basic trong PowerPoint.

Trong hướng dẫn này, chúng tôi sẽ cung cấp kiến ​​thức nền tảng rất cơ bản để giúp bạn sử dụng các khả năng đó khi tự động tạo bản trình bày của mình.

Thiết lập Tab nhà phát triển

Trước hết, chúng ta cần kích hoạt môi trường nhà phát triển cho PowerPoint. Làm theo hướng dẫn này để thiết lập tab phát triển của bạn.

Trong PowerPoint, đi tới menu Nhà phát triển và nhấn Visual Basic.

Trong cây Dự án, bấm chuột phải vào bản trình bày của bạn, bấm Chèn và sau đó chọn Mô-đun. Một Mô-đun VBA mới sẽ được tạo, đó là nơi bạn sẽ viết mã của mình.

Hộp thư trong PowerPoint

Hộp thông báo là loại tự giải thích, mục tiêu của chúng là hiển thị một số thông tin hữu ích cho người dùng cuối. Viết mã sau trong Mô-đun của bạn:

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

Nhấn F5 hoặc Run và xem kết quả:

Ví dụ về Hộp thư và Hộp nhập liệu

Không giống như Hộp thư, hộp nhập được sử dụng để lấy phản hồi từ người dùng. Hãy xem ví dụ dưới đây. Tập lệnh tự động chèn các trang trình bày mới vào bản trình bày.

Đây là những gì chúng tôi sẽ triển khai:

1. Đầu tiên, chúng tôi sẽ nhắc người dùng về số lượng trang trình bày cần thêm (sử dụng Hộp nhập liệu).
2. Sau đó, chúng tôi sẽ thông báo cho người dùng về số lượng trang trình bày sẽ được tạo (sử dụng Hộp thông báo)
3. Cuối cùng, sẽ tiếp tục và tạo các trang trình bày theo chương trình.
4. Cuối cùng, chúng tôi sẽ lưu bản trình bày đã sửa đổi

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

Hy vọng rằng điều đó đã giúp, vui lòng để lại bình luận khi cần thiết.