Xin Giúp Đỡ Zoom-in and zoom-out

Liên hệ QC

tuantu315

Thành viên hoạt động
Tham gia
30/9/13
Bài viết
141
Được thích
38
Xin nhờ cao thủ giúp đỡ.

Hiện tại em có 1 file excel bên trong có 1 vài tấm hình. Em có tạo 1 marco để khi click vào bức hình thì zoom-in và zoom-out bức ảnh lên .

Vấn đề mắc phải là :

Khi sắp xếp nhiều bức hình gần nhau thì khi ZOOM lên, 1 số bức hình sẽ nằm bên dưới ảnh kế bên. Em sử dụng chức năng bring to front nhưng thấy chưa hợp lý và thủ công quá. (ko lẽ khi cần zoom ảnh nào thì nhấp vào chọn bring to front rồi mời nhấp vào zoom).

Em có ý tưởng là khi nhấp vào ảnh cần zoom thì nó sẽ mặc định là bring to front luôn nhưng ko biết code viết làm sao mong anh/chị diễn dàn giúp đỡ
 

File đính kèm

Xin nhờ cao thủ giúp đỡ.

Hiện tại em có 1 file excel bên trong có 1 vài tấm hình. Em có tạo 1 marco để khi click vào bức hình thì zoom-in và zoom-out bức ảnh lên .

Vấn đề mắc phải là :

Khi sắp xếp nhiều bức hình gần nhau thì khi ZOOM lên, 1 số bức hình sẽ nằm bên dưới ảnh kế bên. Em sử dụng chức năng bring to front nhưng thấy chưa hợp lý và thủ công quá. (ko lẽ khi cần zoom ảnh nào thì nhấp vào chọn bring to front rồi mời nhấp vào zoom).

Em có ý tưởng là khi nhấp vào ảnh cần zoom thì nó sẽ mặc định là bring to front luôn nhưng ko biết code viết làm sao mong anh/chị diễn dàn giúp đỡ
Thêm dòng:
Mã:
Shp.ZOrder msoBringToFront
Vào cuối code (trước End If) là được rồi
 
Thêm dòng:
Mã:
Shp.ZOrder msoBringToFront
Vào cuối code (trước End If) là được rồi

Hay quá anh ơi cảm ơn anh nhiều ! Anh cho em hỏi thêm trong VBA mình viết sự kiện mouse_up với MouseLeave được ko anh ? có nghĩa là khi mình rê chuột lên tấm hình thì nó tự động phóng to ra. Khi mình rê chuột ra ngoài thì tấm hình tự động thu nhỏ
 
Web KT

Bài viết mới nhất

Back
Top Bottom