37 Replies to “Đồng hồ đếm ngược trong Power Point – Hướng dẫn cách làm đếm ngược trong Powerpoint”

1. Bài rất hay và dễ hiểu

2. Làm sao để chọn cả 2 oval để with perious ạ ?

3. làm sao để có thể chọn số 5,4,3,2,1 cùng lúc ạ? mong mn có thể chỉ giúp^^

4. a từ khúc 3:33 đến 3:38 làm như nào ạ em làm không được

5. Rất hữu ích ạ

6. 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

7. A oi cho hoi nếu minh lam 90 giay dc k ạ

8. Thankyou

9. 408 👍🔔

10. hay quá anh ơi

11. 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 ạ

12. Đoạn clib bị cắt. Mong hãy coi lại

13. Nhạc đệm chán thế, không có lời thuyết minh luôn.

14. quá tắt làm ăn như cak

15. 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

16. ko hiểu j hết

17. 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ờ

18. để bôi đen số thì làm như thế nào ạ

19. xin chào anh/chị !
    tôi rất thích coi hướng dẫn cách làm animation trong p point youtube của anh/chị
    xin cho hỏi tôi thích đoạn phim này {xem link) o biết họ đã dùng software nào tạo ra nó ?
    xin cảm ơn hồi âm.
    https://vtc.vn/xe-di-tu-bac-vao-nam-phai-tra-bao-nhieu-phi-bot-d343675.html

20. nhu shit

21. Nếu đếm ngược 60 giây thì làm như vậy lâu quá ạ

22. Thế đếm ngược từ 3:00 đến 0:00 thì làm thế nào vậy bạn

23. làm nhạc tích tắc ra sao vậy a

24. làm sao để hiện chỗ góc bên phải chỗ play đấy ạ

25. powerpoint 2010 hả

26. power point mấy vậy add

27. Ad ơi cái khúc 3:40 ad ấn vào cái gì mà như thế đấy ạ ???

28. Bài này đã giúp em qua đc kì thi tin học cuối năm của em. Thanks

29. bạn ơi sao gom tất cả đc lại vậy

30. anh xai phien nam nao vay 2010 hay 2003

31. cám ơn nhìu lắm

32. cho mk link tai ve

33. bài hướng dẫn rất hay em đã làm được rồi

34. Coi mấy bài hướng dẫn, thấy bài này là dễ hiểu mà làm nhanh nhất. Cảm ơn bạn đã chia sẻ.

35. ok nhé mai mốt làm típ thankk bn

36. ad cho e hỏi là e làm đầy đủ các bước giống ad nhưng khi làm số tiếp theo phần tròn ở ngoài k mất thì làm tn ạ

37. anh cho e mẫu trong power point với ạ! Mail đây ạ: boconganhk36d@gmail.com

Comments are closed.