Mình đã thiết kế 1 file excel có lồng một số hình ảnh vào cells. Tiếp theo mình vào word để merge thông tin và in ra. Tuy nhiên, mình không thể xuất hình ảnh đã chèn vào excel được. Có ai giúp mình với. Mình có tham khảo cách chèn ảnh dùng VBA có dùng 1 đoạn code như 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

Mình chân thành cảm ơn tất cả sự chỉ dẫn của mọi người trước nha!