Sử dụng VBA trong PowerPoint - Bài 3

BÀI 3.     CÁC ĐỐI TƯỢNG NÂNG CAO (Phần 1)
Mục tiêu
Sau bài này bạn có thể:
Trình bày được các thuộc tính và phương thức cơ bản của các đối tượng mở rộng Windows Media Player, Shockwave, SpreadSheet.
Sử dụng được đối tượng Window Media & Shockwave để điều khiển audio, video.
Sử dụng SpreadSheet để lưu trữ và lấy dữ liệu.
Giới thiệu
Trong quá trình thiết kế bài trình chiếu đôi khi chúng ta muốn điểu khiển những đoạn audio, video hoặc Shockwave Flash ngay trên slide, lưu trữ dữ liệu do người dùng nhập vào, tạo ngân hàng câu hỏi trắc nghiệm…vv Trong Powerpoint ta có thể làm được điều này nhờ sử dụng các thành phần mở rộng ActiveX từ nút More Controls trên thanh ToolBox.
Để sử dụng các ActiveX này trên máy bạn phải có Window Media (có sẵn trong window – tốt nhất là Window Media 10 trở lên, Flash Player (tải từ trang www.adobe.com), Excel 2003 (nếu bạn dùng Office 2007 thì cũng nên cài thêm Excel 2003 để có thể sử dụng SpreadSheet 11).
WINDOWS MEDIA PLAYER (WMP)
Với ActiveX này ta có thể mở tất cả những tập tin audio hay video nào mà Windows Media Playe có thể mở được. Nếu thỉnh thoảng bạn thấy có một số phim nén máy khác mở được nhưng máy mình không mở được thì bạn có thể dùng từ khóa KLiteCode để tải những code mới về cài vào hệ thống.
Để sử dụng ActiveX này hãy click vào nút More Controls, sau đó tìm và chọn mục Windows Media Player và vẽ lên Slide.
Thuộc tính
Mô tả

url
Chuỗi đường dẫn đến tập tin audio/video

stretchToFit
Nếu có giá trị True sẽ kéo giãn phim cho khít với kích thước của WMP

fullScreen
True sẽ cho phép xem phim toàn màn hình

  Bảng  3.1: Các thuộc tính cơ bản của Windows Media Player
Để đổi audio/video ta chỉ cần gán thuộc tính url của WMP bằng chuỗi chỉ vị trí của tập tin audio/video mới.
Ví dụ 3.1: Dùng WMP để tạo slide cho phép người dùng xem phim sau. Kết quả của ví dụ này là slide trên đó cho phép người dùng xem hai đoạn phim và điền vào chổ trống bằng những từ thích hợp. Sau đó người dùng có thể xem điểm hoặc làm lại.


Hình  3.1: Điều khiển Video bằng Windows Media Player
 Ý tưởng: Dùng WMP cho người dùng xem phim, dùng 3 Text Box để người dùng nhập dữ liệu vào.
Hướng dẫn chi tiết:
Bước 1: Tạo 1 đối tượng WMP đặt tên là wmp. Tạo 3 Text Box lần lượt là txt1, txt2, txt3 để người dùng nhập đáp án, 2 nhãn lblvideo1, lblvideo2 (dùng để chọn video muốn xem), 2 nhãn lblReset và lblChamDiem tương tự như các ví dụ trên.
Bước 2: Khi người dùng chọn video để xem ta thay đổi thuộc tính url của wmp
Private Sub lblVideo1_Click()
    wmp.URL = ActivePresentation.Path & "mediavideo1.wmv"
End Sub
 
Private Sub lblVideo2_Click()
    wmp.URL = ActivePresentation.Path & "mediavideo2.wmv"
End Sub
Bước 3: Khi người dùng click “Làm lại” ta làm rỗng các Text Box
Private Sub lblReset_Click()
    txt1.Text = ""
    txt2.Text = ""
    txt3.Text = ""
End Sub
Bước 4: Khi người dùng click “Chấm điểm”.
Private Sub lblChamDiem_Click()
    Dim diem as Integer
    diem = 0
    If txt1.Text = "6" Then diem = diem + 1
    If txt2.Text = "secretary" Then diem = diem + 1
    If txt3.Text = "hard" Then diem = diem + 1
    MsgBox "Mark: " & diem & "/3"
End Sub
Có 1 điểm mới trong ví dụ này là ta khai báo biến diem kiểu Integer bằng  từ khóa Dim và sử dụng hàm MsgBox để thông báo kết quả.
SHOCKWAVE FLASH (SWF)
ActiveX này đóng vai trò như một Flash Player nằm trên slide trình chiếu. Chính vì vậy ta có load các tập tin swf thông qua thuộc tính Movie. ActiveX này còn cung cấp một số phương thức để điều hướng tập tin swf như Stop, Play, Back, Forward…vv.
Để sử dụng ActiveX này hãy click vào nút More Controls, sau đó tìm và chọn mục Shockwave Flash Object và vẽ lên Slide.
Thuộc tính
Mô tả

Movie
Chuỗi đường dẫn đến tập tin swf

Playing
Nếu True sẽ play tập tin swf ngược lại thì dừng

 
Bảng  3.2: Các thuộc tính của Shockwave Flash
 Ví dụ 3.2: Tạo slide cho phép người dùng chọn xem 2 tập tin swf lần lượt là Add2Vectors.swf và Add3Vectors.swf được lưu