Làm thế nào để căn giữa một hình ảnh trong một ô Excel?
Bài viết này sẽ chỉ cho bạn một phương pháp di chuyển ảnh vào giữa các ô trong trang tính Excel như hình minh họa bên dưới.
Di chuyển ảnh vào giữa ô bằng mã VBA
Di chuyển ảnh vào giữa ô bằng mã VBA.
Vui lòng thực hiện như sau để di chuyển ảnh vào giữa ô trong trang tính trong Excel.
1. Mở trang tính có chứa ảnh bạn cần căn giữa trong các ô, sau đó nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
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: Di chuyển ảnh vào giữa các ô trong trang tính
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
Chú ý:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. Nhấn nút F5 phím để chạy mã.
Sau đó, tất cả các hình ảnh được chỉ định sẽ được chuyển đến trung tâm của các ô nhất định ngay lập tức như ảnh chụp màn hình bên dưới.
Bài viết liên quan:
- 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?
- 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!