Clip này mình hướng dẫn bạn làm Đồng hồ đếm ngược trong Power Point nhé.
Nếu bạn có câu hỏi thì comment cho mình nhe ^^
Tag: làm đồng hồ đếm ngược trong powerpoint, đồng hồ đếm ngược, power point, tin học B, dong ho dem nguoc, tin hoc B, power point 2010, huong dan power point, huong dan su dung power point, cach su sung power point
Xem thêm: https://topthuthuat.club/category/review
Nguồn: https://topthuthuat.club
Written by
Related Post
789 Club – Link tải game bài 789 IOS, Android
789 Club từ lâu đã là cái tên được săn đón và gây ấn tượng…
cảm ơn nhìu nha :3
Như cc
đây là đếm ngược thời gian trong một slide. vậy làm thế nào để đếm ngược thời gian cho tất cả slide ạ
Bà cô cho đề 15 phút là cái này
Cũng thích power point lắm. Nhưng chưa học. Cảm ơn chia sẻ của bạn.
anh khong làm thong báo hét giờ nen khi chiếu nó tiép tục chạy lại
em bị lỗi khi chuyển số 4 sang hiệu ứng màu xanh thi của em Duration của em k auto mà hiện lên số ah. Chỉnh lỗi sau ah. em cảm ơn
cho mk hỏi chỗ 3:38 làm sao lm hiện khung của cả 5 cái vậy ạ
Bài rất hay và dễ hiểu
Làm sao để chọn cả 2 oval để with perious ạ ?
làm sao để có thể chọn số 5,4,3,2,1 cùng lúc ạ? mong mn có thể chỉ giúp^^
a từ khúc 3:33 đến 3:38 làm như nào ạ em làm không được
Rất hữu ích ạ
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
A oi cho hoi nếu minh lam 90 giay dc k ạ
Thankyou
408 👍🔔
hay quá anh ơi
Cho e hỏi 2.41 làm sao nhân bản 2 cái số 4 ra 2 cái số 3 vậy ạ
Đoạn clib bị cắt. Mong hãy coi lại
Nhạc đệm chán thế, không có lời thuyết minh luôn.
quá tắt làm ăn như cak
anh oi em muon sau so 0 ket thuc thi co tieng chuong reo
cai ntn de sau so 0 la co tieng chuong luon ha anh
ko hiểu j hết
xin hỏi có chỉnh hiệu ứng để có thể dừng đồng hồ tại giây bất kì không?
ví dụ hs tìm được câu trả lời trước khi hết giờ