Bài giảng giúp làm quen với viết mã VBA trong Powerpoint để tăng điều khiển cho Powerpoin, chỉ dẫn ứng dụng VBA trong một số công việc: 1. Giải phương trình bậc hai (cho phép nhận các hệ số và tính ra các nghiệm). 2. Trắc nghiệm đơn giản (Có các tính năng Xáo trộn bộ đề trắc nghi nghiệm, Tạo phiếu trả lời, Tạo phiếu chấm điểm..).
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 ®ã . ” 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. 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