Ðề tài: Tự thiết kế đồng hồ đếm ngược 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, ...)
• Chọn Textbox, vào menu Draw -> Order -> Bring to Front để đảm bảo rằng Textbox này luôn nằm trên cùng.
• 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 :

Bạn cần đăng ký thành viên và đăng nhập mới xem được nội dung ẩn này.

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

• 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 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 Macro trên)

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

Trên đây tôi chỉ trình bày những gợi ý cơ bản, các bạn có thể nghiên cứu, tìm tòi thêm để làm hoàn thiện chiếc đồng hồ của mình.

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

dòng này báo lỗi là sao vậy ?

không chạy đc.

Bạn cần đăng ký thành viên và đăng nhập mới xem được nội dung ẩn này.

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

dòng này báo lỗi là sao vậy ?

không chạy đc.