VBA chèn hình tự động từ folder có sẵn vào file excel

[thanh_jr]

Chào các bác,
em đang làm một đoạn code chèn hình tự động từ folder có sẵn vào file excel , Như file đính kèm và code như bên dưới.
Em cũng chỉ mới tự học và mày mò trên internet.

Các anh chị giúp em xem đoạn code e viết sai gì sao mà 3 ngày nay em nghiên cứu cũng ko biết mình sai gì mà không ra.

Cám ơn cả nhà.


Private Sub Insert_photo(ByVal target As Range)
'
' Insert_photo Macro
' find and insert photo
'
'
Dim sh As Object

target.Select

ActiveCell = target
sh.TopLeftCell.Address = target(1, 0).Address
If target <> "" Then ActiveSheet.Picture.Insert("D:\Thanh - Data\Thu thuat Excel\Insert photo to excel\" & target.Value & ".jpg").Select

With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = target.Offset(1, 0).Height
.Width = target.Offset(1, 0).Width

End With
ActiveWorkbook.Save
End Sub

 

[giaiphap]

Chào các bác,
em đang làm một đoạn code chèn hình tự động từ folder có sẵn vào file excel , Như file đính kèm và code như bên dưới.
Em cũng chỉ mới tự học và mày mò trên internet.

Các anh chị giúp em xem đoạn code e viết sai gì sao mà 3 ngày nay em nghiên cứu cũng ko biết mình sai gì mà không ra.

Cám ơn cả nhà.


Private Sub Insert_photo(ByVal target As Range)
'
' Insert_photo Macro
' find and insert photo
'
'
Dim sh As Object

target.Select

ActiveCell = target
sh.TopLeftCell.Address = target(1, 0).Address
If target <> "" Then ActiveSheet.Picture.Insert("D:\Thanh - Data\Thu thuat Excel\Insert photo to excel\" & target.Value & ".jpg").Select

With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = target.Offset(1, 0).Height
.Width = target.Offset(1, 0).Width

End With
ActiveWorkbook.Save
End Sub

Bạn xem thử hàm có sẳn này xem sao.
https://www.giaiphapexcel.com/diendan/threads/chèn-hình-vào-cell-bằng-hàm-tự-tạo.51408/

 

[thanh_jr]

Bạn xem thử hàm có sẳn này xem sao.
https://www.giaiphapexcel.com/diendan/threads/chèn-hình-vào-cell-bằng-hàm-tự-tạo.51408/

Cám ơn bạn,

Mình thử làm nhưng chuyển sang hang dọc thì không hien ra.
Bạn xem hướng dẫn mình them với

thanks

 

[giaiphap]

Cám ơn bạn,

Mình thử làm nhưng chuyển sang hang dọc thì không hien ra.
Bạn xem hướng dẫn mình them với

Cảm ơn

Bạn xem thử file.

 

[thanh_jr]

Cám ơn bạn ,
mình copy về folder thì tìm được rồi.
nhưng mà khi mình mở lên thi code rất dài, nếu mình muốn ứng dung vào các folder khác trong công việc thì có cần chỉnh sửa gì không hay chỉ cần copy code này dán vào file excel mới là được.
hướng dẫn giúp mình luôn với

 

[ndu96081631]

Bạn xem thử file.

Không hiểu có mấy cell phụ ở B4:B8 để làm gì?
Ngoài ra thì công thức:

=commpic(OFFSET($B$5,COLUMN(A1),) & ".jpg",,0.8,0.8)

Tại sao không là:

=commpic(B1 & ".jpg",,0.8,0.8)

cho nó gọn?
---------------------------

nếu mình muốn ứng dung vào các folder khác trong công việc thì có cần chỉnh sửa gì không hay chỉ cần copy code này dán vào file excel mới là được.

Cứ thử nghiệm sẽ có câu trả lời

 

[giaiphap]

Không hiểu có mấy cell phụ ở B4:B8 để làm gì?
Ngoài ra thì công thức:

=commpic(OFFSET($B$5,COLUMN(A1),) & ".jpg",,0.8,0.8)

Tại sao không là:

=commpic(B1 & ".jpg",,0.8,0.8)

cho nó gọn?
---------------------------

Cứ thử nghiệm sẽ có câu trả lời

Dĩ nhiên là vậy rồi anh, nhưng em làm theo file tác giả, chứ mắc mớ gì thêm offset cho mệt vậy.

 

[thanh_jr]

Không hiểu có mấy cell phụ ở B4:B8 để làm gì?


Cứ thử nghiệm sẽ có câu trả lời

Chào anh, em đã thử nghiệm import module sang file rồi nhưng không làm được, vì thực sự không biết chỉnh sửa từ đâu cho phù hợp vì em có rất nhiều sheet trong công việc dạng như vậy, không lẽ cứ gửi lên nhờ chỉnh thì phiền các bác quá.

Em gửi 1 file ví dụ để anh giải thích và hướng dẫn them cho em.

Cám ơn anh

 

[dephetnoi]

Chào anh, em đã thử nghiệm import module sang file rồi nhưng không làm được, vì thực sự không biết chỉnh sửa từ đâu cho phù hợp vì em có rất nhiều sheet trong công việc dạng như vậy, không lẽ cứ gửi lên nhờ chỉnh thì phiền các bác quá.
Em gửi 1 file ví dụ để anh giải thích và hướng dẫn them cho em.

Cám ơn anh

Cái lệnh : Commpic("Tên hình.jpg";ô cần chèn;chiều rộng; chiều cao) thế thôi bạn
Ví dụ: B5= commpic("086.jpg";B5;0,8;0,8)
Bạn cứ thế mà làm thôi

 

[giaiphap]

Chào anh, em đã thử nghiệm import module sang file rồi nhưng không làm được, vì thực sự không biết chỉnh sửa từ đâu cho phù hợp vì em có rất nhiều sheet trong công việc dạng như vậy, không lẽ cứ gửi lên nhờ chỉnh thì phiền các bác quá.

Em gửi 1 file ví dụ để anh giải thích và hướng dẫn them cho em.

Cám ơn anh

Bạn xem file.

 

[thanh_jr]

Cái lệnh : Commpic("Tên hình.jpg";ô cần chèn;chiều rộng; chiều cao) thế thôi bạn
Ví dụ: B5= commpic("086.jpg";B5;0,8;0,8)
Bạn cứ thế mà làm thôi

Mình làm được rồi, cám ơn bạn nha