Tao dong ho dem nguoc cho powerpoint

3 11 0
Tao dong ho dem nguoc cho powerpoint

Đang tải... (xem toàn văn)

Thông tin tài liệu

 Trở lại cửa sổ PP, nhấp chuột phải vào thanh công cụ rồi chọn Control Toolbox để hiện thanh công cụ này.  Chọn nút Command Button rồi vẽ nút lệnh vào vị trí tùy ý trên Slide  Nhấp [r]

(1)

Bạn muốn tạo đồng hồ đếm ngược ?

Quá đơn giản ! Xin bạn làm bước sau: Ví dụ sau tơi tạo đồng hồ đếm ngược 10 giây:

1/ Tạo khung chữ (text box), điền chữ “Hết giờ” (hoặc 0:0 - tuỳ bạn) Click vào khung chữ, ấn Ctr-C Ctr-V (10 lần - muốn 10 giây, n lần muốn n giây) 2/ Trước điều chỉnh cho khung sau chồng lên khung trước, bạn sửa lại số 01, 02, 03 10

3/ Ấn Ctr-A để chọn tất 11 khung

4/ Vào Slide Show >Custome Animiation>Add>Effect>Exit>Disappear 5/ Trong bảng Custome Animiation, chọn After Previous ô Start

6/ Kích giữ chuột trái để kéo mục danh sách theo thứ tự 10, 09, 08 “Hết giờ”

7/ Chọn Ctr-A, hàng cuối cùng, chọn vào mũi tên, chọn Timing Trong hộp Disappear, gõ vào ô Delay, bấm OK xong Bạn gõ F5 để xem thử

*Hãy kiên nhẫn Tôi làm được, tất nhiên bạn làm 00

(2)

10

Nếu có vấn đề thắc mắc, xin gửi email theo địa chỉ: info@123doc.org

………

Kiểu khác:

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

 Chọn Textbox, vào menu Draw -> Order -> Bring to Front để đảm bảo Textbox nằm

 Mở cửa sổ Visual Basic Editor (ALT+F11), chọn Insert -> Module gõ vào (hoặc copy) dòng sau :

Const Slide_Number = 1 Const Thoi_Gian = 10 Sub Dem_Nguoc()

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

Ngung = False Dem = Thoi_Gian Gio_Cu = Int(Timer)

N = ActivePresentation.Slides(Slide_Number).Shapes.Cou nt ActivePresentation.Slides(Slide_Number).Shapes(N)

TextFrame.TextRange.Text = Format(Dem, "00") Do While Not Ngung

DoEvents

(3)

Dem = Dem - 1 Gio_Cu = Gio_Moi

ActivePresentation.Slides(Slide_Number).Shapes(N) TextFrame.TextRange.Text = Format(Dem, "00") If Dem = Then Ngung = True

End If Loop End Sub

Trong Slide_Number thứ tự Slide ta chứa đồng hồ, Thoi_Gian thời gian đếm (có thể thay đổi thông số cho phù hợp)

 Trở lại cửa sổ PP, nhấp chuột phải vào công cụ chọn Control Toolbox để công cụ

 Chọn nút Command Button vẽ nút lệnh vào vị trí tùy ý Slide  Nhấp chuột phải vào nút lệnh vừa tạo, chọn View Code

 Trong cửa sổ ra, gõ vào Dem_Nguoc (là tên Macro trên)

Như xong Bây trở lại PP chạy trình chiếu, nhấp chuột vào nút lệnh thấy đồng hồ hoạt động

Ngày đăng: 04/03/2021, 17:01

Từ khóa liên quan

Tài liệu cùng người dùng

Tài liệu liên quan