Bài soạn Lam dong ho dem nguoc bang VBA

Xin giới thiệu với quý Thầy Cô, cách làm đồng hồ đếm ngược bằng ứng dụng VBA trong PowerPoint: * Đầu tiên ta tạo ra một Textbox để làm đồng hồ theo cách làm bình thường.. Định dạng Textb

Xin giới thiệu với quý Thầy Cô, cách làm đồng hồ đếm ngược bằng ứng dụng VBA trong PowerPoint:

* Đầu tiên ta tạo ra một Textbox (để làm đồng hồ) theo cách làm bình thường Định dạng Textbox đó theo ý mình muốn (Font, cỡ chữ, màu sắc, )

* Tạo hiệu ứng Appear cho text box này, và chọn With Previous

trong mục Start (mục đích của việc làm này để đối tượng textbox có thuộc tính TextFrame, và để chúng ta biết tên của đối tượng TextBox,

thông thường, tên các textbox sẽ là Shape i với i là thứ tự của

Textbox đó có trong slide Chúng ta cần ghi nhận số i này để khai báo

trong dòng lệnh Ví dụ: trong khung Custom Animation hiện Shape 2 nên i = 2 */

* Mở cửa sổ Visual Basic Editor (ALT+F11), chọn Insert -> Module rồi

gõ vào (hoặc copy) các dòng sau đây :

Const Time = 20

Sub Dem_Nguoc()

Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi As Single, N As Integer

Ngung = False

Dem = Time

Gio_Cu = Int(Timer)

N = ActivePresentation.Slides.Count

ActivePresentation.Slides(N).Shapes(2) TextFrame.TextRange.Text = Format(Dem, "00")

Do While Not Ngung

DoEvents

Gio_Moi = Int(Timer)

If Gio_Moi > Gio_Cu Then

Dem = Dem - 1

Gio_Cu = Gio_Moi

ActivePresentation.Slides(N).Shapes(2) TextFrame.TextRange.Text = Format(Dem, "00")

If Dem = 0 Then Ngung = True

End If

Loop

End Sub

Trong đó:

Time là thời gian đếm (có thể thay đổi thông số này cho phù hợp)

N = ActivePresentation.Slides.Count (để ghi nhận thứ tự của slide trình diễn hiện tại)

ActivePresentation.Slides(N).Shapes(2) TextFrame.TextRange.Text = Format(Dem, "00"): gán nội dung cho textbox của đồng hồ có tên

Shape 2 ở slide hiện tại Nếu như ở bước tạo hiệu ứng cho Text Box, Thầy Cô ghi nhận được là Shape 5 thì thay số 2 bằng số 5 trong dòng lệnh này

* Trở lại cửa sổ PP, vào View >> Toolbars, nhấn chọn Control Text Box

* Chọn nút Command Button rồi vẽ nút lệnh vào vị trí tùy ý trên Slide

* Khia báo thuộc tính cho nút lệnh bằng cách nhấn chuột phải vào nút lệnh, chọn Properties, ở mục Caption điền chữ Tinh gio

* Nhấp chuột phải vào nút lệnh vừa tạo, chọn View Code

* Trong cửa sổ hiện ra, gõ vào Dem_Nguoc (là tên của Module trên)

Thầy Cô nên tạo đồng hồ trước, sau đó chọn Insert Duplicate để tạo mới các slide có cùng đồng hồ trước khi soạn nội dung bài giảng Mục đích của việc làm này giúp cho tên của textbox đồng hồ ở các slide là giống nhau

Chúc quý Thầy Cô thành công