Chèn tên và hình ảnh tự động vào form trong excel!!! (2 người xem)

[kemly2004]

Chào mọi người!
Hàng ngày mình phải làm một số báo cáo cần chèn tên hình ảnh và chèn hình ảnh vào form excel để báo cáo.
Mình làm bằng tay tốn thời gian quá.
Nhờ mọi người sử dụng vba và macro để chèn tự động vào giúp.
Mình tìm trên diễn đàn nhiều rồi nhưng chỉ được 1 trong 2 chức năng thôi.
Mong mọi người giúp đỡ.
Mọi người xem file đính kèm nha, ví dụ phải chèn 5 tên và hình vào form.
Xin cảm ơn.

 

[giaiphap]

Chào mọi người!
Hàng ngày mình phải làm một số báo cáo cần chèn tên hình ảnh và chèn hình ảnh vào form excel để báo cáo.
Mình làm bằng tay tốn thời gian quá.
Nhờ mọi người sử dụng vba và macro để chèn tự động vào giúp.
Mình tìm trên diễn đàn nhiều rồi nhưng chỉ được 1 trong 2 chức năng thôi.
Mong mọi người giúp đỡ.
Mọi người xem file đính kèm nha, ví dụ phải chèn 5 tên và hình vào form.
Xin cảm ơn.

Không cần click vào nút được không bạn? cài sẳn công thức ở cột B khi gõ tên file hình ở cột A thì tự động chèn hình vào cột B được không vậy?

 

[SA_DQ]

Bạn đã làm bằng tay? Vậy thì mở bộ thu macro lên & thu lại xem nó viết những dòng lệnh nào?
Sau đó đưa lên diễn đàn, nhờ mọi người tóm gọn & trơn tru lại cho.

Chúc vui!

 

[be_09]

Chào mọi người!
Hàng ngày mình phải làm một số báo cáo cần chèn tên hình ảnh và chèn hình ảnh vào form excel để báo cáo.
Mình làm bằng tay tốn thời gian quá.
Nhờ mọi người sử dụng vba và macro để chèn tự động vào giúp.
Mình tìm trên diễn đàn nhiều rồi nhưng chỉ được 1 trong 2 chức năng thôi.
Mong mọi người giúp đỡ.
Mọi người xem file đính kèm nha, ví dụ phải chèn 5 tên và hình vào form.
Xin cảm ơn.

Góp ý cho bạn:
1/ Còn cột Remark lấy từ đâu vào?
2/ Tốt nhất là bạn nên lập sẳn danh mục trên 1 sheet nào đó với cột tên ảnh và Remark để làm List danh sách khi chọn 1 hay nhiều mục trong List danh sách nó tự gán ảnh vào.
3/ Liên quan đến hình ảnh thì bạn nên sử dụng Macro để cải thiện tốc độ.

 

[ndu96081631]

Chào mọi người!
Hàng ngày mình phải làm một số báo cáo cần chèn tên hình ảnh và chèn hình ảnh vào form excel để báo cáo.
Mình làm bằng tay tốn thời gian quá.
Nhờ mọi người sử dụng vba và macro để chèn tự động vào giúp.
Mình tìm trên diễn đàn nhiều rồi nhưng chỉ được 1 trong 2 chức năng thôi.
Mong mọi người giúp đỡ.
Mọi người xem file đính kèm nha, ví dụ phải chèn 5 tên và hình vào form.
Xin cảm ơn.

Ví dụ code vầy xem:

Sub InsertImages()
  Dim vImgFiles, imgItem, imgName
  Dim shp As Shape, wks As Worksheet
  Dim Target As Range
  Set wks = ActiveSheet
  vImgFiles = Application.GetOpenFilename("Image Files, *.jpg;*.bmp", , "Chon file hình", , True)
  If IsArray(vImgFiles) Then
    Set Target = wks.Range("B2")
    For Each imgItem In vImgFiles
      imgName = Mid(imgItem, InStrRev(imgItem, "\") + 1)
      imgName = Left(imgName, Len(imgName) - 4)
      Set shp = wks.Shapes.AddPicture(imgItem, msoFalse, msoTrue, Target.Left, Target.Top, Target.Width, Target.Height)
      On Error Resume Next
      wks.Shapes(Target.Address).Delete
      On Error GoTo 0
      shp.Name = Target.Address
      Target.Offset(, -1).Value = imgName
      Set Target = Target.Offset(1)
    Next
  End If
End Sub

Không thích thì có thể.. "đổi kiểu" khác

 

[kemly2004]

Ví dụ code vầy xem:

Sub InsertImages()
  Dim vImgFiles, imgItem, imgName
  Dim shp As Shape, wks As Worksheet
  Dim Target As Range
  Set wks = ActiveSheet
  vImgFiles = Application.GetOpenFilename("Image Files, *.jpg;*.bmp", , "Chon file hình", , True)
  If IsArray(vImgFiles) Then
    Set Target = wks.Range("B2")
    For Each imgItem In vImgFiles
      imgName = Mid(imgItem, InStrRev(imgItem, "\") + 1)
      imgName = Left(imgName, Len(imgName) - 4)
      Set shp = wks.Shapes.AddPicture(imgItem, msoFalse, msoTrue, Target.Left, Target.Top, Target.Width, Target.Height)
      On Error Resume Next
      wks.Shapes(Target.Address).Delete
      On Error GoTo 0
      shp.Name = Target.Address
      Target.Offset(, -1).Value = imgName
      Set Target = Target.Offset(1)
    Next
  End If
End Sub

Không thích thì có thể.. "đổi kiểu" khác

Cảm ơn thầy, em làm được rồi.