Tao dong ho dem nguoc trong PowerPoint rat nhanh

TẠO ĐỒNG HỒ ĐẾM NGƯỢC TRONG POWERPOINT RẤTNHANH giaoanhay.com đã có bài viết tạo đồng hồ đếm ngược theo cách thủ công tức là mình tự vẽ hình và tự tạo hiệu ứng.. Nhưng theo cách này nếu

TẠO ĐỒNG HỒ ĐẾM NGƯỢC TRONG POWERPOINT RẤT

NHANH

giaoanhay.com đã có bài viết tạo đồng hồ đếm ngược theo cách thủ công tức là mình tự vẽ hình và tự tạo hiệu ứng Nhưng theo cách này nếu làm thời gian đếm ngược lớn như 1 phút cho đến hàng giờ quả là quá mất thời gian Nó chỉ thích hợp cho làm 10 đến 15 giây thôi Tuy nhiên bạn cũng phải biết bản chất của nó chính là các hình vẽ và số xếp chồng lên nhau rồi tạo hiệu ứng cho nó xuất hiện mỗi hiệu ứng xuất hiện cách nhau 1 giây Nhưng hôm nay giaoanhay.com sẽ hướng dẫn các bạn tạo đồng hồ đếm ngược có sử dụng mã lập trình để phần mềm tự vẽ và chọn hiệu ứng cho mình Mình chỉ làm thêm vào là chèn âm thanh cho mỗi giây và phóng to số lên nếu cần Sau đây là các bước theo hình:

Và đây là đoạn mã lập trình các bạn cần copy để dán vào cửa sổ trên Đoạn mã này cần lưu đâu đó để sử dụng lâu dài

và ta có thể sửa số thời gian đếm ngược cho phù hợp với bài dạy của mình:

Mã:

Sub dem_nguoc()

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 "Hay chon mot doi tuong la shape!"

Exit Sub

End If

Set osld = ActiveWindow.Selection.SlideRange(1)

Set oshp = ActiveWindow.Selection.ShapeRange(1)

oshp.Copy

Istep = 1 'thoi gian nhay tung hinh

Iduration = 120 'so giay can dem

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 < 60 Then

texttoshow = Format(dText, "Ss")

Else

If Iduration < 3600 Then

texttoshow = Format(dText, "Nn:Ss")

Else

texttoshow = Format(dText, "Hh:Nn:Ss")

End If

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** - Ban chua chon doi tuong?"

End Sub

Vậy là ta đã có 1 đồng hồ đếm ngược 120 giây (2 phút) Bạn nên làm thử 10 giây để dễ quan sát 120 giây chờ nó chạy hết lâu quá Nếu bạn muốn làm 1 đồng hồ khác với thời gian đếm ngược khác thì mở 1 file mới và làm tương tự Sau đó copy các đồng hồ ở các file khác nhau chung vào 1 file để làm thư viện đồng hồ đếm ngược Bao giờ cần cái nào thì chọn vào đồng hồ đó nhấn Ctrl+A để chọn hết đối tượng của đồng hồ đó rồi dán vào slide cần dùng

Hướng dẫn thì rườm rà thế nhưng làm quen rồi thì chỉ mất 30 giây là xong thôi Bây giờ giaoanhay,com chuyển sang ghi video cho bạn dễ quan sát nhé