Làm cách nào để tự động thay đổi tất cả ảnh để di chuyển và kích thước với các ô trong Excel?
Thông thường, một hình ảnh được chèn vào trang tính với các thuộc tính mặc định của Di chuyển và không kích thước bằng ô. Bạn cần thay đổi thủ công các thuộc tính của nó thành tính năng Di chuyển và kích thước với các ô trong trang tính của mình khi bạn cần. Trên thực tế, bạn có thể nhanh chóng thay đổi ảnh để di chuyển và kích thước với các ô một cách tự động với một giải pháp khác. Và bài viết này sẽ chỉ cho bạn phương pháp để đạt được điều đó.
Tự động thay đổi tất cả các hình ảnh để di chuyển và kích thước với các ô có mã VBA
Tự động thay đổi tất cả các hình ảnh để di chuyển và kích thước với các ô có mã VBA
Đoạn mã VBA dưới đây có thể giúp bạn nhanh chóng thay đổi thuộc tính của tất cả các ảnh để di chuyển và kích thước với các ô trong trang tính. Hãy làm như sau.
1. Mở trang tính có chứa các ảnh bạn muốn thay đổi bằng cách di chuyển và định cỡ với các ô, sau đó mở Microsoft Visual Basic cho các ứng dụng cửa sổ bằng cách nhấn Khác + F11 phím.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, vui lòng nhấp vào Chèn > Mô-đun. Sau đó sao chép và dán mã VBA vào cửa sổ Mã.
Mã VBA: thay đổi tất cả các hình ảnh để di chuyển và kích thước với các ô
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub
3. Nhấn nút F5 hoặc nhấp vào nút Run để chạy mã.
Sau đó, các ảnh trong trang tính hiện hoạt đều được tự động thay đổi thành Di chuyển và kích thước với các ô.
Bài viết liên quan:
- Làm thế nào để căn giữa một hình ảnh trong một ô Excel?
- Làm thế nào để kiểm tra xem một ô có chứa ảnh trong Excel hay không?
- 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?
- Làm thế nào để phóng to hình ảnh khi nhấp vào nó 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!