9/29/2008 www.giaovien.net // www.center4teachers.com Trang 1/8 centea.info@gmail.com TẠO Ô CHỮ TRONG POWERPOINT BẰNG ỨNG DỤNG VBA - CENTEA – Trước đây, CENTEA đã từng giới thiệu bài viết tạo ô chữ trong PowerPoint của Thầy Lê Trung Hiệp – Trường THCS Nguyễn Huệ - Thị xã Vĩnh Long. Trong bài hướng dẫn đó, Thầy Lê Trung Hiệp đã hướng dẫn chúng ta tạo ô chữ bằng cách áp dụng kỹ thuật cò súng (Triggers) trong hiệu ứng của PowerPoint. Bên cạnh đó, CENTEA cũng đã có loạt bài giới thiệu ứng dụng Visual Basic Application (VBA) trong PowerPoint. Chính vì vậy, thông qua bài viết hôm nay, CENTEA mong muốn giới thiệu đến quý Thầy Cô một k thut trong vic ng dng VBA ñ to ô ch trong PowerPoint. 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 2/8 centea.info@gmail.com Những lưu ý trước khi thiết kế: - Chúng ta cần phải thiết lập chế độ bảo vệ các Marco ở mức Low để chương trình có thể chạy các đoạn mã lệnh. Cách thiết lập như sau: o Mở chương trình PowerPoint. o Vào menu Tools / Macro / Security. Chọn Low. Nhấn OK o Khởi ñộng lại chương trình PowerPoint. - Quý Thầy Cô có thể tham khảo công dụng của từng nút lệnh trong Control Box của VBA trong bài hướng dẫn trước. Bước 1: Xác ñịnh – tạo các ô chữ Đầu tiên, ta cần xác định cấu trúc của ô chữ. Và cần xác định những ô nào chứa từ khóa. Ví dụ: CENTEA cần tạo 1 ô chữ trong đó các từ khóa có màu đỏ. Ô chữ có cấu trúc như sau: Ô chữ ở dòng 1 có câu hỏi như sau: “Tên viết tắt của trung tâm hỗ trợ giáo viên?” Ô chữ ở dòng 2 có nội dung câu hỏi là: “Bộ phân thông tin và hỗ trợ của trung tâm có tên viết tắt là gì?” Ô chữ ở dòng 3 có nội dung câu hỏi là: “Bộ phân quản lý tài nguyên trung tâm có tên viết tắt là gì?” Ô chữ ở dòng 4 có nội dung câu hỏi là: “Sản phẩm nào của trung tâm ñược quý Thầy Cô áp dụng vào bài giảng nhiều nhất?” Và từ khóa của ô chữ là: ðây là một vấn ñề có vị trí quan trọng trong xã hội? Bước 1.1: Chúng ta cần tạo từng nhãn riêng biệt cho mỗi ô chữ. Ô chữ ở dòng 1 có 6 ký tự, ta cần tạo sáu nhãn, tương tự, ô chữ ở dòng 4 có 14 ký tự, ta cần tạo 14 nhãn. Cách làm như sau: - Đầu tiên, ta bật thanh công cụ Control Toolbox bằng cách vào View >> Toolbars >> Control ToolBox (đánh dấu chọn trước thanh công cụ này). - Chọn công cụ tạo nhãn (Label – hình chữ A) trên thanh công cụ Control Toolbox. Khi đó, con trỏ chuột sẽ thay đổi thành dấu cộng, Thầy Cô click chọn vào 1 vị trí và tạo 1 nhãn đầu tiên. - Thầy Cô làm tuần tự cho các ô còn lại. 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 3/8 centea.info@gmail.com - Tuy nhiên, CENTEA đề nghị Thầy Cô nên copy ô ký tự vừa tạo, để tạo các ô ký tự còn lại ở dòng 1. Việc làm này vừa đỡ tốn thời gian, vừa đảm bảo kích thước của các ô là như nhau. Sau khi tạo các ô ký tự cho dòng 1, Thầy Cô có thể click chọn nhiều ô cùng lúc để copy và tạo các ô ký tự cho các dòng còn lại. Bước 1.2: Khai báo thuộc tính cho các ô ký tự. CENTEA đề nghị quý Thầy Cô đặt tên cho các ô ký tự theo cấu trúc: oxy , trong đó: x là ký hiệu ô chữ ở dòng x tương ứng, y là số thứ tự (từ trái qua) của ô ký tự trên dòng x. Ví dụ: ô đầu tiên ở dòng 1 là o11, ô cuối cùng ở dòng 1 có tên là o16, ô đầu tiên ở dòng 4 là o41 và ô cuối cùng của dong 4 la o414. Cách làm như sau: Thầy Cô click phải vào ô muốn khai báo thuộc tính (ví dụ ô đầu tiên ở dòng 1), chọn Properties. Khung hộp thoại Properties hiện ra, ta chọn tab Categories và khai báo các thuộc tính như sau: - Nếu ô đó có chứa từ khóa, ta có thể chọn màu nền BackColor là màu khác. - Border Style: chọn chế độ 1- fmBorderStyleSingle để kẻ khung cho ô ký tự đó - Caption: để trống bằng cách xóa dòng chữ mặc định. Diều này đã lúc ban đầu nôi dụng của ô chữ không xuất hiện - Chọn màu chữ (ForeColor), ở đây CENTEA chọn màu chữ ñỏ cho các ô từ khóa, và màu chữ xanh cho các ô còn lại. - Chọn chế độ canh giữa chữ để ô ký tự nhìn cân đối bằng cách ở mục Text Align ta chọn chế độ 2-fmTextAlignCenter - Đặt tên cho ô ký tự đó theo nguyên tắc ở trên để chúng ta dễ dàng xử lý các câu lệnh ở phần sau. Name: o11 Sau khi khai báo thuộc tính cho ô ký tự đầu tiên, Thầy Cô làm tuần tự cho các ô ký tự còn lại. Bước 2: Tạo các nút lệnh Với mỗi ô chữ ta cần tạo 2 nút lệnh, 1 nút lệnh để thể hiện các chữ tương ứng của ô chữ đó, 1 nút lệnh để hiện nội dung câu hỏi tương ứng với nút lệnh trên, đồng thời, có ký hiệu để giúp Thầy Cô kiểm soát được những ô chữ nào mà học sinh đã chọn nhưng chưa trả lời được. Với yêu cầu đó, ta cần tạo 1 nhãn để thể hiện nội dung câu hỏi, 1 nút lệnh và 1 nút chọn cho mỗi câu. 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 4/8 centea.info@gmail.com Ví dụ: CENTEA tạo các nút lệnh có giao diện như sau: Bước 2.1: Tạo ô chứa nội dung câu hỏi khi 1 ô chữ ñược chọn Thầy Cô làm tương tư như ở bước 1.1 và 1.2. Tuy nhiên. Kích cỡ của ô nội dung câu hỏi cần đủ lớn để thể hiện đầy đủ nội dung câu hỏi. Đặt tên cho ô thông báo này là ndch Để thể hiện được tiếng Việt trong ô chữ này, Thầy Cô cần chọn bảng mã TCVN3 trong bộ gõ tiếng Việt Unikey (hoặc Vietkey), và trong phần thuộc tính (Properties) của ô ndch, ở mục Fonts, Thầy Cô chọn font .VNTimes Bước 2.2: Tạo nút lệnh ñể hiện câu hỏi tương ứng Yêu cầu của chúng ta là khi nhấn vào nút lệnh đó thì nội dung câu hỏi sẽ hiện ra, đồng thời ghi nhận ô chữ đó. Để làm nút lệnh thỏa mãn các điều kiện trên, CENTEA sẽ sử dụng công cụ Toggle Button trên thanh công cụ Control Tollbox (nút ở hàng thứ 5, cột 1). Cách làm như sau: - Thầy Cô click chọn vào nút lệnh Toggle Button. Khi đó, con trỏ chuột sẽ xuất hiện dấu cộng, Thầy Cô click chọn vào 1 vị trí thích hợp để tạo nút nhấn. - Ta Khai báo các thuộc tính cho nút lệnh này như sau: o Caption: ? o Value: False (nút nhấn chưa nhấn chọn) o Name: chon1 - Các nút nhấn cho các ô chữ còn lại ta làm tương tự. Thầy Cô có thể copy lại nút nhấn vừa tạo. Tuy nhiên, cần thay đổi lại các thuộc tính cho các nút nhấn vừa sao chép đó. Ví dụ: nút nhấn cho ô thứ 3 sẽ có thuộc tính: Caption: ?, Value: False, Name: chon3 Bước 2.3: Tạo nút lệnh ñể hiện nội dung ô chữ tương ứng Cách làm như sau: 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 5/8 centea.info@gmail.com - Thầy Cô click chọn vào nút lệnh Command Button (ô thứ 3, cột 1 của thanh công cụ Control Toolbox). Khi đó, con trỏ chuột sẽ xuất hiện dấu cộng, Thầy Cô click chọn vào 1 vị trí thích hợp để tạo nút lệnh. - Ta Khai báo các thuộc tính cho nút lệnh này như sau: o Caption: 1 o Name: o1 - Các nút lệnh còn lại ta làm tương tự. Thầy Cô có thể copy lại nút lệnh vừa tạo. Tuy nhiên, cần thay đổi lại các thuộc tính cho các nút lệnh vừa sao chép đó. Ví dụ: nút lệnh cho ô thứ 4 sẽ có thuộc tính: Caption: 4, Name: o4 Bước 2.4: Tạo nút lệnh Reset Ta tiến hành tương tự như bước 2.3 với các thuộc tính cho nút lệnh này là: Caption: Reset, Name: Reset. Khi chạy chương trình ô chữ lần ñầu tiên, chúng ta cần nhấn nút lệnh này ñể ẩn ñi các thông tin về ô chữ, nhằm ñảm bảo ô chữ không thể hiện khi bắt ñầu trình chiếu. Thông thường, chúng ta cũng nên nhấn Reset khi đã chạy xong ô chữ. Bước 3: Viết mã lệnh cho chương trình. Đầu tiên, để thể hiện được tiếng Việt trong khi trình chiếu, ở bước viết mã lệnh này, các Thầy Cô cũng chọn bộ mã là TCVN3 cho bộ gõ tiếng Việt Unikey (hoặc Vietkey). Trong quá trình viết lệnh, mặc dù chúng ta viết ñúng tiếng Việt, nhưng tiếng Việt có dấu không hiện ñúng, các Thầy Cô cứ yên tâm , CENTEA ñảm bảo tiếng Việt sẽ ñược thể hiện khi trình chiếu. Bước 3.1: Viết mã lệnh cho các nút nhấn chọn. Để khi người dùng nhấn vào nút chọn (?) tương ứng với ô chữ ở dòng 1 thì khung nội dung sẽ hiện ra câu hỏi tương ứng. Trước tiên, ta viết mã lệnh cho nút ấn chọn ô chữ 1 (nút chon1). Thầy Cô nhấn phải chuột vào nút nhấn tương ứng, chọn View Code, khung soạn thảo lệnh hiện ra như sau: 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 6/8 centea.info@gmail.com Ta nhp cõu lnh vo dũng trng gia, vi cỳ phỏp nh sau: If chon1.Value = True Then ndch.Caption = " Tên viết tắt của trung tâm hỗ trợ giáo viên?" End If Sau khi nhp ỳng, thỡ trong khung son tho lnh s cú cu trỳc nh sau: í ngha ca cõu lnh nh sau: Nu nỳt nhn chn 1 c n xung (chon1.value = true) thỡ gỏn tiờu khung ni dung cõu hi ndch l: Tờn vit tt ca trung tõm h tr giỏo viờn ( khung son lnh, ting Vit khụng c hin ỳng, nhng phn son tho slide PP v khi trỡnh din, ch ting Vit s hin th ỳng Ta lm tng t cho cỏc nỳt chn chon2, chon3, chon4. Sau khi son xong ta s cú cỏc dũng lnh nh sau: Private Sub chon2_Click() If chon2.Value = True Then ndch.Caption = "Bộ phận thông tin và hỗ trợ của CENTEA có tên viết tắt là gì?" End If End Sub Private Sub chon3_Click() If chon3.Value = True Then ndch.Caption = "Bộ phận quản lý tài nguyên của CENTEA có tên viết tắt là gì? " End If End Sub Private Sub chon4_Click() If chon4.Value = True Then ndch.Caption = "Sản phẩm nổi tiếng của CENTEA đợc nhiều giáo viên áp dụng vào bài giảng là:" End If End Sub Bc 3.2: Vit mó lnh cho nỳt hin ni dung ụ ch tng ng Thy Cụ click phi vo nỳt lnh o1, chn View Code v nhp on lnh nh sau: 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 7/8 centea.info@gmail.com Nội dung ở câu lệnh này là gán các tiêu đề cho các ô ký tự. Khi nhấn vào nút lệnh này thì nội dung của ô chữ ở dòng 1 sẽ hiển thị là: CENTEA Tương tự, Thầy Cô lần lượt click phải vào nút lệnh o2, o3, o4, chọn View Code và nhập các đoạn lệnh như sau: Bước 3.3: Viết lệnh cho nút Reset Thầy Cô click phải vào nút Reset, chọn View Code và nhập ñoạn lệnh như sau: Private Sub reset_Click() ndch.Caption = "" chon1.Value = "false" chon2.Value = "false" chon3.Value = "false" chon4.Value = "false" o11.Caption = "" o12.Caption = "" o13.Caption = "" o14.Caption = "" 9/29/2008 www.giaovien.net // www.center4teachers.com Trang 8/8 centea.info@gmail.com o15.Caption = "" o16.Caption = "" o21.Caption = "" o22.Caption = "" o23.Caption = "" o24.Caption = "" o31.Caption = "" o32.Caption = "" o33.Caption = "" o34.Caption = "" o41.Caption = "" o42.Caption = "" o43.Caption = "" o44.Caption = "" o45.Caption = "" o46.Caption = "" o47.Caption = "" o48.Caption = "" o49.Caption = "" o410.Caption = "" o411.Caption = "" o412.Caption = "" o413.Caption = "" o414.Caption = "" End Sub Sau khi hoàn thành bước trên thì chương trình ñã có thể thực hiện ñược, Thầy Cô ñóng chương trình Microsoft Visual Basic lại, trở về chương trình PowerPoint và chạy thử chương trình. ðể thuận tiện cho quý Thầy Cô rút bớt thời gian cho quá trình soạn thảo các dòng lệnh, CENTEA ñã copy toàn bộ ñoạn lệnh của chương trình vào file code.txt. Quý Thầy Cô chỉ cần hoàn tất bước 2, thiết kế slide ô chữ – với ñiều kiện tên các ô ký tự, các nút nhấn, các nút lệnh và ô nội dung câu hỏi phải ñược ñặt tên giống như CENTEA ñã làm. Sau ñó, Thầy Cô click phải vào 1 nút lệnh bất kỳ, chọn View Code ñể mở phần soạn mã lệnh, trong khung soạn mã lệnh bên phải, Thầy Cô xóa tất cả các dòng lệnh ñang có, rồi copy nội dung trong file code.txt ñể dán vào phần soạn lệnh. Như vậy, tất cả các nút lệnh ñã ñược viết mã. Nếu Thầy Cô tạo mới một ô chữ khác, thì cần phải chỉnh sửa lại các ñoạn mã của mình cho phù hợp, và nên ñặt tên theo quy ước như CENTEA ñể dễ dàng kiểm soát. Qua bài hướng dẫn này, CENTEA hy vọng sẽ giúp quý Thầy Cô có thêm 1 kinh nghiệm ñể tạo ô chữ ñố vui cho học sinh bằng ứng dụng VBA của chương trình PowerPoint Thực hiện: ðức Nhân – www.giaovien.net . của VBA trong bài hướng dẫn trước. Bước 1: Xác ñịnh – tạo các ô chữ Đầu tiên, ta cần xác định cấu trúc của ô chữ. Và cần xác định những ô nào chứa từ khóa. Ví dụ: CENTEA cần tạo 1 ô chữ trong. đầu nôi dụng của ô chữ không xuất hiện - Chọn màu chữ (ForeColor), ở đây CENTEA chọn màu chữ ñỏ cho các ô từ khóa, và màu chữ xanh cho các ô còn lại. - Chọn chế độ canh giữa chữ để ô ký. ô chữ là: ðây là một vấn ñề có vị trí quan trọng trong xã hội? Bước 1.1: Chúng ta cần tạo từng nhãn riêng biệt cho mỗi ô chữ. Ô chữ ở dòng 1 có 6 ký tự, ta cần tạo sáu nhãn, tương tự, ô chữ