Chèn hình tự động vào file excel (2 người xem)

[taivat]

Do đặc thù công việc thường xuyên phải chèn hình nên nhờ mọi người giúp .
chèn các hình ảnh tương ứng ở trong 1 thư mục "PIC" vào file .
Rất cảm ơn mọi người .

 

[ppc0312]

Do đặc thù công việc thường xuyên phải chèn hình nên nhờ mọi người giúp .
chèn các hình ảnh tương ứng ở trong 1 thư mục "PIC" vào file .
Rất cảm ơn mọi người .

Tìm kiếm, các bài của siwtom hay batman1 (trên GPE này) về chèn hình ảnh thì sẽ ứng dụng được

 

[nguyenthuy13388]

Do đặc thù công việc thường xuyên phải chèn hình nên nhờ mọi người giúp .
chèn các hình ảnh tương ứng ở trong 1 thư mục "PIC" vào file .
Rất cảm ơn mọi người .

Bạn dùng tạm code này xem được không?
(Copy file đính kèm vào nằm cùng thư mục Pic)

Sub Rectangle1_Click()
Dim Sh As Worksheet

For Each Sh In Worksheets
    If Sh.Name <> "data" Then
        On Error Resume Next
        Sh.Shapes("PIC").Delete
        On Error GoTo 0
        If Dir(ThisWorkbook.Path & "\Pic\" & Sh.Range("J3").Value) = "" Then
            MsgBox "Khong tim thay anh" & Sh.Range("J3").Value
        Else
            With Sh.Shapes.AddPicture(ThisWorkbook.Path & "\Pic\" & Sh.Range("J3").Value, True, True, Sh.Range("A7").Left + 2, Sh.Range("A7").Top + 2, Sh.Range("A7:D21").Width - 4, Sh.Range("A7:D21").Height - 4)
                .Apply
                .Name = "PIC"
            End With
        End If
    End If
Next
End Sub