[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

Đăng trả lời
quangnbt
Bài viết: 3
Ngày tham gia: Chủ nhật 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ài by quangnbt »

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 3 vào ngày quangnbt với 0 lần sửa trong tổng số.
quangnbt
Bài viết: 3
Ngày tham gia: Chủ nhật 29/04/2018 7:15 am

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

Gửi bài by quangnbt »

Ai giúp mình với
rocker123
Bài viết: 5
Ngày tham gia: Thứ 5 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ài by rocker123 »

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 tất cả

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 tất cả

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
Đăng trả lời

Quay về