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.
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 NextEnd Sub