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