Xin nhờ các cao thủ trợ giúp chèn ảnh hàng loạt vào sheet. (1 người xem)

[t_dragon199x]

E đã thử nhiều nhưng tìm được cách ưng ý nên lên đây xinh kính mong các cao thủ cell giúp đỡ.
E có bài toán như thế này: E có 1 folder ảnh khoảng 200 ảnh. E có một mẫu trang in sẵn ra các trang trong excel, e muốn chèn ảnh lần lượt vào các ô trong từng trang đó. Các ô cách đều nhau theo 1 quy luật vì các trang in giống nhau. chỉ khác ảnh thôi.
Bài toán của e là như vậy, mong các bác bỏ chút thời gian góp ý giải pháp cho em được hoàn thành nhiệm vụ. Cảm ơn rất nhiều.
Thân!

 

[t_dragon199x]

Không có cao thủ nào giúp e với

 

[jack nt]

E đã thử nhiều nhưng tìm được cách ưng ý nên lên đây xinh kính mong các cao thủ cell giúp đỡ.
E có bài toán như thế này: E có 1 folder ảnh khoảng 200 ảnh. E có một mẫu trang in sẵn ra các trang trong excel, e muốn chèn ảnh lần lượt vào các ô trong từng trang đó. Các ô cách đều nhau theo 1 quy luật vì các trang in giống nhau. chỉ khác ảnh thôi.
Bài toán của e là như vậy, mong các bác bỏ chút thời gian góp ý giải pháp cho em được hoàn thành nhiệm vụ. Cảm ơn rất nhiều.
Thân!

Bạn dùng thử cái này

Public Sub InsertPicture2Sheets(StrFolder As String, InsertAddress As String)
    Dim ObjFSO As Object, ObjFolder As Object, ObjFile As Object
    Dim CountPics As Integer, NumOfSheets As Integer
    Set ObjFSO = CreateObject("Scripting.FileSystemObject")
    Set ObjFolder = ObjFSO.GetFolder(StrFolder)
    CountPics = 1
    NumOfSheets = Sheets.Count
    For Each ObjFile In ObjFolder.Files
        With Sheets(CountPics).Pictures.Insert(StrFolder & "\" & ObjFile.Name)
            .Top = Sheets(CountPics).Range(InsertAddress).Top
            .Left = Sheets(CountPics).Range(InsertAddress).Left
        End With
        CountPics = CountPics + 1
        If CountPics > NumOfSheets Then Exit Sub
    Next ObjFile
End Sub

P/S: không hiểu ”Các ô cách đều nhau theo 1 quy luật“ nên ở đây chèn hình vào cùng vị trí, bạn sửa lại theo ý.