Xóa TextBox có tên cụ thể trong Powerpoint bằng VBA

Tôi có một bài thuyết trình PowerPoint có khoảng 105 slide. Trên mỗi slide, có một Hộp văn bản có tên là TextBox4. Tôi muốn xóa tất cả các hộp văn bản.

Tôi đã thử một số mã VBA bằng Google Search. Nhưng điều đó không hiệu quả.

Bất cứ ai có thể giúp tôi với VBA về điều này.

vba microsoft-powerpoint presentations

— Lập trình viên
nguồn

Bạn có thể vui lòng cập nhật mã để hiểu rõ hơn

— Linga

Chúng tôi không phải là một dịch vụ viết kịch bản. Chúng tôi hy vọng người dùng sẽ cho chúng tôi biết những gì họ đã cố gắng cho đến nay (bao gồm mọi tập lệnh họ đang sử dụng) và nơi họ bị mắc kẹt để chúng tôi có thể giúp đỡ với các vấn đề cụ thể. Các câu hỏi chỉ yêu cầu các tập lệnh quá rộng và có khả năng bị giữ hoặc đóng . Xin vui lòng đọc Làm thế nào để tôi hỏi một câu hỏi tốt? .

— DavidPostill

Tôi biết nó rất rõ. Cảm ơn rât nhiều. Nhưng nếu bạn chia sẻ kiến thức thay vì chỉ gợi ý cho tôi cách sử dụng.

— Lập trình viên

Giả sử bạn có nghĩa là một hộp văn bản ActiveX như vậy:

Bạn có thể sử dụng mã VBA sau để lặp qua mỗi trang và xóa hộp văn bản.

Sub DeleteTextBox()
    On Error Resume Next
    Dim PPSlide As Slide
    For Each PPSlide In ActivePresentation.Slides
        PPSlide.Shapes("TextBox4").Delete
    Next
End Sub

— Jonno
nguồn