Hướng dẫn chi tiết Cách để Chèn ảnh vào Excel sao cho tự động vừa với các ô

Nhấp phải vào ảnh rồi chọn Format Picture (Định dạng ảnh). Sau đó, nhấp vào thẻ “Size & Properties” (Thuộc tính & kích thước) (biểu tượng hình vuông xanh lá và các mũi tên nhiều hướng bên trong) rồi chọn Move and size with cells (Di chuyển và điều chỉnh kích thước theo các ô).

Bạn cũng có thể sử dụng mã VBA sau khi đã chèn một số ảnh. Tiến hành chèn ảnh, sau đó nhấn Alt + F11 để mở cửa sổ VBA. Nhấp vào Insert > Module và dán mã sau:

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

Nhấn F5 để thực thi mã và lặp lại tiến trình này cho đến khi tất cả ảnh trong bảng tính đã vừa với các ô.