CÁCH làm ĐỒNG hồ đếm NGƯỢC TRONG POWERPOINT

CÁCH LÀM ĐỒNG HỒ ĐẾM NGƯỢC TRONG POWERPOINT
Bước 1: Chọn hình (hình tròn, hình vuông…hình gì cũng được…) rồi viết số thời gian lên hình đó theo
mẫu: 00 : 00 (mm : ss)
Bước 2: Gán animation cho hình đã làm. Vẽ thêm một hình có chữ “Bắt đầu” đồng thời cũng gán
Animation cho cái hình đó.
Bước 3: Nhấn tổ hợp phím: Alt + F11 để xuất hiện trình VBA, chọn Insert sau đó chọn Module. Ở đó sẽ
hiện ra một ô Module, dán đoạn code sau vào ô Module đó:
Sub Time_Me()
Dim oshp As Shape
Dim oshpRng As ShapeRange
Dim osld As Slide
Dim oeff As Effect
Dim i As Integer
Dim Iduration As Integer
Dim Istep As Integer
Dim dText As Date
Dim texttoshow As String
On Error GoTo errhandler
If ActiveWindow.Selection.ShapeRange.Count > 1 Then
MsgBox "Please just select ONE shape!"
Exit Sub
End If
Set osld = ActiveWindow.Selection.SlideRange(1)
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.Copy
'change to suit
Istep = 5
Iduration = 120 'in seconds
For i = Iduration To 0 Step -Istep
Set oshpRng = osld.Shapes.Paste
With oshpRng

.Left = oshp.Left
.Top = oshp.Top
End With
dText = CDate(i \ 3600 & ":" & ((i Mod 3600) \ 60) & ":" & (i Mod 60))
If Iduration < 3600 Then
texttoshow = Format(dText, "Nn:Ss")
Else
texttoshow = Format(dText, "Hh:Nn:Ss")
End If
oshpRng(1).TextFrame.TextRange = texttoshow
Set oeff = osld.TimeLine.MainSequence _
.AddEffect(oshpRng(1), msoAnimEffectFlashOnce, , msoAnimTriggerAfterPrevious)
oeff.Timing.Duration = Istep
Next i
oshp.Delete
Exit Sub
errhandler:
MsgBox "**ERROR** - Maybe nothing is selected?"
End Sub
* Trong đó: Ta muốn thay đổi bao nhiêu giây mới thay đổi con số thì ta sửa ở phần “Istep = ???”


Ta muốn thay đổi số giờ mà ta cần đếm ngược thì ta sửa ở phần “Iduration = ???”
'change to suit
Istep = 5
Iduration = 120 'in seconds
Bước 4: Sau khi dán đoạn code vào VBA, ta chọn nút quay trở lại slide của Powerpoint.
Bước 5: Ta chọn hình chứa đồng hồ, rồi vào mục View, chọn Macros, gán tên của đoạn code vừa dán vào.
Bấm “Ok”.
Bước 6: Quay trở lại với hình chứa đồng hồ, ta thu được rất nhiều hình có chứa số thứ tự giảm dần xếp

chồng lên nhau. Ta chọn hết tất cả các hình đó. Rồi vào mục Option bên Animation. Chọn “After previous”
+ chọn thời gian “1 second (fast) + (nếu muốn thêm tiếng tích tắc, ta chọn bên mục Sound). Sau khi đã
đặt thuộc tính xong. Ta chọn Triggle với cái hình có chữ “Bắt đầu”
Sau khi làm hết tất cả thao tác trên, ta đã được “Đồng hồ đếm ngược”. Bật màn hình, cho đồng hồ chạy
thử.