Làm thế nào để phóng to hình ảnh khi nhấp vào nó trong Excel?
Giả sử bạn đã chèn một danh sách ảnh vào một cột và khớp kích thước ảnh với kích thước ô như hình minh họa bên dưới. Vì hình ảnh được chèn trông nhỏ, bạn có thể cần phải phóng to nó cho một số mục đích. Bài viết này sẽ hướng dẫn bạn phương pháp phóng to ảnh khi nhấp vào ảnh đó trong Excel và khôi phục về kích thước ban đầu bằng lần nhấp thứ hai.
Phóng to hình ảnh khi nhấp vào nó bằng mã VBA
Phóng to hình ảnh khi nhấp vào nó bằng mã VBA
Mã VBA sau có thể giúp bạn phóng to hình ảnh khi nhấp vào hình ảnh đó trong Excel. Hãy làm như sau.
1. Nhấp chuột phải vào hình ảnh mà bạn cần phóng to chỉ bằng cách nhấp vào nó, sau đó nhấp vào Chỉ định Macro từ menu ngữ cảnh. Xem ảnh chụp màn hình:
2. bên trong Chỉ định Macro hộp thoại, vui lòng nhấp vào Mới .
3. Trong cửa sổ bật lên Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng sao chép và dán mã VBA bên dưới vào giữa Sub và End Sub mã. Xem ảnh chụp màn hình:
Mã VBA: Phóng to hình ảnh bằng cách nhấp vào nó trong Excel
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
Chú thích: Trong mã, bạn có thể gán kích thước lớn của hình ảnh trong mã big = 3.
4. Sau đó nhấn Khác + Q các phím đồng thời để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.
Kể từ bây giờ, khi nhấp vào hình ảnh, nó sẽ được phóng to theo kích thước bạn đã chỉ định, và nhấp lại vào nó sẽ khôi phục về kích thước ban đầu như ảnh chụp màn hình dưới đây.
Các bài liên quan:
- Làm cách nào để khóa hình ảnh / hình ảnh vào hoặc bên trong ô trong Excel?
- Làm thế nào để chèn hình ảnh hoặc hình ảnh động trong ô dựa trên giá trị ô trong Excel?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!