Xin giúp đỡ code load toàn bộ ảnh của 1 thư mục vào file excel (1 người xem)

[quyenpv]

Nhờ các anh giúp code có thể lấy ảnh bất kỳ thư mục nào chèn vào trong file excel, số lượng picframe tùy vào số lượng ảnh có trong thư mục với ạ.
Em đang cần chèn ảnh sản phẩm vào file nhưng không biết viết thế nào. MOng các anh chị giúp đỡ

 

[quyenpv]

Sub InsertPicture()
Dim sPicture As String, pic As Picture

sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")

If sPicture = "False" Then Exit Sub

Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With

Set pic = Nothing

End Sub

Đoạn code trên chỉ cho phép insert từng pic 1, muốn nhờ các anh có thể chọn nhiều pic trong thư mục và có phần theo từng trang với ạ. Mối trang có thể từ 4 đến 6 ảnh

 

[quyenpv]

Em tìm được code của trang diễn đàn nước ngoài cũng đã thỏa mãn yêu cầu. Tuy nhiên cách chỉnh đến Brow Folder thì không được đẹp mong các anh sử giúp giao diện giống như mình mở file mới với ạ

 

[ndu96081631]

Em tìm được code của trang diễn đàn nước ngoài cũng đã thỏa mãn yêu cầu. Tuy nhiên cách chỉnh đến Brow Folder thì không được đẹp mong các anh sử giúp giao diện giống như mình mở file mới với ạ

Bài này chắc gần giống cái bạn cần:
http://www.giaiphapexcel.com/forum/showthread.php?3721-Thêm-1-dạng-PicForm&p=536728#post536728

 

[quyenpv]

Cám ơn anh! Em đã làm được rồi, thỏa mãn mọi điều mình yêu cầu!