1. Trang chủ
  2. » Lịch sử

Giáo trình Powerpoint tương tác bằng VBA

7 26 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Bằng cách sử dụng ngôn ngữ VBA (Visual Basic for Application) tích hợp sẵn trong Powerpoint ta có thể tạo ra tương tác trong các bài trình chiếu.. Thiết lập ban đầu.[r]

(1)(2)

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

(3)

Bài 01: Tổng quan Xây dựng trình chiếu tương tác Powerpoint

BÀI TNG 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 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 chỉ 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 này 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 các 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.1: Ví dụ Powerpoint tƣơng tác

(4)

Đố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

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

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 sự 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 này xuất Ta thay đổi giá trị thuộc tính

Hình 1.3: Bảo mật PP 2003

(5)

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

trong 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 hãy 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 sự kiện mặc định đối tượng

Ví dụ 1.3: click đúp vào label trên,

đối với nhãn kiện mặc định click chuột ta có cửa sổ VBA sau:

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") khi 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 trong 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

(6)

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 trên 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

(7)

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]. Powerful PowerPoint for Educators: Using Visual Basic for Applications to Make PowerPoint Interactive (2004). David M Marcovitz Libraries unlimited

Ngày đăng: 09/03/2021, 03:28

Xem thêm:

TỪ KHÓA LIÊN QUAN

w