MÃ LỆNH TRONG POWERPOINT
BÀI GIẢNG TƯƠNG TÁC
BÀI 7

TẢI HÌNH LẦN LƯỢT
ÔN LUYỆN CÁC KHÁI NIỆM TOÁN HỌC
Xin Click vào đây để xem các bài trước
nếu lần đầu bạn xem tài liệu này!
1 . Ý tưởng thiết kế:
- Tạo một Slide tải được nhiều hình ảnh hình học lần lượt xuất hiện trong một khuôn hình định sẵn (dùng để ôn tập một hệ thống vấn đề nào đó, tạo anbum ảnh hay tạo ra các hình ảnh giúp HS học từ vựng tiếng Anh….)
- Trong VD này: khi hình tải lên thì tương ứng với mỗi hình có thêm phần đặc điểm, tính chất của hình để giúp HS ôn tập tổng hợp. Các tính chất này được xuất hiện trong một ô bên cạnh hình.
- HS có thể bấm nút tới – lui để học lại, cũng có thể xem lại từ đầu nếu hết các hình lưu trữ.
2 . Quy trình thực hiện:
- Dùng công cụ Image trên thanh công cụ Control Toolbox để vẽ ra trên slide một ô chứa hình ảnh cần tải ra. Chuột phải vào Image rồi chọn Properties để đặt tên cho Image (trong dòng Name) là imgAnh.
- Kế đến bạn tạo một Label bên cạnh imgAnh dùng để chứa các đặc điểm, tính cất của hình tương ứng. Đặt tên là lblTen
Tạo tiếp Spin để tải hình tới – lui. Đặt tên là: spnChuyenhinh
Tạo thêm một Button để học lại từ đầu, tại thuộc tính Caption bạn gõ tiêu đề cho nút. Đặt tên nút là btnHoclai
ÔN TẬP VỀ ĐA GIÁC
Tạo tiêu đề cho trang trình chiếu bằng công cụ Text Box trên thanh Draw
- Bây giờ ta soạn các đặc điểm, tính chất của mỗi hình bằng đối tượng SpreadSheet. Bạn nhấp vào More Control (hình cái búa trên thanh Control Toolbox), một danh sách thả xuống bạn tìm đến dòng Microsoft Office Spreadsheet 11.0 và nhấp chuột. Khi con trỏ trở thành hình dấu (+) thì bạn kéo chuột trên slide để vẽ tạo một bảng dạng Excel phủ kín slide như hình dưới. Bạn chuột phải vào bảng chọn Properties rồi đặt tên cho bảng này là spsLuutru và chuột phải vào bảng chọn mục Microsoft Office Spreadsheet 11.0 Object rồi chọn Edit để vào chế độ soạn thảo trắc nghiệm. Bạn lưu ý soạn nội dung dòng 1 tương ứng với ảnh 1,…, dòng thứ n tương ứng với ảnh thứ n. Sau khi soạn xong bạn nhấp chuột ra phía ngoài của bảng để thoát khỏi chế độ soạn thảo, thu nhỏ bảng và đặt ra ngoài slide có ảnh cần trình chiếu. Bạn có thể xem lại bài 6 nếu chưa nắm chắc vấn đề này.
Nhấn vào đây nếu bạn muốn định dạng lại chữ
Đây là bảng Properties của đối tượng spnChuyehinh, bạn chú ý đến thuộc tính Value của nó có tác dụng lưu số thứ tự câu hiện hành. Bạn nhập vào Min = 1, Max = số ảnh cần tải ra trong Spreadsheet, ở VD này tôi soạn 14 ảnh nên Max = 14
Công việc còn lại bây giờ là viết CODE. Bạn nhấp đúp vào Button “Học lại” để mở cửa sổ VBA của đối tượng này và nhập vào đoạn code sau đây (khi người dùng click vào thì gán cho giá trị của spnChuyenhinh bằng 1 để đưa về hình đầu tiên):
Private Sub btnHoclai_Click()
spnChuyenhinh.Value = 1
End Sub
Dòng lệnh này có ý nghĩa là tải ảnh nằm trong thư mục media (các ảnh đều có chung tên là Anh và chỉ khác nhau về thứ tự như: Anh1, Anh2, …), dấu “&” (nối chuỗi) spnChuyenhinh.Value điều khiển cho ảnh tải ra có số thứ tự giống như giá trị của Spin đang nhận với đuôi là .jpg. Hai dòng sau để Refresh imgAnh. Dòng gần cuối tải nội dung từ SpreadSheet ra lblTen (xem bài 6).
- Tiếp tục viết code cho Spin như sau (bạn nhớ nhấp đúp vào Spin để mở cửa sổ VBA):
Private Sub spnChuyenhinh_Change()
imgAnh.Picture = LoadPicture(ActivePresentation.Path & "mediaAnh" & spnChuyenhinh.Value & ".jpg")
imgAnh.Visible = False
imgAnh.Visible = True
lblTen.Caption = spsLuutru.Cells(spnChuyenhinh.Value, 1)
End Sub
- Hẳn bạn còn nhớ thư mục lưu trữ ta cần đặt ngang cấp với bài trình chiếu ở bài 5, trong bài này cũng vậy, ảnh tải ra nằm trong thư mục media ngang cấp với bài trình chiếu. Xong rồi bạn ơi, cuối cùng ta được kết quả như sau (bấm thử luôn):
ÔN TẬP VỀ ĐA GIÁC
Hẹn gặp lại các bạn trong bài 8 !
Bạn hãy thiết kế một Slide giúp bé yêu nhà bạn học từ mới tiếng Anh xem sao, Nếu nhóc nhà bạn đã lớn thì bạn thử lập một anbum ảnh gia đình (được tải ra lần lượt với những dòng lưu giữ kỉ niệm khó quên) cũng thú vị lắm. Nếu trục trặc gì hãy gửi email cho tôi: tuancuonghp@gmail.com.