Chào các bạn!
Mình có đoạn code chèn hình vào cell như sau
Sub Insert_Pictures()
Dim beginR As Long, endR As Long, i As Long
Dim Pic As String
Application.ScreenUpdating = False
On Error Resume Next
beginR = 2 'Dong 2 la dong bat dau chen hinh
endR = [A65536].End(xlUp).Row
For i = beginR...