Giúp sửa code VBA khi chèn ảnh xong qua máy tính khác không bị lỗi Trắng hình ảnh

[Văn Toàn 1996]

Chào tất cả GPE . Mình có dùng code này dùng để chèn hình ảnh nhân viên vào bảng lương. Trên file mình làm thì OK, nhưng khi đem file này qua Máy khác thì nó bị Trắng hình ảnh. Xin mình người giúp đỡ xin chân thành cảm ơn

Sub chenhinhanh()
    On Error Resume Next
        Dim ws As Worksheet
        Dim picPath As Variant
        Dim pic As Picture
        Set ws = ThisWorkbook.Sheets("bangluong")
        picPath = Application.GetOpenFilename("Hinh Anh (*.jpg; *.jpeg; *.png), *.jpg; *.jpeg; *.png", , "Chon Hinh Anh")
        If picPath = False Then Exit Sub
        
        Set pic = ws.Pictures.Insert(picPath)

        With pic
            .Left = ws.Range("B2").Left
            .Top = ws.Range("B2").Top
            .Placement = xlMoveAndSize
            .Name = "NhanVien"
        End With
End Sub

 

[befaint]

Mình mang cả thư mục hình đó đi nữa. Nhớ là phải giữ được nguyên cây thư mục giữa Folder và File Excel.

Còn cách hịn hơn là copy clipboard, biến bức ảnh thành 1 phần ruột thịt của tập tin Excel.

Gợi ý thía thôi.

 

[HeSanbi]

@Văn Toàn 1996 Bạn cần nén tất cả hình ảnh được import vào, sau đó lưu lại trước khi mang sang máy khác.