Bài giảng cách dùng VBA cho PowerPoint - 1 doc

VBA cho PowerPoint Giảng viên: Lê VănHuỳnh Trường: ESTIH Visual Basic Editor •Chọn Tools\Macros •Chọn Visual Basic Editor Mở modul đã có • Trong cửa sổ Visual Basic Editor, ở cánh trái là Project Explorer. • Click vào các dấu • Double-click vào modul cần mở Đối tượng Presentations Mở một tệp trình diễn •Mở tệp đã có: Presentations.Open <Tên tệp> Ví dụ: Presentaions.Open “ SlidePres.ppt” •Mở tệp mới: Presentations.Add(WithWindow) Trong đó: WithWindow = msoTrue nếu muốn tệp mới hiển thị WithWindow=msoFalse nếu muốn tệp mới ẩn T ¹ o t Ö p míi Më tÖp SlidePres.ppt Đối tượng Presentation • Là đối tượng đại diện cho tệp trình diễn đang mở (.ppt) •Các thuộc tính: .FullName: Tên tệp đầy đủ (bao gồm cả đường dẫn). Ví dụ: “C:\My Document\ESTIH.PPT” .Name: Tên tệp (không có đường dẫn) .Path: Đường dẫn .Saved: Giá trị msoTrue nếutệp đã đượclưuvàođĩa Giá trị msoFalse nếutệpchưa đượcghi .SlideMaster: Trả về Slide chủ (Slide Master), khuôn mẫucủacác slide con. .TitleMaster: Trả về slide chủ (TitleMaster), khuôn mẫucủacác slide tiêu đề (Trang đầu, trang bìa) .Slides: Trả về tậphợp các slide con có trong trình diễn. .SlideShowSettings: Đốitượng chứ acáctùychọncàiđặtchotrình diễn Đốitượng Presentation • Các phương thức .ApplyTemplate (Tên tệp): Áp đặtmộtthiếtkế mẫu .Close: Đóng trình diễn .NewWindow: Mở cửasổ mớichotrìnhdiễn .Save: Lưu trình diễn .SaveAs: Lưuvàđặttên .PrintOut: In ra máy in ¸p dông 012.pot ¸p dông Writing close-up design template.pot Thªm cöa sæ míi Đốitượng Slide •Mỗi trình diễn PowerPoint đượctạo nên từ nhiềuSlide. •MỗiSlide làmột đốitượng thuộckiểuSlide. • Slides là một đốitượng chứatậphợpcácđốitượng Slide. • Trong đốitượng Slides, mỗislide được tham chiếuqua chỉ số, hoặc qua tên gọicủa nó. –Vídụ: • ActivePresentation.Slides(1) • ActivePresentation.Slides(“Slide1”) • Đốitượng Slide có các thuộc tính qui định bố cục, chỉ định các hiệu ứng chuyểntiếp, sao chép và xóa Slide. Đốitượng Range • Đốitượng Range là một thành phầncủa đốitượng Slides, cho phép tậphợpmột số Slide thành một danh sách, trong đó mỗi Slide có mộtchỉ số. •Cóthể truy cập các slide trong Range thông qua chỉ số hoặc thông qua tên. •Cóthể tác động lên tấtcả các slide bằng cách sử dụng Range không có chỉ số. Range Tạo Slide mới •Dùngphương thức Add: Presentation.Slides.Add(Index, Layout) • Layout là tham số cho phép chọn Design Template (mẫuthiếtkế) cho slide •Vídụ: Width ActivePresentation.Slides .add Index := Count+1 .Layout := ppLayoutOrgchart End With Thªm slide vµo cuèi tr×nh diÔn vµ hiÓn thÞ slide ®ã [...]...Chèn các Slide từ một tệp With ActivePresentation.Slides InsertFromFile FileName :=“C:\Presentations\Hinh10.ppt”, _ Index := Count, _ SlideStart := 1, _ SlideEnd := 5 End With ChÌn 4 slide tõ tÖp Hinh10.ppt vµo cuèi tÖp nµy . VBA cho PowerPoint Giảng viên: Lê VănHuỳnh Trường: ESTIH Visual Basic Editor •Chọn ToolsMacros •Chọn Visual. bằng cách sử dụng Range không có chỉ số. Range Tạo Slide mới •Dùngphương thức Add: Presentation.Slides.Add(Index, Layout) • Layout là tham số cho phép chọn Design Template (mẫuthiếtkế) cho slide •Vídụ: Width. diễn .SaveAs: Lưuvàđặttên .PrintOut: In ra máy in ¸p dông 012 .pot ¸p dông Writing close-up design template.pot Thªm cöa sæ míi Đốitượng Slide •Mỗi trình diễn PowerPoint đượctạo nên từ nhiềuSlide. •MỗiSlide