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 ®ã [...]... Slide mới, thiết lập SoundEffect cho SlideShowTransition Thay i tiờu ng dng Vidu01 Ly cỏc thụng s v ca s Vidu02 c tp C:\Presentations TracNghiem1.txt CommandButton1 Read Line Giải phơng trình bậc hai Giáo viên : Lê Văn Huỳnh Trờng :THBC KTTH Hà Nội-ESTIH Thuật toán Em gii phng trỡnh Phng trỡnh bc 2 cú dng tng quỏt nh sau: ax2 + bx + c = 0 trong ú: a, b, c l cỏc h s cho trc a 0 x l nghim cn tỡm Cỏch... ActivePresentation.Slides(1).Master Slide.Name: Tr v tờn ca Slide Slide.Shapes: Tr v tp hp cỏc Shapes cú trong Slide, truy cp qua ch s Slide.SlideShowTransition: Hiu ng chuyn tip ca Slide To cỏc Slide mi v t thuc tớnh cho cỏc Slide ú Set Pres = Presentations.Add 'Pres.SaveAs FileName:=Vidu.ppt With Pres With Slides Add(Index:=1, Layout:=ppLayoutTitle).Name = Opener For i = 1 To 4 Add(Index:=i + 1, Layout:=ppLayoutTitle).Name... Fill Left, Top Height, Width Visible Ví dụ minh họa: Thay đổi Text trong TextBox Vớ d To mt trỡnh din To Slide u tiờn Ci t cỏc xỏc lp vn bn v hot hỡnh CommandButton1 Mt s phng thc ca Shape Apply: Cho phộp ỏp dng mt nh dng cú sn chộp t Shape khỏc Duplicate: To bn sao Flip: Lt IncrementLeft: Di chuyn ngang IncrementRotation: Quay IncrementTop: Di chuyn dc PickUp: Sao chộp nh dng Select: Chn... ActivePresentation.SlideMaster.BackGround slideBack.Fill.PresetGradient Style := msoGradientHorizontal, _ Variant := 1, PresetGradientType := msoGradientFire Thay đổi thuộc tính nền của tất cả các Slide Đặt lại t li thuc tớnh nn cho mt Slide riờng r With ActivePresentation.Slides(13) FollowMasterBackGround = False Background.Fill.PresetGradient _ Style := msoGradientVertical, _ Variant := 1, _ PresetGradientType := msoGradientFire... "SAI" SlideMaster.txtResult.Visible = True End Sub Sub Hide() SlideMaster.txtResult.Visible = False ActivePresentation.SlideShowWindow.View.Next End Sub p t Actions Settings 1 2 3 4 5 6 7 8 9 Quay li PowerPoint Chn phng ỏn ỳng Chn Slide Show\Action Settings Chn Run Macro Chn Macro Dung Chn ln lt cỏc phng ỏn sai Chn Slide Show\Action Settings Chn Run Macro Chn Macro Sai 1 M View\SlideMaster 2 Vo TitleMaster . VBA cho PowerPoint Giảng viên: Lê VănHuỳnh Trường: ESTIH Visual Basic Editor •Chọn. 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