Bài soạn Lam dong ho dem nguoc bang VBA

Xin giới thiệu với quý Thầy Cô, cách làm đồng hồ đếm ngược bằng
ứng dụng VBA trong PowerPoint:
* Đầu tiên ta tạo ra một Textbox (để làm đồng hồ) theo cách làm bình
thường. Định dạng Textbox đó theo ý mình muốn (Font, cỡ chữ, màu
sắc, ...)
* Tạo hiệu ứng Appear cho text box này, và chọn With Previous trong
mục Start (mục đích của việc làm này để đối tượng textbox có thuộc
tính TextFrame, và để chúng ta biết tên của đối tượng TextBox, thông
thường, tên các textbox sẽ là Shape i với i là thứ tự của Textbox đó có
trong slide . Chúng ta cần ghi nhận số i này để khai báo trong dòng
lệnh. Ví dụ: trong khung Custom Animation hiện Shape 2 nên i = 2 */
* Mở cửa sổ Visual Basic Editor (ALT+F11), chọn Insert -> Module rồi
gõ vào (hoặc copy) các dòng sau đây :
Const Time = 20
Sub Dem_Nguoc()
Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi As
Single, N As Integer
Ngung = False
Dem = Time
Gio_Cu = Int(Timer)
N = ActivePresentation.Slides.Count
ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text =
Format(Dem, "00")
Do While Not Ngung
DoEvents
Gio_Moi = Int(Timer)
If Gio_Moi > Gio_Cu Then
Dem = Dem - 1
Gio_Cu = Gio_Moi
ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text =
Format(Dem, "00")

If Dem = 0 Then Ngung = True
End If
Loop
End Sub
Trong đó:
Time là thời gian đếm (có thể thay đổi thông số này cho phù hợp)
N = ActivePresentation.Slides.Count (để ghi nhận thứ tự của slide trình
diễn hiện tại)
ActivePresentation.Slides(N).Shapes(2). TextFrame.TextRange.Text =
Format(Dem, "00"): gán nội dung cho textbox của đồng hồ có tên
Shape 2 ở slide hiện tại. Nếu như ở bước tạo hiệu ứng cho Text Box,
Thầy Cô ghi nhận được là Shape 5 thì thay số 2 bằng số 5 trong dòng
lệnh này.
* Trở lại cửa sổ PP, vào View >> Toolbars, nhấn chọn Control Text Box
* Chọn nút Command Button rồi vẽ nút lệnh vào vị trí tùy ý trên Slide
* Khia báo thuộc tính cho nút lệnh bằng cách nhấn chuột phải vào nút
lệnh, chọn Properties, ở mục Caption điền chữ Tinh gio
* Nhấp chuột phải vào nút lệnh vừa tạo, chọn View Code
* Trong cửa sổ hiện ra, gõ vào Dem_Nguoc (là tên của Module trên)
Thầy Cô nên tạo đồng hồ trước, sau đó chọn Insert Duplicate để tạo mới
các slide có cùng đồng hồ trước khi soạn nội dung bài giảng. Mục đích
của việc làm này giúp cho tên của textbox đồng hồ ở các slide là giống
nhau.
Chúc quý Thầy Cô thành công.