Đây là hướng dẫn đầy đủ để tự động hóa PowerPoint bằng Macro VBA (Visual Basic for Applications). Dưới đây bạn sẽ tìm thấy nhiều ví dụ hữu ích.
VBA PDF (Tải xuống miễn phí)
Tải xuống Hướng dẫn Microsoft PowerPoint VBA miễn phí của chúng tôi! Hoặc Hướng dẫn VBA cho các Chương trình Office khác!
Tải xuống
Hướng dẫn PowerPoint VBA (Macro)
Lưu dưới dạng bản trình bày được bật macro
Bản trình bày có mã VBA phải là Bản trình bày được kích hoạt macro trên PowerPoint (* .pptm)
Bật Tab 'Nhà phát triển' trong Ribbon
Bạn nên bật tab Nhà phát triển trên Ribbon trước khi tạo mã VBA. Để làm như vậy, hãy chọn Tệp -> Tùy chọn rồi nhấp vào ‘Tùy chỉnh ruy-băng’ và chọn hộp bên cạnh tab ‘Nhà phát triển’ trong ngăn bên phải.
Tạo macro PowerPoint
Đây là một ví dụ đơn giản về Macro PowerPoint VBA:
| 1234567891011 | Sub SavePresentationAsPDF ()Dim pptName As StringLàm mờ tên PDF thành chuỗi'Lưu PowerPoint dưới dạng PDFpptName = ActivePresentation.FullName'Thay thế phần mở rộng tệp PowerPoint trong tên thành PDFPDFName = Left (pptName, InStr (pptName, ".")) & "Pdf"ActivePresentation.ExportAsFixedFormat PDFName, 2 'ppFixedFormatTypePDF = 2Kết thúc Sub |
Nó lưu bản trình bày đang hoạt động dưới dạng PDF. Mỗi dòng mã thực hiện những việc sau:
- Tạo các biến cho tên PowerPoint và tên PDF
- Gán tên bản trình bày hoạt động cho biến pptName
- Tạo tên PDF đầy đủ
- Lưu bản trình bày dưới dạng PDF
Ứng dụng PowerPoint
Khi mã VBA đang chạy trong Bản trình bày PowerPoint, Ứng dụng PowerPoint là ứng dụng mặc định và nó có thể được thao tác mà không cần tham chiếu rõ ràng. Tạo bản trình bày mới
Để tạo bản trình bày, hãy sử dụng phương pháp Thêm của ứng dụng PowerPoint.
| 123 | Application.Presentations.Add'hoặc không có tham chiếu rõ ràngBản trình bày. Thêm |
Mở một bản trình bày mới
Để mở một bản trình bày mới và trống, hãy sử dụng phương pháp Thêm ứng dụng.
| 1 | Bản trình bày. Thêm |
Mở một bản trình bày hiện có
Để mở một bản trình bày mà bạn đã tạo, hãy sử dụng phương pháp Mở của Ứng dụng.
| 1 | Presentations.Open ("My Presentation.pptx") |
Đoạn mã trên giả định rằng bản trình bày nằm trong cùng thư mục với Bản trình bày PowerPoint có chứa mã.
Mở và gán cho một biến
Bạn nên gán bản trình bày bạn mở cho một biến để bạn có thể thao tác nó theo yêu cầu của mình.
| 12 | Làm mờ ppt dưới dạng bản trình bàyĐặt ppt = Presentations.Open ("My Presentation.pptx") |
Tham khảo Bản trình bày hoạt động
Sử dụng tham chiếu ActivePrentation để thao tác với Bản trình bày đang hoạt động trong GUI khi mã VBA được thực thi.
| 12 | 'In tên của ActivePresentation vào Cửa sổ ngay lập tứcDebug.Print ActivePresentation.Name |
Lưu bản trình bày hiện tại
Câu lệnh dưới đây sẽ lưu Bản trình bày đang hoạt động nếu nó đã được lưu trước đó. Nó chưa được lưu thì bạn sẽ được nhắc bằng hộp thoại "Save As".
| 1 | ActivePresentation.Save |
Đóng bản trình bày hiện tại
Câu lệnh dưới đây sẽ đóng Bản trình bày đang hoạt động ngay cả khi nó không được lưu sau lần chỉnh sửa cuối cùng.
| 1 | ActivePresentation.Close |
Tài liệu tham khảo hữu ích
Gán bản trình bày hiện có (theo tên) cho biến
| 12 | Làm mờ myPresentationByName dưới dạng bản trình bàyĐặt myPresentationByName = Application.Presentations ("Bản trình bày của tôi") |
Gán Trang trình bày Hoạt động cho Biến
| 12 | Làm mờ dòng điện Trượt dưới dạng Trang chiếuĐặt currentSlide = Application.ActiveWindow.View.Slide |
Gán trang trình bày theo Chỉ mục thành Biến
| 12 | Dim mySlide As SlideĐặt mySlide = ActivePresentation.Slides (11) |
Đếm số trang trình bày
| 12 | Dim slideCount As LongslideCount = ActivePresentation.Slides.Count |
Nhận số chỉ mục trang trình bày của trang trình bày hiện tại
| 12 | Làm mờ currentSlideIndex As SlidecurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndex |
Thêm một trang chiếu trống vào cuối trình chiếu
| 1234567 | Dim slideCount As LongLàm mờ newSlide as SlideslideCount = ActivePresentation.Slides.CountĐặt newSlide = ActivePresentation.Slides.Add (slideCount + 1, 12)'hoặc như ppLayoutBlank = 12Đặt newSlide = ActivePresentation.Slides.Add (slideCount + 1, ppLayoutBlank) |
Thêm một trang chiếu sau trang chiếu hiện tại
| 12345 | Dim newSlide As SlideLàm mờ hiện tạiSlideIndex dưới dạng Số nguyêncurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndexĐặt newSlide = ActivePresentation.Slides.Add (currentSlideIndex, ppLayoutBlank) |
Xóa một trang trình bày
| 1234 | Làm mờ hiện tạiSlideIndex dưới dạng Số nguyêncurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndexActivePresentation.Slides (currentSlideIndex) .Delete |
Đi đến một Trang trình bày Cụ thể
| 12 | 'Điều này sẽ đưa bạn đến slide số 4Application.ActiveWindow.View.GotoSlide (4) |
Di chuyển trang trình bày
Bạn có thể di chuyển một trang chiếu từ vị trí cũ sang vị trí mới
| 123456 | 'Di chuyển từ trang trình bày 3 sang trang trình bày đầu tiênLàm mờ oldPosition dưới dạng số nguyên, làm mờ newPosition dưới dạng số nguyênoldPosition = 3newPosition = 1ActivePresentation.Slides (oldPosition) .MoveTo toPos: = newPosition |
Vòng qua tất cả các trang trình bày
Bạn có thể làm điều gì đó với mỗi trang trình bày hoặc đi qua tất cả các trang trình bày để tìm một vài trang trình bày và làm điều gì đó với việc sử dụng mã;
| 123456 | Làm mờ mySlide dưới dạng Trang trình bàyĐối với mỗi mySlide Trong ActivePresentation.Slides'Làm điều gì đó với trang trình bày hiện tại được tham chiếu trong biến' mySlide ''Debug.Print mySlide.NameTrang trình bày tiếp theo |
Lặp qua tất cả các hình dạng của trang trình bày hoạt động
Sức mạnh của PowerPoint có thể được thực hiện bằng cách sử dụng ‘Hình dạng.’ Đoạn mã dưới đây lặp lại tất cả các hình dạng trên trang chiếu hiện tại để bạn có thể thao tác chúng theo ý muốn;
| 123456789 | Làm mờ dòng điện Trượt dưới dạng Trang trình bàyDim shp dưới dạng hình dạngĐặt currentSlide = Application.ActiveWindow.View.SlideĐối với mỗi shp Trong hiện tại Trượt. Hình dạng'Làm điều gì đó với hình dạng hiện tại được đề cập đến trong biến' shp ''Ví dụ: in tên của hình dạng trong Cửa sổ ngay lập tứcDebug.Print shp.NameShp tiếp theo |
Lặp qua Tất cả các hình dạng trong Tất cả các Trang trình bày
Bạn có thể lặp qua tất cả các hình trong bản trình bày bằng cách thêm một vòng lặp để đi qua tất cả các trang chiếu.
| 123456789 | Làm mờ dòng điện Trượt dưới dạng Trang trình bàyDim shp dưới dạng hình dạngĐối với mỗi currentSlide Trong ActivePresentation.SlidesĐối với mỗi shp Trong hiện tại Trượt. Hình dạng'Làm điều gì đó với hình dạng hiện tại được đề cập đến trong biến' shp 'Debug.Print shp.NameShp tiếp theoTiếp theo currentSlide |
Lặp qua tất cả các hộp văn bản của trang trình bày hoạt động
Hộp văn bản là Hình dạng thường được sử dụng nhất trong các bản trình bày PowerPoint. Bạn có thể lặp lại tất cả các Hộp văn bản bằng cách thêm dấu kiểm cho ‘Kiểu hình dạng.’ Các TexBox có kiểu hình dạng được xác định là hằng số VBA msoTextBox (giá trị số của hằng số là 17)
| 1234567891011 | Làm mờ dòng điện Trượt dưới dạng Trang trình bàyDim shp dưới dạng hình dạngĐặt currentSlide = Application.ActiveWindow.View.SlideĐối với mỗi shp Trong hiện tại Trượt. Hình dạng'Kiểm tra xem loại hình dạng có phải là msoTextBox khôngNếu shp.Type = 17 Thì 'msoTextBox = 17'In văn bản trong TextBoxDebug.Print shp.TextFrame2.TextRange.TextKết thúc nếuShp tiếp theo |
Lặp qua tất cả các hộp văn bản trong tất cả các trang trình bày
Một lần nữa, bạn có thể lặp lại tất cả các hộp văn bản trong bản trình bày bằng cách thêm một vòng lặp để đi qua tất cả các trang trình bày.
| 1234567891011 | Làm mờ dòng điện Trượt dưới dạng Trượt Làm mờ shp dưới dạng Hình dạngĐối với mỗi currentSlide Trong ActivePresentation.SlidesĐối với mỗi shp Trong hiện tại Trượt. Hình dạng'Kiểm tra xem loại hình dạng có phải là msoTextBox khôngNếu shp.Type = 17 Thì 'msoTextBox = 17'Làm điều gì đó với TextBox được tham chiếu trong biến' shp 'Debug.Print shp.TextFrame2.TextRange.TextKết thúc nếuShp tiếp theoTiếp theo currentSlide |
Sao chép các trang trình bày đã chọn sang Bản trình bày PPT mới
Để sao chép các trang trình bày nhất định sang một bản trình bày mới, trước tiên hãy chọn các trang trình bày mong muốn trong bản trình bày hiện có và sau đó chạy mã bên dưới;
| 123456789101112131415161718 | Làm mờ hiện tại Trình bày dưới dạng Bản trình bàyLàm mờ dòng điện Trượt dưới dạng Trang trình bàyLàm mờ bản trình bày mới dưới dạng bản trình bày'Lưu tham chiếu đến bản trình bày hiện tạiĐặt currentPresentation = Application.ActivePresentation'Lưu tham chiếu vào trang trình bày hiện tạiĐặt currentSlide = Application.ActiveWindow.View.Slide'Thêm Bản trình bày mới và lưu vào tài liệu tham khảoĐặt NewPresentation = Application.Presentations.Add'Sao chép các trang trình bày đã chọnLựa chọn. Sao chép'Dán nó vào bản trình bày mớiNewPresentation.Slides.Paste |
Sao chép Trang trình bày Hoạt động để Kết thúc Bản trình bày Hoạt động
| 12345 | 'Sao chép trang trình bày hiện tạiApplication.ActiveWindow.View.Slide.Copy'Dán vào cuốiActivePresentation.Slides.Paste |
Các ví dụ hữu ích về macro PowerPoint
Dưới đây là một số ví dụ macro hữu ích cho thấy cách thực hiện các tác vụ. Những điều này cũng sẽ chứng minh các khái niệm được mô tả ở trên.
Thay đổi trang chiếu trong khi trình chiếu
| 1234567891011 | Sub ChangeSlideDuringSlideShow ()Dim SlideIndex dưới dạng số nguyênDim SlideIndexPre Before As Integer'Thay đổi trang trình bày Hiện tại thành trang trình bày 4 đã chọn trong khi trình chiếuSlideIndex = 4'Chỉ mục của cửa sổ trình chiếu hiện tại là 1 trong bộ sưu tập SlideShowWindowsSlideIndexPrevious = SlideShowWindows (1) .View.CurrentShowPositionSlideShowWindows (1) .View.GotoSlide SlideIndexKết thúc Sub |
Thay đổi phông chữ trên tất cả các trang trình bày trong tất cả các hộp văn bản
| 123456789101112131415 | Sub ChangeFontOnAllSlides ()Làm mờ mySlide dưới dạng trang trình bàyDim shp như hình dạng'Thay đổi kích thước phông chữ trên tất cả các Trang trình bàyĐối với mỗi mySlide Trong ActivePresentation.SlidesĐối với mỗi lần shp Trong mySlide.ShapesNếu shp.Type = 17 Thì 'msoTextBox = 17'Thay đổi kích thước phông chữ thành 24shp.TextFrame.TextRange.Font.Size = 24Kết thúc nếuShp tiếp theoMySlide tiếp theoKết thúc Sub |
Thay đổi chữ hoa từ chữ hoa sang chữ thường trong tất cả các ô văn bản
| 123456789101112131415 | Sub ChangeCaseFromUppertoNormal ()Làm mờ mySlide dưới dạng trang trình bàyDim shp như hình dạng'Thay đổi từ chữ hoa thành chữ thường cho tất cả các trang trình bàyĐối với mỗi mySlide Trong ActivePresentation.SlidesĐối với mỗi lần shp Trong mySlide.ShapesNếu shp.Type = 17 Thì 'msoTextBox = 17'Thay đổi chữ hoa thành chữ thườngshp.TextFrame2.TextRange.Font.Allcaps = SaiKết thúc nếuShp tiếp theoMySlide tiếp theoKết thúc Sub |
Chuyển đổi chữ hoa giữa chữ hoa và chữ thường trong tất cả các ô văn bản
| 12345678910111213141516 | Sub ToggleCaseBetweenUpperAndNormal ()Làm mờ mySlide dưới dạng trang trình bàyDim shp như hình dạng'Chuyển đổi giữa Chữ hoa và Chữ thường cho tất cả các trang trình bàyĐối với mỗi mySlide Trong ActivePresentation.SlidesĐối với mỗi lần shp Trong mySlide.ShapesNếu shp.Type = 17 Thì 'msoTextBox = 17'Chuyển đổi giữa chữ hoa và chữ thườngshp.TextFrame2.TextRange.Font.Allcaps = _Không phải shp.TextFrame2.TextRange.Font.AllcapsKết thúc nếuShp tiếp theoMySlide tiếp theoKết thúc Sub |
Xóa gạch chân khỏi Descenders
Trong kiểu chữ, dấu giảm dần là một phần của chữ cái kéo dài bên dưới đường cơ sở của phông chữ. Trong hầu hết các phông chữ, dấu giảm dần được dành riêng cho các ký tự viết thường như g, j, q, p, y và đôi khi là f.
Khi bạn gạch dưới văn bản, nó trông không đẹp dưới các dấu giảm dần. Đây là mã để xóa gạch chân khỏi tất cả các ký tự g, j, p, q và y trong toàn bộ Bản trình bày.
| 1234567891011121314151617181920212223242526 | Sub RemoveUnderlineFromDescenders ()Làm mờ mySlide dưới dạng trang trình bàyDim shp như hình dạngGiảm độ sáng của danh sách dưới dạng chuỗiLàm mờ cụm từ dưới dạng chuỗiDim x As Long'Xóa gạch chân khỏi Descendersdownders_list = "gjpqy"Đối với mỗi mySlide Trong ActivePresentation.SlidesĐối với mỗi lần shp Trong mySlide.ShapesNếu shp.Type = 17 Thì 'msoTextBox = 17'Xóa gạch chân khỏi các chữ cái "gjpqy"Với shp.TextFrame.TextRangecụm từ = .TextĐối với x = 1 Tới Len (.Text)Nếu InStr (danh sách giảm dần, giữa $ (cụm từ, x, 1))> 0 Thì.Characters (x, 1) .Font.Underline = FalseKết thúc nếuTiếp theo xKết thúc vớiKết thúc nếuShp tiếp theoMySlide tiếp theoKết thúc Sub |
Xóa hoạt ảnh khỏi tất cả các trang trình bày
Sử dụng mã bên dưới để xóa tất cả hoạt ảnh được đặt trong Bản trình bày.
| 123456789101112 | Sub RemoveAnimationsFromAllSlides ()Làm mờ mySlide dưới dạng trang trình bàyDim i As LongĐối với mỗi mySlide Trong ActivePresentation.SlidesĐối với i = mySlide.TimeLine.MainSequence.Count Tới 1 Bước -1'Xóa từng hoạt ảnhmySlide.TimeLine.MainSequence.Item (i) .DeleteTiếp theo tôiMySlide tiếp theoKết thúc Sub |
Lưu bản trình bày dưới dạng PDF
Bạn có thể dễ dàng lưu Bản trình bày hoạt động ở định dạng PDF.
| 1234567891011 | Sub SavePresentationAsPDF ()Dim pptName As StringLàm mờ tên PDF thành chuỗi'Lưu PowerPoint dưới dạng PDFpptName = ActivePresentation.FullName'Thay thế phần mở rộng tệp PowerPoint trong tên thành PDFPDFName = Left (pptName, InStr (pptName, ".")) & "Pdf"ActivePresentation.ExportAsFixedFormat PDFName, 2 'ppFixedFormatTypePDF = 2Kết thúc Sub |
Tìm và Thay thế Văn bản
Bạn có thể tìm và thay thế văn bản trong Tất cả Hộp văn bản của Tất cả Trang trình bày. Sau phiên bản đầu tiên của văn bản bạn muốn tìm (được định nghĩa bởi findWhat), bạn cần lặp qua lệnh Find để tìm các phiên bản khác, nếu có.
| 123456789101112131415161718192021222324252627282930313233 | Sub FindAndReplaceText ()Làm mờ mySlide dưới dạng trang trình bàyDim shp như hình dạngDim findWhat As StringThay thế mờVới như chuỗiDim ShpTxt As TextRangeLàm mờ TmpTxt dưới dạng TextRangefindWhat = "chó rừng"ReplaceWith = "cáo"'Tìm và Tìm và Thay thếĐối với mỗi mySlide Trong ActivePresentation.SlidesĐối với mỗi lần shp Trong mySlide.ShapesNếu shp.Type = 17 Thì 'msoTextBox = 17Đặt ShpTxt = shp.TextFrame.TextRange'Tìm Bản sao đầu tiên của từ "Tìm" (nếu tồn tại)Đặt TmpTxt = ShpTxt.Replace (findWhat, _Replacewhat: = ReplaceWith, _Whole AdWords: = True)'Tìm bất kỳ trường hợp bổ sung nào của từ "Tìm" (nếu tồn tại)Làm trong khi không TmpTxt là không có gìĐặt ShpTxt = ShpTxt.Characters (TmpTxt.Start + TmpTxt.Length, ShpTxt.Length)Đặt TmpTxt = ShpTxt.Replace (findWhat, _Replacewhat: = ReplaceWith, _Whole AdWords: = True)VòngKết thúc nếuShp tiếp theoMySlide tiếp theoKết thúc Sub |
Xuất trang trình bày dưới dạng hình ảnh
Bạn có thể xuất Trang chiếu hiện tại (hoặc bất kỳ trang trình bày nào khác) dưới dạng hình ảnh PNG hoặc JPG (JPEG) hoặc BMP.
| 1234567891011121314 | Sub ExportSlideAsImage ()Dim imageType As StringDim pptName As StringLàm mờ hình ảnh Tên dưới dạng chuỗiLàm mờ mySlide dưới dạng trang trình bày'Xuất Trang trình bày hiện tại sang Hình ảnhimageType = "png" 'hoặc jpg hoặc bmppptName = ActivePresentation.FullNameimageName = Left (pptName, InStr (pptName, ".")) & imageTypeĐặt mySlide = Application.ActiveWindow.View.slidemySlide.Export imageName, imageTypeKết thúc Sub |
Thay đổi kích thước hình ảnh để che toàn bộ trang trình bày
| 1234567891011121314151617181920212223242526 | Sub ResizeImageToCoverFullSlide ()Làm mờ mySlide dưới dạng trang trình bàyDim shp như hình dạng'Thay đổi kích thước hình ảnh thành kích thước trang trình bày đầy đủ'Thay đổi chiều cao và chiều rộng của hình dạng đầu tiên trên trang trình bày hiện tại'để phù hợp với kích thước trang trình bàyĐặt mySlide = Application.ActiveWindow.View.slideĐặt shp = mySlide.Shapes (1)'''' Thay thế hai trạng thái ở trên bằngcâu lệnh sau nếu bạn muốn'' mở rộng hình dạng hiện được chọn'' sẽ báo lỗi nếu không có gì được chọn'Đặt shp = ActiveWindow.Selection.ShapeRange (1)Với shp.LockAspectRatio = Sai.Height = ActivePresentation.PageSetup.SlideHeight.Width = ActivePresentation.PageSetup.SlideWidth.Left = 0.Top = 0Kết thúc vớiKết thúc Sub |
Thoát tất cả các trình chiếu đang chạy
Nếu bạn có nhiều Trình chiếu mở cùng một lúc thì bạn có thể đóng tất cả chúng bằng cách sử dụng macro bên dưới.
| 1234567 | Sub ExitAllRunningSlideShows ()Thực hiện trong khi SlideShowWindows.Count> 0SlideShowWindows (1) .View.ExitVòngKết thúc Sub |
Tự động hóa PowerPoint từ Excel
Bạn cũng có thể kết nối với PowerPoint thông qua các ứng dụng khác (như Excel và Word). Như bước đầu tiên, bạn phải tham chiếu đến một phiên bản của PowerPoint.
Có hai cách để làm điều đó - ràng buộc sớm và Ràng buộc muộn .
Mở PowerPoint - Liên kết sớm
Trong ‘Early Binding’, bạn phải đặt tham chiếu rõ ràng đến ‘Microsoft PowerPoint 16 Object Library’ (dành cho MS Office 2022) trong VBE (Visual Basic Editor) bằng cách sử dụng tùy chọn Tools-> References.
| 123 | 'Ràng buộc sớmDim pptApp làm ứng dụngĐặt pptApp = New PowerPoint.Application |
Mở PowerPoint - Liên kết muộn
Trong ứng dụng ‘Late Binding’, biến ứng dụng được khai báo là một đối tượng và công cụ VBA kết nối với ứng dụng chính xác tại thời điểm chạy.
| 123 | ' Ràng buộc muộnDim pptApp As ObjectĐặt pptApp = CreateObject ("PowerPoint.Application") |
Làm cho ứng dụng hiển thị
Sau khi đặt tham chiếu đến ứng dụng PowperPoint, bạn có thể cần hiển thị nó.
| 1 | pptApp.Vible = True |
Thao tác với PowerPoint
Bạn có thể sử dụng tất cả các phương pháp để thao tác với bản trình bày, từ bên trong PowerPoint, được mô tả ở trên từ Excel bằng cách chỉ cần thêm tham chiếu vào PowerPoint do bạn tạo ở trên.
Ví dụ
| 1 | Presentations.Open ("My Presentation.pptx") |
phải được sử dụng như thế này
| 1 | pptApp .Presentations.Open ("Bản trình bày của tôi.pptx") |
Đóng ứng dụng
Khi bạn đã hoàn thành những gì bạn muốn làm với ứng dụng PowerPoint, bạn phải đóng ứng dụng đó và nên giải phóng tài liệu tham khảo.
| 12 | pptApp.QuitĐặt pptApp = Không có gì |
Sao chép từ Excel sang PowerPoint
Mã này sẽ sao chép một phạm vi từ Excel sang PowerPoint:
Ghi chú: Nó đã được giữ đơn giản nhất có thể để chỉ ra cách một phạm vi từ Excel có thể được sao chép sang PowerPoint bằng VBA.
| 12345678910111213141516171819 | Sub copyRangeToPresentation ()'Mở phiên bản PowerPoint mớiĐặt pptApp = CreateObject ("PowerPoint.Application")Với pptApp'Tạo bản trình bày mớiĐặt ppt = .Presentations.Add'Thêm một trang trình bày trốngĐặt newSlide = ppt.Slides.Add (1, 12) 'ppLayoutBlank = 12'Sao chép Phạm vi từ Trang tính Hoạt động trong ExcelActiveSheet.Range ("A1: E10"). Sao chép'Dán vào Powerpoint dưới dạng Hình ảnhnewSlide.Shapes.PasteSpecial DataType: = 2 '2 = ppPasteEnhancedMetafile'Chuyển sang PowerPoint.Hoạt độngKết thúc vớiKết thúc Sub |
Câu hỏi thường gặp về PowerPoint VBA
Macro trong PPT là gì?
Macro là một thuật ngữ chung dùng để chỉ một tập hợp các lệnh lập trình tự động hóa các tác vụ. Macro PowerPoint (PPT) tự động hóa các tác vụ trong PowerPoint bằng ngôn ngữ lập trình VBA.
Làm cách nào để sử dụng VBA trong PowerPoint?
Để sử dụng VBA trong PowerPoint, hãy mở VBA Editor (ALT + F11 hoặc Developer> Visual Basic).
Làm cách nào để tạo Macro trong PowerPoint?
1. Mở VBA Editor (ALT + F11 hoặc Developer> Visual Basic)
2. Đi tới Chèn> Mô-đun để tạo Mô-đun mã
3. Nhập ‘Sub HelloWorld’ và nhấn Enter
4. Ở giữa các dòng ‘Sub HelloWorld’ và ‘End Sub’, nhập ‘MsgBox“ Hello World! ’
5. Bạn đã tạo Macro!
6. Bây giờ nhấn ‘F5’ để chạy Macro
Viết bởi: Vinamra Chandra
