Tìm kiếm trước khi đặt câu hỏi:
Tìm kiếm bằng Google để có kết quả chính xác hơn
kết quả từ 1 tới 5 trên 5
    #1
  1. 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 :
    Code:
    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.Count
    ActivePresentation.Slides(Slide_Number).Shapes(N).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(Slide_Number).Shapes(N).TextFrame.TextRange.Text = Format(Dem, "00")
    If Dem = 0 Then Ngung = True
    End If
    Loop
    End Sub
    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.


  2. #2
  3. Thành viên danh dự
    Avatar của Minh Hau
    Gia nhập
    Apr 2008
    Nơi ở
    Phiêu bạc giang hồ
    Bài gởi
    1,885
    Mã thành viên
    14314
    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.


  4. #3
  5. Trích dẫn Nguyên văn bởi Minh Hau Xem Bài Gởi
    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.
    Nếu đoạn mã trên ko chạy dc mời Bác tải file này về dùng thử

    Code:
    http://www.mediafire.com/?ziek3n3mmjz


  6. #4
  7. Thủ kho
    Avatar của admin
    Gia nhập
    Nov 2007
    Nơi ở
    Tp.HCM
    Bài gởi
    3,120
    Mã thành viên
    1
    Trích dẫn Nguyên văn bởi Minh Hau Xem Bài Gởi
    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.
    Dư khoảng trắng trước chữ TextFrame. Mình đã sửa lại bài của loclehuu rồi

    www.1kho.com [Cần là có - Mò là thấy]
    Hãy gởi bất kỳ yêu cầu download mà bạn cần tại 1KHO
    Xem hướng dẫn download

  8. #5

Thread Information

Users Browsing this Thread

Đang có 1 người xem trang này: (0 thành viên và 1 khách vãng lai)

Các đề tài liên quan

  1. Trả lời: 22
    Bài mới gởi: 25/02/2014, 05:18 PM
  2. Trả lời: 0
    Bài mới gởi: 19/04/2012, 01:40 AM
  3. hình động ứng dụng trong powerpoint
    By tuankem in forum Gởi yêu cầu khác
    Trả lời: 0
    Bài mới gởi: 18/01/2011, 10:13 PM
  4. Xin phần mèm đồng hồ đếm ngược
    By vitra in forum Gởi yêu cầu phần mềm
    Trả lời: 11
    Bài mới gởi: 10/04/2009, 05:46 AM

Tags for this Thread