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. Chờ kết nạp Quản kho
    Avatar của loclehuu
    Gia nhập
    Sep 2008
    Nơi ở
    sudo nautilus
    Bài gởi
    785
    Mã thành viên
    41189
    Downloads
    7
    Uploads
    6
    Cám ơn
    172
    Được cám ơn 775 lần

    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.


  2. 2 thành viên đã cám ơn loclehuu vì bài viết này, còn bạn?


  3. #2
  4. 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,882
    Mã thành viên
    14314
    Downloads
    7
    Uploads
    0
    Blog đã viết
    2
    Cám ơn
    925
    Được cám ơn 1,455 lần
    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.


  5. #3
  6. Chờ kết nạp Quản kho
    Avatar của loclehuu
    Gia nhập
    Sep 2008
    Nơi ở
    sudo nautilus
    Bài gởi
    785
    Mã thành viên
    41189
    Downloads
    7
    Uploads
    6
    Cám ơn
    172
    Được cám ơn 775 lần

    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.
    Nếu đoạn mã trên ko chạy dc mời Bác tải file này về dùng thử

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



#4
  • Thủ kho
    Avatar của admin
    Gia nhập
    Nov 2007
    Nơi ở
    Tp.HCM
    Bài gởi
    3,117
    Mã thành viên
    1
    Downloads
    452
    Uploads
    6303
    Cám ơn
    2,334
    Được cám ơn 8,585 lần

    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.
    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

    #5
  • Chân ướt chân ráo
    Avatar của drongmy
    Gia nhập
    May 2010
    Bài gởi
    2
    Mã thành viên
    100003
    Downloads
    0
    Uploads
    0
    Cám ơn
    0
    Được cám ơn 0 lần
    cam on nhieu


  • 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: 0
      Bài mới gởi: 19/04/2012, 01:40 AM
    2. 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
    3. 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