tai lieu powerpoint nang caolap trinh vba

POWERPOINT NÂNG CAO – LẬP TRÌNH VBA MÃ CĐ: 04.16.01 1.1 Tổng quan VBA VBA (Visual Basic for Aplication) môi trường lập trình hướng đối tượng sử dụng ngôn ngữ lập trình VB (Visual Basic) Cú pháp và giao diện lập trình cũng giống VB 6.0 (Visual Basic 6.0) điều khác biệt là VB có thể tạo được các chương trình thực thi độc lập Còn VBA tích hợp vào ứng dụng (Aplication) sử dụng đối tượng của ứng dụng VBA tạo chương trình tự động thực thi độc lập (*.exe) Nếu Office ta lập trình VBA Sự kết hợp Visual Basic Aplication cho ta tên VBA VBA được nhúng các chương trình ứng dụng phía sau chương trình Microsoft Word, Microsoft Excel, Micosoft Access, Microsoft PowerPoint, v.v VBA cho phép viết mã lệnh có tác động tới nhiều đối tượng để làm tăng tính tự động hóa ứng dụng mình, làm việc mà công cụ sẵn có ứng dụng chưa có tạo đề câu hỏi trắc nghiệm PowerPoint, câu hỏi điền khuyết, trò chơi ô chữ… 1.2 Khởi tạo môi trường lập trình 1.2.1 Thiết lập chế độ bảo mật Mặc định MS PowerPoint không cho chạy Macro lí bảo mật, để thuận tiện trình sử dụng VBA ta cần thiết lập lại chế độ bảo mật cho PowerPoint theo bước sau: Đối với Microsoft Office PowerPoint 2010: Bước 1: Làm hiển thị menu Developer cách: File/Options/Custom Ribbon/ Đánh dấu mục Developer Khi menu giao diện Microsoft PowerPoint xuất thêm menu Developer Bước 2: Vào Developer/ Nhóm Code/ Kích mục Macro Security Trong hộp thoại Trust Center / Chọn mục Macro Settings/ Đánh dấu vào mục Enable all macros (not recommended;potentially ) mục Trust access to the VBA project object model 1.2.2 Giới thiệu công cụ Control Toolbox - Đối với Microsoft Office PowerPoint 2010, mở menu Developer ta thấy nhóm Controls chứa đối tượng mà đối tượng có nhóm thuộc tính phương thức tương ứng VBA cho phép chèn đối tượng sau vào ứng dụng : • Check box: Ô đánh dấu kiểm chọn • Command Button: Nút thực đoạn lệnh • List Box: Thể hộp có nhiều lựa chọn • Toogle Box: Nút bật chức năng, giống công tắc đèn • Scroll Bar: Nút cuộn • Image: Chèn hình ảnh • View Code: Xem, chỉnh sửa đoạn mã lệnh • Text Box: Khung chứa nội dung văn • Option Button: Nút đơn lựa chọn • Combo Box: Hộp kết hợp ListBox TextBox • Label: Nhãn • Other Controls: Các điều khiển khác công cụ chèn Flash vào PowerPoint , công cụ hỗ trợ lưu trữ dữ liệu dưới dạng bảng Khi chèn đối tượng vào Slide, để lập trình VBA, ta kích chuột vào View code Visual Basic, nhấn tổ hợp phím Alt + F11, xuất cửa sổ Microsoft Visual Basic, viết code cho đối tượng - Các thuộc tính đối tượng: Khi đối tượng chèn vào Slide, tại đối tượng đó, nháy chuột phải chọn Properties, đối tượng có thuộc tính mặc định sau: • BackColor: Màu cho đối tượng • Delay: Độ trễ • Enabled: Cho phép thuộc tính hiển thị • ForeColor: Màu chữ • Font: Cho phép chọn phông chữ, cỡ chữ, kiểu chữ • Height: Độ cao đối tượng • AutoSize: Cho phép tự động thay đổi kích thước hay không • Picture: Ảnh đối tượng • TextAlign: Căn lề đối tượng • Visible: Cho phép tương tác với đối tượng không • Caption Value: Nội dung đối tượng Tại bảng Properties, ta sẽ thiết lập các giá trị cho mỗi đối tượng 2.1 Sử dụng VBA PowerPoint thiết kế đề trắc nghiệm 2.1.1 Ứng dụng tạo tập trắc nghiệm Bước 1: Tạo slide chứa câu hỏi trắc nghiệm mẫu sau: Trong slide có option button đặt thuộc tính Name optA, optB, optC, optD 01 command có tên cmdKetqua Bước 2: Viết code cho nút chức Trong tập ta cần viết code cho nút Kết để hiển thị thông báo lựa chọn sai Private Sub cmdKetqua_Click() If optB.Value = True Then MsgBox "Rat chinh xac" Else MsgBox "Ban can kiem tra lai" End If End Sub 2.1.2 Ứng dụng tạo tập dạng điền khuyết Bước 1: Tạo Slide chứa tập điền khuyết theo mẫu sau Label câu trả lời Label phương án trả lời - Label chứa phương án trả lời cho sẵn giá trị, đặt tên thuộc tính Name lb1, lb2, lb3, lb4, lb5 - Label chứa câu trả lời đặt tên thuộc tính Name là: lbtraloi1, lbtraloi2, lbtraloi3, lbtraloi4, lbtraloi5 - 01 Command phép làm lại cần đặt thuộc tính Name CmdLamlai - 01 Command để kiếm tra kết đặt thuộc tính Name CmdKetqua - 01 Label để chấm điểm (màu vàng): đặt thuộc tính Name lbKetqua Bước 2: Viết code cho nút chức // Đoạn code thực chức nút Làm lại Private Sub CmdLamlai_Click() lbtraloi1.Caption = "" lbtraloi2.Caption = "" lbtraloi3.Caption = "" lbtraloi4.Caption = "" lbtraloi5.Caption = "" lbdiem.Caption = "" End Sub // Đoạn code chức nút Kết Private Sub cmdKetqua_Click() Dim diem As Integer diem = If lb1.Caption = lbtraloi2.Caption Then diem = diem + End If If lb2.Caption = lbtraloi5.Caption Then diem = diem + End If If lb3.Caption = lbtraloi3.Caption Then diem = diem + End If If lb4.Caption = lbtraloi4.Caption Then diem = diem + End If If lb5.Caption = lbtraloi1.Caption Then diem = diem + End If lbdiem.Caption = Str(diem) & " / 5" End Sub // Đoạn code thực gán từ cụm từ vào biến tạm để lưu giữ giá trị đưa giá trị vào ô trả lời Private Sub lb1_Click() tam = lb1.Caption End Sub Private Sub lb2_Click() tam = lb2.Caption End Sub Private Sub lb3_Click() tam = lb3.Caption End Sub Private Sub lb4_Click() tam = lb4.Caption End Sub Private Sub lb5_Click() tam = lb5.Caption End Sub Private Sub lbtraloi1_Click() lbtraloi1.Caption = tam End Sub Private Sub lbtraloi2_Click() lbtraloi2.Caption = tam End Sub Private Sub lbtraloi3_Click() lbtraloi3.Caption = tam End Sub Private Sub lbtraloi4_Click() lbtraloi4.Caption = tam End Sub Private Sub lbtraloi5_Click() lbtraloi5.Caption = tam End Sub 2.1.3 Ứng dụng tạo đề trắc nghiệm có khả chấm điểm Bước 1: Tạo Slide tập trắc nghiệm theo mẫu sau - Slide 1: Gồm + 04 option button đặt thuộc tính Name opt1A, opt1B, opt1C, opt1D + 02 command đặt thuộc tính Name cmdBatdau, cmd1Tieptuc + 01 Label để chứa kết chấm điểm tạm thời đặt tên lbDiemtam - Slide đến slide 4: Mỗi slide có optionbutton 01 command đặt thuộc tính Name tương ứng với đối tượng, slide Ví dụ: opt2A, opt3A, cmd2Tieptuc, cmd3Tieptuc - Slide 5: Gồm + 04 option button đặt thuộc tính Name opt15A, opt5B, opt5C, opt5D + 02 command đặt thuộc tính Name cmdKetqua, cmdLamlai + 01 Label để chứa kết đặt tên lbDiem Bước 2: Viết code cho nút chức //Code cho đối tượng Slide 1với lựa chọn B đáp án Private Sub cmd1Tieptuc_Click() ActivePresentation.SlideShowWindow.View.Next End Sub Private Sub cmdBatdau_Click() Slide2.opt1A.Value = False Slide2.opt1B.Value = False Slide2.opt1C.Value = False Slide2.opt1D.Value = False Slide2.lbDiemtam.Caption = Slide3.lbDiem.Caption = "" End Sub Private Sub opt1B_Click() Slide2.lbDiemtam.Caption = Slide2.lbDiemtam.Caption + End Sub //Code cho đối tượng Slide với lựa chọn A đáp án Private Sub cmd2Tieptuc_Click() ActivePresentation.SlideShowWindow.View.Next End Sub Private Sub opt2A_Click() Slide2.lbDiemtam.Caption = Slide2.lbDiemtam.Caption + End Sub //Code cho đối tượng Slide với lựa chọn B đáp án Private Sub cmd3Tieptuc_Click() ActivePresentation.SlideShowWindow.View.Next End Sub Private Sub opt3B_Click() Slide2.lbDiemtam.Caption = Slide2.lbDiemtam.Caption + End Sub //Code cho đối tượng Slide với lựa chọn C đáp án Private Sub cmd4Tieptuc_Click() ActivePresentation.SlideShowWindow.View.Next End Sub Private Sub opt4C_Click() Slide2.lbDiemtam.Caption = Slide2.lbDiemtam.Caption + End Sub //Code cho đối tượng Slide với lựa chọn C đáp án Private Sub cmdKetqua_Click() If opt5C.Value = True Then Slide2.lbDiemtam.Caption = Slide2.lbDiemtam.Caption + End If lbDiem.Caption = Slide2.lbDiemtam.Caption End Sub Private Sub cmdLamlai_Click() Slide2.opt1A.Value = False Slide2.opt1B.Value = False Slide2.opt1C.Value = False Slide2.opt1D.Value = False Slide2.lbDiemtam.Caption = lbDiem.Caption = "" ActivePresentation.SlideShowWindow.View.First End Sub 10 2.2 Bài tập: Tạo trò chơi ô chữ Nhấp chọn vào ô dòng để câu hỏi, lúc này, câu đã chọn sẽ đổi màu Nhập câu trả lời vào ô trống nhấp chọn nút kiểm tra để biết hay sai Ở yêu cầu nhập câu trả lời phải dùng tiếng Việt không dấu, in hoa Nếu xuất thông báo “BAN DA TRA LOI DUNG” Ô chữ dòng câu trả lời 11 Nếu sai thì hiện hộp thông báo “BAN DA SAI ROI” Đồng thời ô chữ dòng đó đổi sang màu xanh 12 13 14 ... recommended;potentially ) mục Trust access to the VBA project object model 1.2.2 Giới thiệu công cụ Control Toolbox - Đối với Microsoft Office PowerPoint 2010, mở menu Developer ta thấy nhóm Controls... điều khiển khác công cụ chèn Flash vào PowerPoint , công cụ hỗ trợ lưu trữ dữ liệu dưới dạng bảng Khi chèn đối tượng vào Slide, để lập trình VBA, ta kích chuột vào View code Visual... tượng Tại bảng Properties, ta sẽ thiết lập các giá trị cho mỗi đối tượng 2.1 Sử dụng VBA PowerPoint thiết kế đề trắc nghiệm 2.1.1 Ứng dụng tạo tập trắc nghiệm Bước 1: Tạo slide chứa câu