POWERPOINT N NG CAO LP TRNH VBA Ths
POWERPOINT N NG CAO LẬP TRÌNH VBA Ths. Bùi Minh Đức Khoa CNTT – ĐHSP Hà Nội
Nội dung chính Powerpoint nâng cao Hiệu ứng Trigger Lập trình VBA Tổng quan Các đối tượng cơ bản Các đối tượng nâng cao Cách đặt thời gian cho các đối tượng Truy xuất đến slide & shape Yêu cầu: Học viên sử dụng thành thạo powerpoint cơ bản Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 2
Powerpoint nâng cao Hiệu ứng Màu xanh là hiệu ứng xuất hiện Màu vàng là hiệu ứng nhấn mạnh Màu đỏ là hiệu ứng biến mất Motion là hiệu ứng di chuyển Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 3
Powerpoint nâng cao Hiệu ứng Mỗi hiệu ứng sẽ có những lựa chọn nâng cao về hướng chuyển động tại nút Effect Options Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 4
Powerpoint nâng cao Hiệu ứng Bên cạnh đó còn có những tùy chọn về thời gian thực hiện hiệu ứng: - Start: chạy khi nào - Duration: chạy trong bao lâu - Delay: chạy sau hiệu ứng trước trong khoảng thời gian bao lâu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 5
Powerpoint nâng cao Hiệu ứng Để thêm hiệu ứng cho một đối tượng, lựa chọn nút Add Animation rồi chọn hiệu ứng cần thêm Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 6
Powerpoint nâng cao Hiệu ứng Để bật cửa sổ chứa hiệu ứng của các đối tượng, lựa chọn nút Animation Pane Ths Bùi Minh Đức - K. CNTT. ĐHSPHN Tại cửa sổ chứa hiệu ứng này, ta cũng có thể thực hiện cài đặt nâng cao cho các hiệu ứng bằng cách click vào mũi tên phía bên phải hoặc bấm phải chuột vào hiệu ứng 7
Powerpoint nâng cao Hiệu ứng Menu ngữ cảnh hiện ra cho phép lựa chọn các cài đặt. Chạy khi click chuột Chạy cùng với hiệu ứng trước Bật cửa sổ tùy chọn về hiệu ứng Chạy ngay sau hiệu ứng trước Ths Bùi Minh Đức - K. CNTT. ĐHSPHN Bật cửa sổ tùy chọn về thời gian 8
Powerpoint nâng cao Hiệu ứng Cửa sổ tùy chọn về hiệu ứng Tùy từng hiệu ứng mà số lượng các lựa chọn cài đặt ở đây có sự khác nhau Để cài đặt tiếng khi hiệu ứng chạy thì lựa chọn ở đây Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 9
Powerpoint nâng cao Hiệu ứng Cửa sổ tùy chọn về thời gian Chạy trong bao lâu Tùy chọn: Chạy khi nào Chạy sau hiệu ứng trước trong khoảng thời gian bao lâu Lặp lại bao nhiêu lần Chạy khi tương tác với đối tượng nào Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 10
Powerpoint nâng cao Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 11
Powerpoint nâng cao Trigger được dùng khi: Muốn bắt sự kiện cho một đối tượng Đối tượng đó phải có hiệu ứng Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 12
Powerpoint nâng cao Trigger Cách tạo trigger: Lựa chọn đối tượng cần đặt trigger Tạo hiệu ứng cho đối tượng đó Tại cửa sổ Animation Pane Click vào mũi tên hoặc click chuột phải vào hiệu ứng của đối tượng cần đặt trigger Chọn Timing Lựa chọn nút trigger Lựa chọn Start effect on click of …. . Lựa chọn đối tượng sẽ được click để tạo sự kiện Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 13
Powerpoint nâng cao Trigger Ví dụ 1: Có một câu hỏi cuối bài và 3 đáp án (1 đúng, 2 sai) Khi bấm vào đáp án đúng thì xuất hiện mặt cười đồng thời phát ra tiếng vỗ tay Khi bấm vào 1 trong 2 đáp án sai thì xuất hiện mặt mếu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 14
Powerpoint nâng cao Trigger Hướng dẫn thực hiện ví dụ trên Tạo 1 câu hỏi và 3 câu trả lời trên 4 textbox khác nhau Tạo 1 mặt cười và 1 mặt mếu Tạo 1 hiệu ứng xuất hiện cho mặt cười và 2 hiệu ứng xuất hiện cho mặt mếu Đặt trigger cho hiệu ứng xuất hiện của mặt cười là khi bấm vào câu trả lời đúng đồng thời chọn tiếng cho hiệu ứng là Applause Đặt trigger cho hiệu ứng xuất hiện lần 1 của mặt mếu là khi bấm vào câu trả lời sai thứ nhất Đặt trigger cho hiệu ứng xuất hiện lần 2 của mặt mếu là khi bấm vào câu trả lời sai thứ hai Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 15
Powerpoint nâng cao Trigger B 1: Chọn hiệu ứng xuất hiện cho các mặt B 2: Bấm chuột phải vào đây để lựa chọn Timing B 3: bấm vào nút Trigger B 4: bấm vào nút lựa chọn Start effect on click of Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 16 B 5: Lựa chọn đối tượng sẽ được bấm
Powerpoint nâng cao Trigger Bấm chuột phải vào đây Lựa chọn Effect Option Ths Bùi Minh Đức - K. CNTT. ĐHSPHN Lựa chọn Applause rồi ấn OK 17
Powerpoint nâng cao Trigger - Ví dụ 1 Câu hỏi cuối bài A. Đáp án đúng B. Đáp án sai C. Đáp án sai Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 18
Powerpoint nâng cao Ví dụ 2: Tạo đồng hồ đếm ngược khi bấm vào nút bắt đầu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 19
Powerpoint nâng cao Hướng dẫn thực hiện ví dụ 2 Tạo 10 hình tròn xếp chồng lên nhau Điền số cho các hình tròn lần lượt từ 1 đến 10 Lựa chọn cả 10 hình rồi đặt hiệu ứng biến mất cho chúng là Fade, đặt trigger cho chúng là chạy khi bấm vào nút Bắt đầu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 20
Powerpoint nâng cao Hướng dẫn thực hiện ví dụ 2 Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 21
Powerpoint nâng cao Hướng dẫn thực hiện ví dụ 2 Tạo 10 hình tròn xếp chồng lên nhau Điền số cho các hình tròn lần lượt từ 1 đến 10 Lựa chọn cả 10 hình rồi đặt hiệu ứng biến mất cho chúng là Fade, đặt trigger cho chúng là chạy khi bấm vào nút Bắt đầu Đổi vị trí cho các hiệu ứng để sao sự biến mất bắt đầu từ 10 đến 1 Lựa chọn các hiệu ứng từ 1 đến 9, đặt thời gian thực hiện là After Previous, Delay 1 s Đặt thời gian thực hiện cho hiệu ứng của hình 10 là Start On Click Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 22
Powerpoint nâng cao Hướng dẫn thực hiện ví dụ 2 B 2: Đặt Timing như trên B 3: Chọn tiếng là Click B 1: Đổi vị trí rồi Lựa chọn cả 9 hiệu ứng Kết quả Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 23
Powerpoint nâng cao Hướng dẫn thực hiện ví dụ 2 Để đặt trùng khít các hình: • Chọn toàn bộ các hình • Chọn Format/Align/Top, Left Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 24
Powerpoint nâng cao Trigger - Ví dụ 2 10 6 8 9 4 53721 Câu hỏi cuối bài A. Đáp án đúng B. Đáp án sai C. Đáp án sai Bắt đầu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 25
BÀI TẬP Câu 1: Thiết kế bộ câu hỏi trắc nghiệm gồm 5 câu hỏi Mỗi câu có 3 phương án trả lời (1 phương án đúng và 2 phương án sai) Tại slide của mỗi câu hỏi có một nút bắt đầu, khi bấm vào nút này thì đồng hồ đếm ngược 10 giây bắt đầu chạy Chọn phương án đúng thì xuất hiện mặt cười đồng thời xuất hiện tiếng vỗ tay Chọn phương án sai thì xuất hiện mặt mếu đồng thời phương án sai biến mất Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 26
BÀI TẬP Câu 2: Thiết kế một trò chơi ô chữ với kịch bản: Bấm vào số thì nội dung câu hỏi tương ứng được hiển thị đồng thời các ô chữ đổi màu Bấm vào ngôi sao tương ứng của mỗi câu thì nội dung câu trả lời được hiển thị Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 27
Vấn đề đặt ra Tất cả những tương tác ở trên đều chỉ là một chiều. Muốn nhận câu trả lời bằng cách gõ từ bàn phím thì làm thế nào? Muốn thiết kế câu trả lời theo kiểu ghép nối thì làm thế nào? Muốn dừng đồng hồ tại thời điểm trả lời thì làm thế nào? Muốn lưu lại điểm sau mỗi câu trả lời đúng thì sao? . . . ? ? Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 28
Lập trình VBA Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 29
Lập trình VBA Tổng quan Các đối tượng cơ bản Các đối tượng nâng cao Cách đặt thời gian cho các đối tượng Truy xuất đến slide & shape Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 30
Tổng quan về lập trình VBA Thiết lập ban đầu B 1: Lựa chọn Options trong menu File Ths Bùi Minh Đức - K. CNTT. ĐHSPHN B 2: Lựa chọn Trust Center 31 B 3: Lựa chọn Trust Center Settings
Tổng quan về lập trình VBA Thiết lập ban đầu B 4: Lựa chọn Macro Settings B 5: Lựa chọn Enable all macros. . Rồi ấn OK Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 32
Tổng quan về lập trình VBA Thiết lập ban đầu B 6: Lựa chọn Customize ribbon Ths Bùi Minh Đức - K. CNTT. ĐHSPHN B 7: Check vào mục Developer để xuất hiện thẻ Developer trên dải Ribbon 33
Các đối tượng cơ bản Trên thẻ Developer ta dễ dàng sử dụng các đối tượng cơ bản để thiết kế trực tiếp lên slide Ths Bùi Minh Đức - K. CNTT. ĐHSPHN Ngoài ra ta có thể sử dụng các đối tượng nâng cao hơn bằng cách click vào nút này 34 Mỗi đối tượng sẽ có những thuộc tính và phương thức tương ứng
Các thuộc tính của đối tượng Thuộc tính Ý nghĩa Name Tên của đối tượng (phải khác nhau, viết liền, không dấu) Font Cho phép thay đổi font chữ, cỡ chữ, kiểu chữ cho đối tượng (Muốn viết tiếng việt thì chọn font. Vn và bảng mã TCVN 3) Caption Cho phép lấy/đặt giá trị hiển thị của Lable hoặc Button, Check Box, Option Button Text Cho phép lấy/đặt giá trị chữ của Text. Box Value Cho phép lấy/đặt giá trị số của Text. Box Value Cho phép lấy/ đặt giá trị check hoặc không check của Check. Box và Option Button (giá trị là true/false) . . . Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 35
Bắt sự kiện cho một đối tượng Nháy kép chuột vào đối tượng cần bắt sự kiện Cửa sổ viết code hiện ra sinh sẵn một đoạn mã lệnh đầu và cuối hàm Viết lệnh vào thân hàm tại vị trí con trỏ Ví dụ: Khi bấm vào nút Kết quả thì text box kết quả hiển thị nội dung của kết quả ta làm như sau: Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 36
Bắt sự kiện Tạo lable Ket qua và đặt tên là lbketqua Nháy kép chuột vào nút Ket qua Cửa sổ viết lệnh hiện ra, cho đoạn mã lệnh đầu và cuối hàm Con trỏ nháy tại đây cho phép gõ lệnh của thân hàm Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 37
Một số chú ý khi viết lệnh Các kiểu dữ liệu Cách khai báo biến/ hằng Phạm vi sử dụng của biến/ hằng Các hàm chuyển đổi kiểu Các toán tử Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 38
Các kiểu dữ liệu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 39
Cách khai báo biến/ hằng Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 40
Phạm vi sử dụng Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 41
Cách khai báo thủ tục/ hàm Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 42
Các toán tử Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 43
Các hàm chuyển đổi kiểu Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 44
Các hàm toán học Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 45
Các hàm chuỗi Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 46
Các hàm chuỗi Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 47
Các hàm chuỗi Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 48
Cấu trúc điều khiển Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 49
Cấu trúc lặp Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 50
Cấu trúc lặp Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 51
Cấu trúc lặp Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 52
Cấu trúc lặp while. . . wend Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 53
Câú trúc lặp Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 54
Cấu trúc lặp Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 55
Một số lệnh ngắt Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 56
Tham chiếu đến file powerpoint Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 57
Các thuộc tính của đối tượng file Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 58
Các thuộc tính của đối tượng file Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 59
Tham chiếu đến slide Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 60
Các thuộc tính của slide Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 61
Các đối tượng trên một slide Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 62
Trình chiếu slide Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 63
Lưu file powerpoint khi sử dụng VBA Chọn Save as rồi chọn kiểu file là Power. Point Macro Enabled Presentation Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 64
Bài tập ví dụ Tạo một bộ 3 câu hỏi (mỗi câu trên 1 slide) Câu 1 cho phép người dùng trả lời bằng cách click chuột vào phương án trả lời đúng Câu 2 yêu cầu trả lời bằng cách gõ từ bàn phím Câu 3 yêu cầu ghép nối các đáp án vào đúng chỗ Tại slide cuối cùng: Nếu bấm vào nút Xem kết quả thì thông báo số câu trả lời đúng Nếu bấm vào nút Làm lại thì quay lại câu 1 Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 65
Hướng dẫn thiết kế Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 66
Hướng dẫn thiết kế B 1 B 2 B 4 B 5 Đặt tên (mỗi đối tượng một tên khác nhau) B 3 Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 67
Hướng dẫn thiết kế B 2: Chọn Text. Box để cho phép gõ B 1 B 4: Chọn Properties để hiện bảng thuộc tính B 5 Đặt tên (mỗi đối tượng một tên khác nhau) B 3: Vẽ các Text. Box vào đúng vị trí Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 68
Hướng dẫn thiết kế B 1 B 2: Chọn Label để không cho phép gõ B 4: Chọn Properties để hiện bảng thuộc tính B 5 Đặt tên và đặt màu cho mỗi label B 3: Vẽ các Label vào đúng vị trí Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 69
Hướng dẫn thiết kế Vẽ 1 Label kết quả Vẽ 2 Comand Button Ths Bùi Minh Đức - K. CNTT. ĐHSPHN Nháy kép vào mỗi nút để viết lệnh 70 Đặt tên và caption cho mỗi đối tượng
Hướng dẫn Viết lệnh cho câu hỏi ghép nối Nháy kép vào nútlbkq. Dong lb. Dong vàvà viết lệnh Nháy kép vào nút lbkq. Dong và viết lệnh Khai báo một biến tạm để lưu kết quả nhận được và gán vào lần bấm tiếp theo Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 71
Hướng dẫn Cách xem tên slide chỉ số Slide là 71 Tên Slide lại là 69 Tại mỗi slide câu hỏi, bật cửa sổ properties, bấm chuột vào vùng trắng để xem tên slide Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 72
Hướng dẫn Viết lệnh cho nút Xem kết quả Khai báo một biến điểm Chú ý lấy tên các slide cho đúng Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 73
Câu hỏi số 1 - Chọn 1 đáp án đúng Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 74
Câu hỏi số 2 - Điền từ thích hợp vào chỗ trống Ba sẽ là cánh Cho con thật xa Mẹ sẽ là cành Cho con Ths Bùi Minh Đức - K. CNTT. ĐHSPHN lên ngực 75
Câu hỏi số 3 – Ghép nối các tổ hợp phím tắt Đóng cửa sổ Lưu file Mở trợ giúp Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 76
Kết quả Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 77
Bài tập 1 2 3 4 5 Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 78
h n à th n ạ b c cá c ú Ch Ths Bùi Minh Đức - K. CNTT. ĐHSPHN 79 ! g côn
- Slides: 79