Làm cách nào để sao chép thêm các trang trình bày vào bản trình bày PowerPoint của bạn với VBA Macro?

Cập nhật lần cuối: Tháng 6 năm 2020

Áp dụng cho: Office 2019 trở lên. Chỉ dành cho Windows.

Đây là câu hỏi của một độc giả:

Là một phần của bản trình bày báo cáo hàng quý của tôi với ban giám đốc, tôi thường cần sao chép một số trang trình bày thông tin chung từ các bản trình bày khác. Không phải là một vấn đề lớn, nhưng nó sẽ là một tiết kiệm đáng kể để có thể tự động hóa bài tập này. Bất kỳ trợ giúp VBA Macro nào để thực hiện điều đó đều được đánh giá cao!

Như bạn vừa đề cập, bạn có thể tự động sao chép và dán các trang chiếu trong PowerPoint bằng Visual Basic for Applications. Nếu bạn cần tạo nhiều bản trình bày mỗi tháng, tính năng tự động sao chép / nhập trang chiếu này có thể trở thành một công cụ tiết kiệm thời gian rất lớn!

PowerPoint VBA để thêm các trang chiếu

Hãy bắt đầu với bài tập đơn giản này.

Trước hết, hãy đảm bảo rằng tab phát triển của bạn được bật và hiển thị. Đây là cách để làm điều đó .

Tôi giả sử rằng bạn đã tạo một bản trình bày hỗ trợ Macro (loại tệp là .pptm), mà bạn đã đặt trong cùng thư mục với bản trình bày nguồn của bạn (mà tôi sẽ gọi là source.pptm). Đây là cách tạo bản trình bày PowerPoint với VBA .

Trước hết, hãy tạo một bản sao lưu của bản trình bày đó (sao chép và lưu đơn giản).

Sau đó, hãy để chúng tôi tiếp tục và chèn Macro sau vào một mô-đun VBA mới trong bản trình bày đích của bạn. Tất cả chi tiết về cách thực hiện điều đó có thể được tìm thấy trong hướng dẫn PowerPoint VBA của chúng tôi .

Đây là mã VBA mà bạn cần để tự động sao chép và dán các trang trình bày.

Một số giả định tôi đã đưa ra:

  • Bản trình bày nguồn của bạn có tên là source.pptm
  •  Bạn sẽ dán các trang trình bày 2-4 từ bản trình bày nguồn của mình
  • Bạn sẽ đặt các trang trình bày đã sao chép bắt đầu trang trình bày 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

Rõ ràng, hãy thoải mái thay đổi lập chỉ mục số slide trong mã để chúng phù hợp với yêu cầu của bạn.

Bạn có thể làm cho nó lặp lại qua một số bản trình bày và chèn các trang trình bày cụ thể từ mỗi bản trình bày vào báo cáo quản lý của mình.

PowerPoint VBA để sao chép các trang trình bày

Thay vì sao chép các trang trình bày sang một bản trình bày khác, bạn có thể muốn sao chép một hoặc nhiều trang trình bày trong bản trình bày của mình:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

Đó chỉ là một vài ví dụ đơn giản về tự động hóa PowerPoint. Độc giả tìm kiếm câu hỏi cụ thể, vui lòng gửi yêu cầu thông qua trang Liên hệ.

Hy vọng nó sẽ giúp 🙂

Giữ nguyên định dạng khi sao chép slide

Vấn đề với ví dụ trước là định dạng chủ đề bản trình bày ban đầu không được sao chép. Giả sử 2 trang tính có định dạng khác nhau thì điều này sẽ xảy ra:

ví dụ 1

 

Sub main()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

Next i

objPresentation.Close

End Sub

Trước khi chạy mã
Đây là bản trình bày có slide mà chúng tôi muốn sao chép: Kết quả: Để khắc phục vấn đề này, bạn có thể sử dụng mã bên dưới:
Các slide cần sao chép

Kết quả

 

Sub Example2()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

    Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _

        objPresentation.Slides.Item(i).Design

Next i

objPresentation.Close

End Sub

Ngoài việc sao chép slide, đoạn mã trên còn sao chép thiết kế. Nếu bạn muốn thực hiện việc này một cách thủ công, bạn sẽ sao chép slidemaster sang bản trình bày mới. Bạn không thể sao chép slidemaster bằng VBA mà thay vào đó bạn có thể đặt thuộc tính thiết kế của các slide.

Để lại bình luận

Mẫu danh sách kiểm tra lập kế hoạch sự kiện và ngân sách có thể in cho Word

Mẫu danh sách kiểm tra lập kế hoạch sự kiện và ngân sách có thể in cho Word

Sử dụng mẫu danh sách kiểm tra lập kế hoạch sự kiện và ngân sách có thể in trong Word để theo dõi người phụ trách, thời hạn, chi phí, nhà cung cấp và mức độ sẵn sàng cho ngày diễn ra sự kiện với các bước kiểm tra chất lượng rõ ràng.

Cách khắc phục lỗi công thức Excel không tự động tính toán trong 3 bước đơn giản

Cách khắc phục lỗi công thức Excel không tự động tính toán trong 3 bước đơn giản

Khắc phục các công thức Excel không tự động tính toán theo ba bước: khôi phục chế độ tính toán, buộc tính toán lại và sửa các công thức bị định dạng dưới dạng văn bản.

Mẫu Lịch Trình Dọn Dẹp Hàng Tuần Có Thể In Cho Chủ Nhà Airbnb (Word & PDF)

Mẫu Lịch Trình Dọn Dẹp Hàng Tuần Có Thể In Cho Chủ Nhà Airbnb (Word & PDF)

Sử dụng lịch trình dọn dẹp hàng tuần có thể in này cho việc cho thuê Airbnb để tổ chức việc dọn dẹp giữa các kỳ nghỉ, dọn dẹp định kỳ, bổ sung đồ dùng, kiểm tra và chuyển đổi từ Word sang PDF.

Mẫu Bảng Ghi Chỉnh Bảo Trì Thiết Bị Excel Cho Quản Lý Xưởng: Hướng Dẫn Thiết Lập 4 Bước

Mẫu Bảng Ghi Chỉnh Bảo Trì Thiết Bị Excel Cho Quản Lý Xưởng: Hướng Dẫn Thiết Lập 4 Bước

Xây dựng bảng ghi chỉnh bảo trì thiết bị Excel thực tế cho quản lý xưởng với mã tài sản, lịch sử dịch vụ, ngày đến hạn, kiểm soát trạng thái, theo dõi thời gian ngừng hoạt động và danh sách kiểm tra cuối cùng.

Mẫu PowerPoint Thuyết trình Nhà đầu tư Tối giản cho Startup Công nghệ: Khung thiết kế 12 slide thực tế

Mẫu PowerPoint Thuyết trình Nhà đầu tư Tối giản cho Startup Công nghệ: Khung thiết kế 12 slide thực tế

Xây dựng bộ hồ sơ thuyết trình nhà đầu tư tối giản trên PowerPoint với cấu trúc 12 slide thực tế dành cho startup công nghệ, kèm hướng dẫn về bằng chứng, chỉ số, tuyên bố huy động vốn và mẫu .potx có thể tái sử dụng.

Mẫu PowerPoint Trình bày Niêm yết Bất động sản Hiện đại Miễn phí: Khung蓝图 Thực tế cho Nhà môi giới

Mẫu PowerPoint Trình bày Niêm yết Bất động sản Hiện đại Miễn phí: Khung蓝图 Thực tế cho Nhà môi giới

Xây dựng bài thuyết trình niêm yết bất động sản hiện đại trên PowerPoint với khung slide miễn phí, mẹo mẫu đã xác minh, cảnh báo về CMA, kiểm tra quyền hình ảnh và các biện pháp bảo vệ Nhà ở Công bằng.

HubSpot Free CRM so với Zoho CRM: Lựa chọn tốt nhất cho môi giới bất động sản độc lập năm 2026

HubSpot Free CRM so với Zoho CRM: Lựa chọn tốt nhất cho môi giới bất động sản độc lập năm 2026

So sánh HubSpot Free CRM và Zoho CRM cho môi giới bất động sản độc lập, bao gồm danh bạ, quy trình bán hàng, tự động hóa, tùy chỉnh, đặt lịch, giới hạn và thời điểm nâng cấp.

Cách khắc phục lỗi âm thanh khi ghi màn hình PowerPoint trên Windows

Cách khắc phục lỗi âm thanh khi ghi màn hình PowerPoint trên Windows

Khắc phục tình trạng ghi màn hình PowerPoint bị mất tiếng bằng cách kiểm tra điều khiển Âm thanh, quyền truy cập micro của Windows, thiết bị đầu vào đang hoạt động, kỳ vọng về âm thanh hệ thống và các bản cập nhật Office.

Mẫu PDF lập kế hoạch thời gian theo khối hàng ngày có thể in cho chuyên gia làm việc tại nhà: Hướng dẫn dành cho người mới bắt đầu

Mẫu PDF lập kế hoạch thời gian theo khối hàng ngày có thể in cho chuyên gia làm việc tại nhà: Hướng dẫn dành cho người mới bắt đầu

Sử dụng mẫu PDF lập kế hoạch thời gian theo khối hàng ngày có thể in để lên kế hoạch cho các giờ làm việc tập trung, cuộc họp, giờ nghỉ, công việc hành chính và các khoảng đệm thực tế khi làm việc tại nhà mà không nhồi nhét quá nhiều vào một ngày.

Mẫu thuyết trình báo cáo trạng thái dự án miễn phí cho các nhóm Agile

Mẫu thuyết trình báo cáo trạng thái dự án miễn phí cho các nhóm Agile

Xây dựng bài thuyết trình báo cáo trạng thái dự án Agile ngắn gọn với mục tiêu sprint, kết quả, rủi ro, tín hiệu chất lượng, quyết định và các bước tiếp theo—mà không biến bài thuyết trình thành một danh sách tồn đọng công việc.