Hướng dẫn excel click to enlarge image - excel bấm vào để phóng to hình ảnh

Giả sử bạn đã chèn một danh sách các hình ảnh vào một cột và khớp với kích thước hình ảnh với kích thước ô như dưới dạng ảnh chụp màn hình hiển thị. Khi 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ẽ cho bạn thấy phương pháp mở rộng một bức tranh khi nhấp vào nó trong Excel và phục hồi kích thước ban đầu bằng cách nhấp chuột 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 đây có thể giúp bạn phóng to hình ảnh khi nhấp vào nó trong Excel. Xin vui lòng làm như sau.

1. Nhấp chuột phải vào hình ảnh mà bạn cần phóng to bằng cách nhấp vào nó, sau đó nhấp vào Gán Macro từ menu ngữ cảnh. Xem ảnh chụp màn hình:Assign Macro from the context menu. See screenshot:

2. Trong hộp thoại gán Macro, vui lòng nhấp vào nút mới.Assign Macro dialog box, please click the New button.

3. Trong cửa sổ Microsoft Visual Basic cho các ứng dụng, vui lòng sao chép và dán mã VBA dưới đây giữa các mã phụ phụ và kết thúc. Xem ảnh chụp màn hình:Microsoft Visual Basic for Applications window, please copy and paste the below VBA code between the Sub and End Sub codes. See screenshot:

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

Lưu ý: Trong mã, bạn có thể gán kích thước lớn của hình ảnh trong mã lớn = 3.: In the code, you can assign the large sizes of the picture in the code big = 3.

4. Sau đó nhấn đồng thời các phím Alt + Q để đóng cửa sổ Microsoft Visual Basic cho các ứng dụng.Alt + Q keys simultaneously to close the Microsoft Visual Basic for Applications window.

Từ giờ trở đi, khi nhấp vào hình ảnh, nó sẽ được mở rộng theo kích thước bạn đã chỉ định và nhấp vào nó sẽ phục hồi lại kích thước ban đầu như các ảnh chụp màn hình dưới đây được hiển thị.

Những bài viết liên quan::

• Làm thế 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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%

• Tái sử dụng: nhanh chóng chèn các công thức phức tạp, biểu đồ & nbsp; và bất cứ điều gì bạn đã sử dụng trước đây; Mã hóa các ô bằng mật khẩu; Tạo danh sách gửi thư và gửi email ...: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Đọc bố cục (dễ dàng đọc và chỉnh sửa số lượng lớn các ô); Dán vào phạm vi được lọc ... (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Hợp nhất các ô/hàng/cột mà không mất dữ liệu; Chia nội dung tế bào; Kết hợp các hàng/cột trùng lặp ... Ngăn chặn các ô trùng lặp; So sánh phạm vi ... without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Chọn các hàng trùng lặp hoặc độc đáo; Chọn các hàng trống (tất cả các ô trống); Siêu tìm và mờ tìm trong nhiều sách bài tập; Chọn ngẫu nhiên ... Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Sao chép chính xác nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tham chiếu đến nhiều tờ; Chèn đạn, hộp kiểm và nhiều hơn nữa ... Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Trích xuất văn bản, thêm văn bản, xóa theo vị trí, loại bỏ không gian; Tạo và in các phần phụ phân trang; Chuyển đổi giữa nội dung ô và bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Siêu bộ lọc (lưu và áp dụng các sơ đồ lọc cho các bảng khác); Sắp xếp nâng cao theo tháng/tuần/ngày, tần suất và nhiều hơn nữa; Bộ lọc đặc biệt của in đậm, nghiêng ... (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Kết hợp sách bài tập và bảng tính; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều tờ; Batch Chuyển đổi XLS, XLSX và PDF ...; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office/Excel 2007-2019 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ các tính năng dùng thử miễn phí 30 ngày. Đảm bảo hoàn lại tiền 60 ngày.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Tab Office mang giao diện được lập bảng đến văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều

• Kích hoạt chỉnh sửa và đọc theo bảng trong Word, Excel, PowerPoint, Nhà xuất bản, Truy cập, Visio và Dự án., Publisher, Access, Visio and 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 năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!

Comments(9) (9)

Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng!