VBA trong PowerPoint (bài 2)

Để chạy được các lệnh VBA, quý thầy cô nên cấu hình Powerpoint như đã hướng dẫn trong bài “Mở đầu”.. Nếu gặp khó khăn trong việc cấu hình này xin quý thầy cô truy cập vào địa chỉ sau đ

Để chạy được các lệnh VBA, quý thầy cô nên cấu hình Powerpoint như đã hướng dẫn trong bài “Mở đầu” Nếu gặp khó

khăn trong việc cấu hình này xin quý thầy

cô truy cập vào địa chỉ sau để tải file cấu hình tự động về, khi đó chỉ cần chạy file này, cấu hình sẽ được thiết lập một cách

tự động.

Nếu máy tính của quý thầy cô đã được thiết lập theo yêu cầu, xin hãy thử click chuột vào dòng “Thứ ” ở bên dưới

Thứ…

Dòng “Thứ…” phải thay đổi nội dung

thành “thứ, ngày tháng, năm” theo hiện hành của hệ thống

Hướng dẫn thực hiện

 1 Mở tập PowerPoint (ppt) cần cập nhật ngày, tháng như thường.

 2 Vào menu Tool - Macro – Visual Basic Editor (hoặc bấm Alt + F11).

 3 Trong cửa sổ Visual Basic Editor, quý thầy, cô vào menu Insert – Module Một module mới xuất hiện.

 4 Trong trang soạn thảo module, thầy, cô

gõ nội dung sau (phải gõ chính xác):

Minh họa

Hướng dẫn thực hiện

Function NgayUNI(ngay), nhấn “Enter” để

xuống dòng, Visual tự động thêm bên dưới dòng “End Function”, lúc này nội dung

trang code sẽ như sau:

Function NgayUNI(ngay)

End Function

Quý thầy cô gõ tiếp vào giữa cặp Fun…, End với nội dung sau:

Hướng dẫn thực hiện

dd = Day(ngay) mm = Month(ngay)

yy = Year(ngay)

Thu = Weekday(ngay)

Select Case Thu

Case 1

Thu = "Ch" & ChrW(7911) & " nh" &

ChrW(7853) & "t"

Case 2

Thu = "Th" & ChrW(7913) & " hai"

Hướng dẫn thực hiện

Case 3

Thu = "Th" & ChrW(7913) & " ba"

Case 4

Thu = "Th" & ChrW(7913) & " t" & ChrW(432)

Case 5

Thu = "Th" & ChrW(7913) & " n" & ChrW(259) &

"m"

Case 6

Thu = "Th" & ChrW(7913) & " sáu"

Hướng dẫn thực hiện

Case 7

Thu = "Th" & ChrW(7913) & " b" & ChrW(7843) &

"y"

End Select

NgayUNI = Thu & ", ngày " & Format(dd, "00") & " tháng " & Format(mm, "00") & " n" & ChrW(259)

& "m

Minh họa

H ướ ng d n th c hi n ẫ ự ệ

H ướ ng d n th c hi n ẫ ự ệ

 Cũng ở trang code này, thầy, cô soạn tiếp nội

dung sau:

Sub Thumay(ngay)

ActivePresentation.Slides(“TenSlide").Shapes(“Ten Shapes").TextFrame.TextRange.Text =

NgayUNI(Date)

End Sub

* Ghi chú: “TenSlide”, “TenShape” là tên Slide và tên Shape hiện hành của tập tin đang xử lí

Hướng dẫn thực hiện

 Sau khi soạn xong nội dung trang code trên,

đóng cửa sổ này lại, trở về trang soạn thảo của ppt

 Quý thầy cô chọn shape cần thứ (cần cập nhật), chuột phải, chọn Action Settings Ở trang Action Settings, chọn tiếp Run macro – Thumay

 Save rồi bấm F5 để chạy, click chuột vào dòng thứ …, nội dung của dòng này sẽ được cập nhật theo thứ, ngày, tháng hiện hành

Hướng dẫn thực hiện

 Lưu ý: Nếu gặp khó trong soạn code, quý thầy

cô hãy mở tập tin này rồi bấm Alt + F11 sẽ mở cửa sổ Visual Basic để tham khảo trang code của bài học này