MC LC MC LC 1

Mục lục Xây dựng trình chiếu tương tác Powerpoint MỤC LỤC MỤC LỤC BÀI TỔNG QUAN Mục tiêu Giới thiệu Thiết lập ban đầu Cách sử dụng chung Tóm tắt BÀI CÁC ĐỐI TƢỢNG CƠ BẢN Mục tiêu Giới thiệu LABLE (nhãn)/ BUTTON (nút) OPTION BOX/CHECK BOX 12 TEXT BOX 14 IMAGE 17 SPIN BUTTON 20 Tóm tắt 22 BÀI CÁC ĐỐI TƢỢNG NÂNG CAO 23 Mục tiêu 23 Giới thiệu 23 WINDOWS MEDIA PLAYER (WMP) 24 SHOCKWAVE FLASH (SWF) 26 SPREADSHEET 11 (SPS) 28 Tóm tắt 31 BÀI THỜI GIAN TRONG VBA 32 Mục tiêu 32 Giới thiệu 32 Nguyên tắc quản lý thời gian VBA 32 Xây dựng đồng hồ 32 Tóm tắt 34 BÀI SLIDE & SHAPE 35 Mục tiêu 35 Giới thiệu 35 Đọc/đổi tên Slide/Shape 36 Truy xuất đến Slide/Shape 36 Viết Macro cho Shape 37 Điều hướng Slide 37 Thay đổi nội dung Text bên Shape 37 Các ứng dụng thực tiễn shape 38 Tóm tắt 40 TÀI LIỆU THAM KHẢO 41 Bài 01: Tổng quan Xây dựng trình chiếu tương tác Powerpoint BÀI TỔNG QUAN Mục tiêu Sau bạn có thể:  Khởi tạo mơi trường làm việc với Visual Basic Powerpoint  Trình bày bước làm việc môi trường Visual Basic Giới thiệu Trong thời gian gần việc thiết kế giảng tương tác với hỗ trợ máy tính vấn đề quan tâm nhiều giáo viên Có nhiều phần mềm máy tính hỗ trợ thiết kế tương tác chuyên nghiệp Director, Flash Tuy nhiên đa số giáo viên ưa thích dùng Powerpoint họ quen thuộc với phần mềm từ trước Với Powerpoint truyền thống giáo viên thường sử dụng hiệu ứng (effect), hoạt cảnh (animation) thành Hình 1.1: Ví dụ Powerpoint tƣơng tác phần multimedia hình ảnh, âm thanh, siêu liên kết (Hyperlink), video nhúng trực tiếp vào Powerpoint Những trình chiếu mang tính minh họa (người xem nghe tiếp nhận) không tương tác với người dùng (người nghe tác động lên trình chiếu trình chiếu trả kết tương ứng) Bằng cách sử dụng ngôn ngữ VBA (Visual Basic for Application) tích hợp sẵn Powerpoint ta tạo tương tác trình chiếu Những viết phần hướng dẫn bước xây dựng tương tác diễn lớp học (Trắc nghiệm phản hồi, mô phỏng, điều khiển video, hình ảnh, Shockwave flash, thu thập ý kiến, xây dựng kiểm tra…vv) Thiết lập ban đầu Thiết lập chế độ bảo mật Mặc định Powerpoint không cho phép chạy macro lý bảo mật Để thuận tiện trình sử dụng VBA thực bước sau để thiết lập lại chế độ bảo mật cho Powerpoint Hình 1.2: Bảo mật PP 2007 Bài 01: Tổng quan Xây dựng trình chiếu tương tác Powerpoint Đối với Microsoft Powerpoint 2003, Từ menu Tools, chọn Macro, chọn Security Trong tab Security Level chọn mức Medium Low (tôi thường chọn Low phép tất Macro) Đối với Microsoft Powerpoint 2007, Click nút Microsoft Office (nút trịn góc trái hình), chọn Powerpoint Options, chọn ngăn Trust Center, click nút Trust Center Settings, chọn tab Macro Settings, chọn Enable all Macros Hình 1.3: Bảo mật PP 2003 Bật cơng cụ VBA Mặt định công cụ hỗ trợ làm việc VBA không bật Hãy làm bước sau để hiển thị công cụ này: Đối với Microsoft Powerpoint 2003, Click phải vào vị trí Toolbar, chọn Control Toolbox Đối với Microsoft Powerpoint 2007, Click nút Microsoft Office, chọn Powerpoint Options, chọn ngăn Popular, nhấp chọn mục Show Developer Tab in Ribbon Khi có thêm ngăn Developer Toolbar Powerpoint 2007 Hình 1.4: Toolbox PP 2003 & 2007 Cách sử dụng chung Mỗi thành phần Toolbox gọi đối tượng, đối tượng có nhóm thuộc tính phương thức tương ứng Có thể đơn giản hiểu thuộc tính đặc điểm đối tượng chiều cao (Height), chiều rộng (Width), màu (BackColor), font chữ (Font), ẩn (Visible), nội dung (Caption/Text), kiểu đường viền (Border Style)…vv Phương thức hoạt động diễn đối tượng bị tác động chẳng hạn click chuột vào xuất thông báo (ta tạo tương tác chức này) Những tác động vào đối tượng click chuột, rê chuột qua vv gọi kiện (Event) Ví dụ 1.1: chọn đối tượng label (hình chữ A) vẽ lên slide Tương tự cho đối tượng khác Để xem thuộc tính click phải vào label vừa vẽ, chọn Properties, bảng thuộc tính đối tượng xuất Ta thay đổi giá trị thuộc tính Hình 1.5: Thuộc tính kết tƣơng ứng Bài 01: Tổng quan Xây dựng trình chiếu tương tác Powerpoint Ví dụ 1.2: Đặt tên cho label cách gán thuộc tính Name lblA, chọn thuộc tính Font Vni-Avo, thay đổi nội dung hiển thị label cách đổi thuộc tính Caption thành “Ví dụ”, gán thuộc tính TextAlign thành 2-frmTextAlignCenter để canh text label Tạo viền cách gán thuộc tính BorderStyle giá trị 1-fmBorderStyleSingle Để tạo hoạt động cho đối tượng click đúp vào đối tượng Khi cửa sổ Microsoft Visual Basic xuất cho phép ta viết hoạt động cho kiện mặc định đối tượng Ví dụ 1.3: click đúp vào label trên, nhãn kiện mặc định click chuột ta có cửa sổ VBA sau: Hình 1.6: Cửa số Visual Basic Hãy viết thử đoạn lệnh sau: Private Sub lblA_Click() 'Xuat hien hop thoai thong bao MsgBox "Welcome to onceclick blog", , "Hello" End Sub Đoạn lệnh nhằm mục đích xuất hộp thoại với lời chào "Welcome to onceclick blog" ( tiêu đề hộp thoại có chữ "Hello") người dùng click vào label lblA Hãy trình chiếu tập tin Powerpoint thiết kế click vào lable slide ta có kết hình bên Những điểm cần ý:  Ngoài cách click đúp vào đối tượng để mở sổ Visual Basic dùng tổ hợp phím ALT + F11  Có thể thay đổi đối tượng kiện xảy đối tượng thông qua combobox cửa sổ Visual Basic Tóm tắt bƣớc sử dụng VBA Powerpoint B1 Chọn vẽ đối tượng lên slide B2 Thay đổi thuộc tính đối tượng thơng qua hộp thoại Properties (Click phải vào đối tượng chọn Properties) B3 Viết hoạt động cho kiện xảy đối tượng cách click đúp vào đối tượng Bài 01: Tổng quan Xây dựng trình chiếu tương tác Powerpoint B4 Có thể viết hoạt động cho nhiều kiện xảy đối tượng cách chọn kiện combox sổ Visual Basic (Ví dụ viết hoạt động cho kiện click, click đúp,…) Tóm tắt Trước làm việc với VBA Powerpoint ta thường thiết lập lại chế độ bảo mật, bật công cụ Toolbox Mỗi đối tượng có thuộc tính phương thức đặc trưng Có thể xem thuộc tính đối tượng thông qua hộp thoại Properties Thay đổi thuộc tính đối tượng làm thay đổi cách hiển thị đối tượng Có thể mở nhanh số Visual Basic thơng qua tổ hợp phím ALT + F11 click đúp vào đối tượng Nên đặt tên đối tượng theo quy tắc chung để dễ dàng nhận biết kiểu đối tượng sử dụng VBA Bài 02: Các đối tượng Xây dựng trình chiếu tương tác Powerpoint BÀI CÁC ĐỐI TƢỢNG CƠ BẢN Mục tiêu Sau bạn có thể:  Trình bày thuộc tính phương thức đối tượng Label, Button, Option Box, Check Box, Text Box, Image, Spin Button  Sử dụng hàm nhập xuất bản: InputBox MsgBox  Vận dụng làm dạng câu điền khuyết, sai, nhiều lựa chọn, mô cổng logic, trị chơi ghép hình Giới thiệu Để vận dụng tốt VBA cần nhớ điều: “mỗi đối tượng có thuộc tính phương thức bản” đa số thuộc tính cịn lại giống đội tượng chiều cao (Height), chiều rộng (Width), màu (BackColor), font chữ (Font), ẩn (Visible)…vv Thay đổi thuộc tính đối tượng dẫn đến thay đổi đối tượng hình Cần ý đối tượng VBA Powerpoint khơng hỗ trợ đầy đủ font Unicode, nên chọn thuộc tính font cho đối tượng Vni ABC Hình 2.1: Các thành phần ToolBox Loại đối tƣợng Chuỗi đại diện Label lbl Button btn Text Box txt Picture Box pic Spin Button spn Check Box chk Option Box opt Bảng 2.1: Chuỗi đại diện cho loại đối tƣợng Bài 03: Các đối tượng nâng cao - SWF Bước 3: Khi người dùng muốn điều hướng Private Sub labBack_Click() swf.back End Sub Private Sub lblNext_Click() swf.Forward End Sub Private Sub lblPlay_Click() swf.Playing = True End Sub Private Sub lblStop_Click() swf.Playing = False End Sub Xây dựng trình chiếu tương tác Powerpoint Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng trình chiếu tương tác Powerpoint SPREADSHEET 11 (SPS) ActiveX đóng vai trị một tập in Excel, thường dùng nơi để lưu trữ liệu Ta dễ dàng truy xuất thay đổi nội dung ô SPS thơng qua thuộc tính Cells Thơng thường thiết kế ứng dụng, ta thường lưu liệu chẳng hạn liệu người dùng nhập vào, nội dung câu hỏi đáp án Để sử dụng ActiveX click vào nút More Controls, sau tìm chọn mục Microsoft Office Spreadsheet 11.0 Object vẽ lên Slide Thuộc tính Cells(row,col) Mơ tả Thuộc tính khơng thấy hộp thoại Properties Thuộc tính cho phép truy xuất thay đổi nội dung ô SPS Một ô đại diện giá trị dịng & cột Ví dụ muốn truy xuất đến dịng 1, cột ta dùng Cells(1,1) Bảng 3.3: Thuộc tính SpreadSheet Có thể soạn thảo nội dung trực tiếp vào SPS cách click phải vào SPS, chọn Microsoft Office Spreadsheet 11.0 Object, chọn Edit SPS hỗ trợ nhập font Unicode Khi làm việc SpreadSheet ta thường sử dụng đến cấu trúc lặp For có mẫu sau: For i = To 10 Step MsgBox i Next Đoạn code cho biến i chạy từ đến 10 với bước nhảy (step) 2, lần lặp xuất thông báo cho biết giá trị i Ví dụ 3.3: Sử dụng SPS để tạo mẫu trắc nghiệm lựa chọn có phản hồi Kết ví dụ slide cho phép người dùng di chuyển qua lại câu hỏi Ở câu hỏi, người dùng click vào lựa chọn chương trình cung cấp thơng tin phản hồi (Bộ câu hỏi sử dụng ví dụ trích từ giảng điện tử mơn Tâm lý học đại cương trường Đại học Sư phạm Kỹ thuật Tp Hồ Chí Minh) Hình 3.3: Trắc nghiệm phản hồi Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng trình chiếu tương tác Powerpoint Ý tƣởng: Dùng SPS để nhập vào câu hỏi, lựa chọn phản hồi Mỗi người dùng bấm nút chuyển câu hỏi ta lập cơng thức để lấy xác câu cần hiển thị từ Spreadsheet Hƣớng dẫn chi tiết: Bước 1: Tạo SPS đặt tên sps Sau nhập vào câu hỏi, lựa chọn phản hồi theo mẫu sau: Hình 3.4: Mẫu nhập câu hỏi lựa chọn vào Spreadsheet Bước 2: Thực chèn: Label lblCau (dùng để hiển thị thứ tự câu hành), lblQues (dùng để hiển thị câu hỏi), lblFB (dùng để hiển thị phản hồi) OptionBox Opt1, Opt2, Opt3, Opt4 (để hiển thị lựa chọn) Spin Button đặt tên spn dùng để đổi câu Thuộc tính value Spin lưu số thứ tự câu hành Có thuộc tính Min=1, Max=Số câu hỏi có Spreadsheet Button đặt tên btnReset để đưa câu Bước 3: Khi người dùng thay đổi giá trị spn ta thực load nội dung tương ứng Cần ý câu chiếm dòng sps Câu có dịng cuối 5, câu có dịng cuối 10,…, câu n có dịng cuối (nx5) Có dịng cuối ta tìm dòng liền cách trừ cho 1, cho 2, cho cho Vì thứ tự câu hành giá trị Spin nên ta có cơng thức tính sau: Câu hỏi Lựa chọn A = Phản hồi A = Lựa chọn B = hành = Giá trị ô nằm Giá trị nằm dịng Giá trị nằm dịng Giá trị nằm dịng dòng (spn.value x – 4), cột (spn.value x – 3), cột (spn.value x – 3), cột (spn.value x – 2), cột Bài 03: Các đối tượng nâng cao - SpreadSheet Phản hồi Lựa chọn Phản hồi Lựa chọn Phản hồi B C C D D = = = = = Giá Giá Giá Giá Giá trị trị trị trị trị của của ô ô ô ô ô nằm nằm nằm nằm nằm Xây dựng trình chiếu tương tác Powerpoint ở ở dòng dòng dòng dòng dòng (spn.value (spn.value (spn.value (spn.value (spn.value x x x x x – – – 5), 5), 2), 1), 1), cột cột cột cột cột 2 Mỗi người dùng đổi câu hỏi, ngồi việc load nội dung ta cịn bỏ chọn cho Option Box (gán value =false), làm rỗng phản hồi thay đổi số hiển thị lblCau Private Sub spn_Change() lblCau.Caption = spn.Value Opt1.Value = False Opt2.Value = False Opt3.Value = False Opt4.Value = False lblFB.Caption = "" lblQues.Caption = sps.Cells(spn.Value * Opt1.Caption = sps.Cells(spn.Value * - 3, Opt2.Caption = sps.Cells(spn.Value * - 2, Opt3.Caption = sps.Cells(spn.Value * - 1, Opt4.Caption = sps.Cells(spn.Value * 5, 1) 4, 1) 1) 1) 1) End Sub Bước 4: Khi người dùng click lựa chọn hiển thị phản hồi tường ứng Private Sub Opt1_Click() lblFB.Caption = sps.Cells(spn.Value * - 3, 2) End Sub Private Sub Opt2_Click() lblFB.Caption = sps.Cells(spn.Value * - 2, 2) End Sub Private Sub Opt3_Click() lblFB.Caption = sps.Cells(spn.Value * - 1, 2) End Sub Private Sub Opt4_Click() lblFB.Caption = sps.Cells(spn.Value * 5, 2) End Sub Bước 5: Khi người dùng nhấn “Làm lại” ta chuyển câu 1, bỏ chọn cho Option Box, làm rỗng phản hồi Private Sub btnReset_Click() Opt1.Value = False Opt2.Value = False Opt3.Value = False Opt4.Value = False lblFB.Caption = "" spn.Value = End Sub Bài 03: Các đối tượng nâng cao - SpreadSheet Xây dựng trình chiếu tương tác Powerpoint Tóm tắt Ba ActiveX thường sử dụng trình chiếu PowerPoint tương tác là:  Window Media Player: Dùng để play đoạn video & audio  ShockWave Flash: play đoạn shockwave flash  SpreadSheet: Xem file Excel nhúng làm nhiệm vụ lưu trữ liệu Bài 04: Thời gian VBA Xây dựng trình chiếu tương tác Powerpoint BÀI THỜI GIAN TRONG VBA Mục tiêu Sau bạn có thể:  Trình bày ngun tắc quản lý thời gian VBA  Vận dụng tạo đồng hồ, thiết lập thời gian cho học Giới thiệu Trong trình thiết kế học, kiểm tra Powerpoint, muốn giới hạn thời gian thực cho hoạt động đó, lúc ta phải tự xây dựng cho đồng hồ thời gian để làm điều Mặc định, VBA không cung cấp đối tượng để quản lý thời gian Trong Visual Basic có đối tượng Timer tự động thực sau khoảng thời gian (interval), VBA khơng Trong người dùng thực hoạt động khác, đồng hồ phải chạy Vì ý tưởng là, ta kích hoạt đồng hồ giây lần, thời gian giây ta trả quyền quản lý cho hệ thống lệnh DoEvents Nguyên tắc quản lý thời gian VBA Để xây dựng trình chiếu có tính đến yếu tố thời gian dùng VBA cần tuân theo nguyên tắc sau:  Phải xác định điểm dừng: ví dụ đồng hồ (thời gian làm bài) dừng sau 60 phút, 10 phút, 60 giây vv  Viết kiện để bắt đầu tính thời gian: ví dụ phải có nút bắt đầu  Viết kiện để kết thúc việc tính thời gian trước khoảng thời gian quy định: ví dụ người học muốn kết thúc trước hết làm  Chọn kiện khoảng thời gian để cập nhật lại đồng hồ: ví dụ sau giây cập nhật lại đồng hồ  Khơng bấm nút ESC để khỏi slide đồng hồ chạy mà phải gọi kiện kết thúc trước bấm nút ESC Xây dựng đồng hồ Ta có lệnh DoEvents trả quyền kiểm soát cho hệ thống Khi ta gọi câu lệnh hệ thống có quyền sử dụng CPU cho tiến trình khác Ví dụ ta thực vòng lặp từ đến tỉ khoảng thời gian Trong khoảng thời gian ta khơng cịn làm việc khác nữa, hệ thống thực vịng lặp Tuy nhiên vòng lặp ta gọi DoEvents vịng lặp hệ thống có khoản thời gian để thực cơng việc khác ta khơng có cảm giác vịng lặp chạy Bài 04: Thời gian VBA Xây dựng trình chiếu tương tác Powerpoint Chính đặc điểm ta sử dụng DoEvents để người dùng làm hoạt động khác đồng hồ chạy Đoạn code chung để tạo đồng hồ VBA Dim PauseTime, Start, Finish 'Gán thoi gian cho la giay PauseTime = 'Lay thoi diem hien tai Start = Timer 'Tao vong lap chua het thoi gian cho Do While Timer < Start + PauseTime ' Chuyen quyen quan ly cho he thong lap DoEvents Loop Biến nhận khoảng thời gian chờ tính theo giây, biến lấy thời gian hàm Timer, Ta thực vòng lặp hết thời gian chờ Trong lần lặp ta trả quyền kiểm soát cho hệ thống để thực tác vụ khác Ví dụ 4.1: Giả sử thời gian làm câu ví dụ 3.3 30 giây, viết thêm chức hiển thị đồng hồ, đếm lùi thời gian để người dùng canh thời gian làm Ý tƣởng: Khi người dùng click “Bắt đầu” ta thực việc gán cho Text Box đếm ngược thời gian làm (300) Mỗi Text Box thay đổi ta lại cho chờ khoảng giây sau trừ giá trị Text Box giá trị 0, Hình đồng thời cập nhật lại Label hiển thị đồng hồ Trong chờ ta chuyển quyền quản lý cho hệ thống 4.1: Thời gian VBA Hƣớng dẫn chi tiết: Bước 1: Sử dụng lại kết ví dụ 3.3 Tạo thêm Text Box txtSecond để hiển thị số giây đếm ngược, Label lblClock để hiển thị đồng hồ Thêm Button cmdKetThuc làm nút kết thúc Bước 2: Khi người dùng bấm “Bắt đầu” (tương đương với nút làm lại cũ) ta thực gán thời gian làm 30*10 (30 giây câu, ta có 10 câu) Đồng thời bỏ chọn Option box ví dụ 3.3 Bài 04: Thời gian VBA Xây dựng trình chiếu tương tác Powerpoint Private Sub btnReset_Click() Opt1.Value = False Opt2.Value = False Opt3.Value = False Opt4.Value = False spn.Value = lblFB.Caption = "" txtSecond.Value = 30 * 10 End Sub Bước 3: Mỗi txtSecond thay đổi ta chờ giây, sau cập nhật lại đồng hồ trừ bớt giá trị TextBox Trong thời gian chờ nhớ trả quyền quản lý cho hệ thống Lưu ý để lấy thời gian ta dùng hàm Now kết hợp với hàm Format với chuỗi định dạng tttttt Private Sub txtSecond_Change() If txtSecond.Value > Then Dim PauseTime, Start, Finish ' Gán thoi gian cho la giay PauseTime = 'Lay thoi diem hien tai Start = Timer 'Tao vong lap chua het thoi gian cho Do While Timer < Start + PauseTime ' Chuyen quyen quan ly cho he thong lap DoEvents Loop If txtSecond.Value > Then lblClock.Caption = Format(Now, "tttttt") txtSecond.Value = txtSecond.Value - End If End If End Sub Như Text Box thay đổi lại gọi kiện giá trị đến Điểm dừng ta Text Box Điểm bắt đầu người dùng bấm vào “Bắt đầu” Bước 4: Khi người dùng không muốn làm click nút kết thúc Private Sub cmdKetThuc_Click() txtSecond.Value = End Sub Tóm tắt Có thể sử dụng thời gian để kiểm soát hoạt động người học Cần xác định rõ kiện bắt đầu kết thúc Trong khoảng thời gian chờ ta trả quyền kiểm soát cho hệ thống thủ tục DoEvents Bài 05: Slide & Shape Xây dựng trình chiếu tương tác Powerpoint BÀI SLIDE & SHAPE Mục tiêu Sau bạn có thể:  Đặt tên cho slide & shape  Truy xuất đến slide & shape  Viết Macro cho shape Giới thiệu Thành phần trình chiếu Slide Trên Slide thường chèn TextBox, hình ảnh, shape Ở ta gọi chung đối tượng Shape Slide & Shape có tên để truy xuất đến Tuy nhiên Powerpoint không cung cấp chức để xem tên gán tên cho Slide/Shape Chúng ta đổi tên cho Shape/Slide code, nhiên thường xuyên làm việc Shape điều rõ rang khơng thuận tiện, tạo Plugin sử dụng cho PowerPoint 2007 giúp bạn thực điều Có thể truy cập http://vn.myblog.yahoo.com/onceclick để download Plugin Sau cài đặt PowerPoint 2007 có thêm tab VBA Support Ribbon Trên cung cấp chức lấy tên slide/shape đưa vào clipboard, đặt tên cho slide/shape, lấy đường dẫn truy xuất đến slide/shape, số đoạn code điều hướng slide Hình 5.1: Giao diện VBA Support Bài 05: Slide & Shape Xây dựng trình chiếu tương tác Powerpoint Nếu sử dụng công cụ không cần phải đọc phần đổi tên cho Slide/Shape Nếu bạn sài Powerpoint 2003 đổi tên cho Slide/Shape sau Đọc/đổi tên Slide/Shape Bước 1: Chọn Slide Shape muốn đổi tên Bước 2: Bấm ALT+F11 để mở cửa sổ Visual Basic Sau bấm Ctrl + G chọn Menu View/Immediate Window để mở ngăn Immediate Ngăn cho phép người dùng gõ chạy code thử nghiệm Ta sử dụng ngăn để đọc đổi tên Slide/Shape Mỗi lệnh ngăn nằm dòng, nhấn Enter thực lệnh Ví dụ gõ vào msgbox "Hello" sau Enter xuất thông báo với chuỗi “Hello” Bước 3: Gõ vào lệnh sau để thực nhiệm vụ tương ứng Nhiệm vụ Đọc tên Slide Đổi tên Slide Đọc tên Shape Đổi tên Shape Code debug.print ActiveWindow.View.Slide.Name ActiveWindow.View.Slide.Name = "Hello" debug.print ActiveWindow.Selection.ShapeRange.Name ActiveWindow.Selection.ShapeRange.Name = "TenShape" Bảng 5.1: Đọc/đổi tên Slide/Shape Truy xuất đến Slide/Shape Giả sử Shape có tên “Title 1” nằm Slide tên “Hello” ta truy xuất đến Slide/Shape thông qua đoạn code sau: Loại Slide Shape Code ActivePresentation.Slides("Hello") ActivePresentation.Slides("Hello").Shapes("Title 1") Bảng 5.2: Truy xuất đến Slide/Shape Muốn thay đổi hay gọi thuộc tính/phương thức Slide/Shape cần truy xất đến Slide/Shape sau thêm dấu chấm VBA hộp thoại cho bạn chọn Ví dụ 5.1: Xem tọa độ bên trái Shape: debug.print ActivePresentation.Slides("Hello").Shapes("Title 1").Left Ví dụ 5.2: Quay Shape 45 độ: ActivePresentation.Slides("Hello").Shapes("Title 1").IncrementRotation 45 Ví dụ 5.3: Lật shape theo chiều dọc ActivePresentation.Slides("Hello").Shapes("Title 1").Flip msoFlipVertical Bài 05: Slide & Shape Xây dựng trình chiếu tương tác Powerpoint Viết Macro cho Shape Macro thật đoạn code nhằm thực cơng việc Để tạo Macro cho Shape ta thực sau: Bước 1: Nhấn ATL + F11 để mở cửa sổ Visual Basic, Từ Menu Insert, chọn Insert Module Module mặc định tạo module1, tạo module tùy ý nhiên thường cần viết module đủ Code viết Module gọi từ đâu, slide Bước 2: Từ Menu Insert chọn Procedure, đặt tên cho thủ tục nhấn OK để chèn thủ tục Thủ tục gọi Macro Sau viết code cho macro Bước 3: Quay cửa sổ thiết kế: Đối với PowerPoint 2003: Click phải vào Shape muốn gán Macro, chọn Action Settings, chọn Run Macro chọn tên Macro cần thực Đối với PowerPoint 2007: Chọn Shape cần gán Macro, click vào nút Action ngăn Insert, chọn Run Macro chọn tên Macro cần thực Điều hướng Slide Thông thường muốn di chuyển Slide, ta cần chèn Shape sau mở hộp thoại Action Settings phần trên, phần Hyperlink To chọn Slide muốn chuyển tới click vào Shape Tuy nhiên đôi muốn tùy thuộc vào điều kiện mà chuyển đến Slide thích hợp (người dùng trả lời đúng/sai), thực cơng việc trước chuyển tới Slide khác (cộng dồn điểm, khởi tạo giá trị…) phải viết Macro để chuyển Slide Dưới số mã lệnh để chuyển Slide Di chuyển Chuyển đến slide thứ i Slide Slide cuối Slide liền trước Slide liền sau Kết thúc trình chiếu Code ActivePresentation.SlideShowWindow.View.GotoSlide(i) ActivePresentation.SlideShowWindow.View.First ActivePresentation.SlideShowWindow.View.Last ActivePresentation.SlideShowWindow.View.Previous ActivePresentation.SlideShowWindow.View.Next ActivePresentation.SlideShowWindow.View.Exit Bảng 5.3: Điều hƣớng Slide Thay đổi nội dung Text bên Shape Cấu trúc chung: .TextFrame.TextRange.Text ="Hello" Bài 05: Slide & Shape Xây dựng trình chiếu tương tác Powerpoint Ví dụ 5.4: Thay đổi giá trị cho Shape “hoten” slide “user” giá trị “Nguyen Van A” ActivePresentation.Slides("user").Shapes("hoten").TextFrame.TextRange.Text ="Nguyen Van A" Các ứng dụng thực tiễn shape Ví dụ 5.5: Xây dựng đồng hồ Shape Kết ví dụ đồng hồ Analog, cho phép người dùng chạy dừng Ý tƣởng: Đối tượng Shape có thuộc tính Rotation, thuộc tính mang giá trị từ (0360), cho phép Shape quay xung quanh điểm Shape Nhờ đặc điểm ta dùng để thực tập Hình 5.2: Đồng hồ Shape Hƣớng dẫn chi tiết: Bước 1: Vẽ hình trịn làm khung đồng hồ Bước 2: Tạo kim đồng hồ Vì Shape quay quanh tâm kim đồng hồ lại khơng quay quanh tâm Chính ý tưởng đơn giản group kim đồng hồ với hình trịn có kích thước hình trịn bước Cần ý bỏ đường viền cho hình trịn suốt trước group Lần lượt tạo kim giờ, kim phút kim giây (Chú ý nên làm kim đứng thẳng xem độ) Bước 3: Lần lượt đặt tên cho group KimGio, KimPhut, KimGiay Đặt tên cho Slide clock Tạo Button đặt tên btnStart để bật/tắt đồng hồ Bước 4: Cần lưu ý phút tương đương với độ, giây tương đương với độ, tương ứng với 30 độ (vì phải sử dụng hàm làm trịn) Chính có giây ta cho KimGiay quanh góc (SoGiay*6), tương tự cho kim phút, riêng kim ngồi việc quay góc (giờ*30) cịn phải cộng thêm góc phút tạo (SoPhut/2) (vì tương đương 30 độ, có nghĩa 60 phút tương đương 30 độ có kết SoPhut/2) Bước 5: Khi người dùng bật đồng hồ, giây ta cập nhật lại góc quay kim Ở có sử dụng vịng lặp dạng While {các lệnh} Wend Có nghĩa thực lệnh Vì việc cập nhật bao gồm nhiều lệnh nên ta viết riêng thủ tục CapNhatGio để cập nhật lại góc kim đồng hồ Bài 05: Slide & Shape Xây dựng trình chiếu tương tác Powerpoint Sub CapNhatGio() Dim gio, phut, giay As Integer gio = Hour(Now) Mod 12 phut = Minute(Now) giay = Second(Now) '1 giay tuong duong voi ActivePresentation.Slides("user").Shapes("KimGiay").Rotation = giay * '1 phut tuong duong voi ActivePresentation.Slides("user").Shapes("KimPhut").Rotation= phut * '1h tuong duong voi 30 ActivePresentation.Slides("user").Shapes("KimGio").Rotation=gio*30+Round(phut/2) End Sub Private Sub btnStart_Click() If (btnStart.Caption = "Run Clock") Then btnStart.Caption = "Stop Clock" Else btnStart.Caption = "Run Clock" End If While (btnStart.Caption = "Stop Clock") CapNhatGio Dim PauseTime, Start, Finish ' Gán thoi gian cho la giay PauseTime = 'Lay thoi diem hien tai Start = Timer 'Tao vong lap chua het thoi gian cho Do While Timer < Start + PauseTime ' Chuyen quyen quan ly cho he thong lap DoEvents Loop Wend End Sub Ví dụ 5.6: Xây dựng Slide thu thập ý kiến Shape Kết ví dụ slide cho phép người dùng nhập ý kiến vào Text Box, bấm nút Add thêm nội dung vào Shape Bấm Reset thu thập ý kiến từ đầu Ý tƣởng: Dùng thuộc TextFrame.TextRange.Text Shape tính Hình 5.3: Slide thu thập ý kiến Bài 05: Slide & Shape Xây dựng trình chiếu tương tác Powerpoint Hƣớng dẫn chi tiết: Bước 1: Chèn Text Shape có dạng hình 5.3 đặt tên YKien, Slide có tên ThuThap, button text box có tên btnAdd, btnReset txtAdd Bước 2: Khi người dùng bấm nút Add ta đưa nội dung từ txtAdd lên YKien cách nối chuỗi (&) đồng thời làm rỗng txtAdd, người dung bấm Reset ta làm rỗng txtAdd YKien Điểm lưu ý ký tự xuống dịng chr$(13) Ở có sử dụng cấu trúc With End With , cấu trúc cho phép phần code bên không cần viết lại đối tượng mà cần dùng dấu “.” để gọi thuộc tính đối tượng Private Sub btnAdd_Click() With ActivePresentation.Slides("ThuThap").Shapes("YKien") TextFrame.TextRange.Text = TextFrame.TextRange.Text & txtAdd.Text & Chr$(13) txtAdd.Text = "" End With End Sub Private Sub btnReset_Click() ActivePresentation.Slides("ThuThap").Shapes("YKien").TextFrame.TextRange.Text = "" txtAdd.Text = "" End Sub Tóm tắt Đa số thành phần Powerpoint Shape việc nắm rõ cách truy xuất đến Shape làm cho trình chiếu trực quan sinh động Nên đặt tên cho Shape Slide trước tham chiếu đến chúng Tài liệu tham khảo Xây dựng trình chiếu tương tác Powerpoint TÀI LIỆU THAM KHẢO [1] [2] Powerful PowerPoint for Educators: Using Visual Basic for Applications to Make PowerPoint Interactive (2004) David M Marcovitz Libraries unlimited Microsoft Office PowerPoint 2003 Visual Basic Reference (2003) Microsoft Corporation ... (nhóm cau1 cau2) Hƣớng dẫn chi tiết: Bước 1: Tạo nội dung cố định gồm câu hỏi tiêu đề slide Powerpoint thông thường Tạo Option Box đặt tên opt1A, opt1B, opt1C, opt1D (dùng cho lựa chọn câu 1) , opt2A,... sps.Cells(spn.Value * - 1, Opt4.Caption = sps.Cells(spn.Value * 5, 1) 4, 1) 1) 1) 1) End Sub Bước 4: Khi người dùng click lựa chọn hiển thị phản hồi tường ứng Private Sub Opt1_Click() lblFB.Caption... trống chuyển hình từ imageTemp vào ô trống Private Sub imgD1_Click() imgD1.Picture = imgTemp.Picture 'Refresh D1 imgD1.Visible = False imgD1.Visible = True End Sub Private Sub imgD2_Click() imgD2.Picture