• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

[VB6] Powerpoint: Rê chuột vào shape thì đổi màu, đưa chuột ra ngoài thì shape trở lại màu như ban đầu

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Điều hành viên: tungblt

quangnbt
Bài viết: 4
Ngày tham gia: CN 29/04/2018 7:15 am

[VB6] Powerpoint: Rê chuột vào shape thì đổi màu, đưa chuột ra ngoài thì shape trở lại màu như ban đầu

Gửi bàigửi bởi quangnbt » CN 29/04/2018 7:38 am

Anh ơi cho em hỏi anh xíu đươc không? Em làm code đổi màu cho shape được. Nhưng giờ em muốn rê chuột vào shape đó thì nó đổi màu, lấy chuột ra thì trở về lại màu ban đầu.
Sửa lần cuối bởi quangnbt vào ngày T.Năm 03/05/2018 6:38 pm với 3 lần sửa.



quangnbt
Bài viết: 4
Ngày tham gia: CN 29/04/2018 7:15 am

Re: POWERPOINT: CỨU EM VỚI-LÀM HOÀI KHÔNG ĐƯỢC.

Gửi bàigửi bởi quangnbt » CN 29/04/2018 9:32 pm

Ai giúp mình với

rocker123
Bài viết: 5
Ngày tham gia: T.Năm 03/12/2009 2:03 pm

Re: [VB6] Powerpoint: Rê chuột vào shape thì đổi màu, đưa chuột ra ngoài thì shape trở lại màu như ban đầu

Gửi bàigửi bởi rocker123 » CN 06/05/2018 12:53 am

chàu bạn, để làm được hiệu ứng này thì bạn thử các bước sau
1-Tạo 1 nút chính, cần đổi màu, cho nó nằm giữa (Align Middle Center).
2-Tạo 4 nút xung quanh bao bọc nút ban đầu nhưng không đè lên, các nút trùng màu với màu nền hoặc trong suốt 99%
3-Vô VBA viết 1 đoạn code đổi màu cho nút chính, ví du cho nó đổi màu đỏ thì viết

Mã: Chọn hết

ActivePresentation.Slides(1).Shapes("MainButton").Fill.ForeColor.RGB = RGB(255, 0, 0)
đoạn code này bạn cài vào nút chính trong Insert-Action-Mouse Over- Run Macro
viết 1 đoạn code nữa cho 4 cái nút xung quanh, khi chuột nhảy sang các nút này thì nút chính đổi về màu ban đầu ví dụ là màu xanh đậm thì ta viết

Mã: Chọn hết

ActivePresentation.Slides(1).Shapes("MainButton").Fill.ForeColor.RGB = RGB(0, 0, 255)

4-ra Powerpoint chạy thử

Mình làm thử và chạy ok nhưng trong này không thấy nút gửi file kèm nên diễn giải thôi , thông cảm :D


Quay về “Visual Basic for Application (VBA)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.2 khách