Học Office

Hướng dẫn cách tạo đồng hồ đếm ngược trên PowerPoint

PowerPoint là một trong những ứng dụng tư vấn trình chiếu và giảng dạy thông dụng hàng đầu hiện nay.

Nó rất được ưa chuộng để thuyết trình nội dung bài giảng, bài báo cáo… ở trong trường học, trong một nhóm hay là giáo án của những giáo viên, giảng viên…

Ngoài việc làm tốt nội dung và khả năng truyền đạt, khả năng hùng biện cho bài thuyết trình của mình ra, thì việc gói gọn định mức thời gian thuyết trình, tránh xa đà vào những chi tiết vụn vặt cũng là một trong những yếu tố cơ bản để giới thiệu thông tin tới sự thành công của người làm thuyết trình.

Vâng, và trong bài hướng dẫn ngày hôm nay mình sẽ hướng dẫn chi tiết cho những bạn cách tạo From đồng hồ đếm ngược trên mỗi Slides của PowerPoint, giúp bạn khống chế tốt hơn khoảng thời gian giảng bài giảng, hay hùng biện của mình.

Đọc thêm:

Okay, giờ đi vào bài hướng dẫn nha những bạn…

Cách tạo From đồng hồ đếm ngược trên PowerPoint

+ Bước một: lần đầu bạn mở file PowerPoint cần tạo From đồng hồ đếm ngược lên => Tại đây bạn click vào menu File.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (1)

+ Bước 2: Rồi bạn click tậu Options.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (2)

+ Bước 3: Tại hộp thoại Options => bạn mở tab Customize Ribbon => và tích tậu Developer => sau đó nhấn OK để thêm tab Developer ra ngoài thanh Ribbon.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (3)

+ Bước 4: Sau đó, tại giao diện file chính của file PowerPoint => bạn click mở tab Devoloper => rồi tậu Visual Basic.

Hoặc bạn mang thể nhấn tổ hợp phím Alt + F11 để mở nhanh cửa sổ Microsoft Visual Basic for Applications.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (4)

Để mở trình VBA, tại đây bạn click vào Insert, và tậu Module.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (5)

+ Bước 5: Rồi bạn copy đoạn code sau:

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 > một Then
MsgBox “Hay chon mot doi tuong la shape!”
Exit Sub
End If
Set osld = ActiveWindow.Selection.SlideRange(một)
Set oshp = ActiveWindow.Selection.ShapeRange(một)
oshp.Copy
Istep = một   ‘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(một).TextFrame.TextRange = texttoshow
Set oeff = osld.TimeLine.MainSequence.AddEffect(oshpRng(một), msoAnimEffectFlashOnce, , msoAnimTriggerAfterPrevious)
oeff.Timing.Duration = Istep
Next i
oshp.Delete
Exit Sub
errhandler:
MsgBox “**ERROR** – Ban chua chon doi tuong?”
End Sub

=> Và Paste vào hộp thoại Presentation1 Module (Code). Bạn mang thể thay đổi thời gian điếm ngược (tính theo giây) nếu cần.

Xem Thêm:  Cách tạo bảng trong Word và những thao tác với bảng trong Word #một

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (6)

+ Bước 6: Tiếp theo, bạn quay về giao diện PowerPoint => rồi chon tab Insert => nhấn vào nút Shapes => và bạn tậu khung From bất kỳ, theo nhu cầu sử dụng của bạn.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (7)

+ Bước 7: Và kéo chuột để tạo Form => sau đó click vào tab Format => tậu Resize From tại phần Shapes Styles.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (8)

=> Sau đó click chuột phải vào From hình tậu Edit Text.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (9)

+ Bước 8: Và nhập một ký tự bất kỳ vào đây => thực hiện Resize kiểu chữ => sau đó mở tab Developer => và tậu Macros.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (10)

+ Bước 9: Tại hộp thoại Macros => bạn click tậu dem_nguoc => rồi nhấn Run để chạy code VBA.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (11)

Cuối cùng ta mang được kết quả như hình bên dưới.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (12)

=> Và Trên thực tế thì bạn mang thể nhấn phím F5 trên bàn phím để chạy file PowerPoint, cũng như Test thử Form đếm ngược vừa tạo.

cach-tao-dong-ho-dem-nguoc-tren-powerpoint (13)

Lời Kết

Okay, như vậy là mình vừa hướng dẫn rất chi tiết cho những bạn cách tạo đồng hồ đếm ngược trên file PowerPoint rồi  nhé. Nói chung là cách thực hiện cũng rất đơn thuần và ko mang gì khó khăn cả phải ko nào ?

tới đây thì bài viết cách tạo đồng hồ đếm ngược trên PowerPoint của mình cũng xin được tạm giới hạn. Hi vọng thủ thuật này sẽ hữu ích với những bạn. Chúc những bạn thành công !

CTV: Lương Trung – phanmemchuyennghiep.net

Note: Bài viết này hữu ích với bạn chứ? Đừng quên giới thiệu thông tin bài viết, like và chia sẻ cho bạn bè và người thân của bạn nhé !

Xem Thêm:  Thủ thuật chèn hình ảnh trực tuyến vào Excel bằng URL

Related Articles

Trả lời

Email của bạn sẽ không được hiển thị công khai. Các trường bắt buộc được đánh dấu *

Back to top button