VBA insert Picture từ bảng biểu sheet này qua sheet khác

[Harry90]

Xin các Pro chỉ giao giúp em!
em tạo 1 bảng biểu ở sheet Form sẽ input thông tin, hình ảnh ứng viên sang sheet "Danhsach"
em đang gặp khó khăn khi xử lý với hình ảnh khi không chuyển từ sheet "Form" sang sheet"Danhsach"
em đính kèm file bên dưới bài viết
Rất mong anh/chị sửa code giúp em ạ
Em xin cảm ơn rất nhiều ạ

 

[snow25]

Xin các Pro chỉ giao giúp em!
em tạo 1 bảng biểu ở sheet Form sẽ input thông tin, hình ảnh ứng viên sang sheet "Danhsach"
em đang gặp khó khăn khi xử lý với hình ảnh khi không chuyển từ sheet "Form" sang sheet"Danhsach"
em đính kèm file bên dưới bài viết
Rất mong anh/chị sửa code giúp em ạ
Em xin cảm ơn rất nhiều ạ
View attachment 283564

Đơn giản nhất là bạn khi nào lấy ảnh vào excel.Bạn đổi tên ảnh đi rồi khi chuyển nó cũng rễ và khi sử dụng nó đơn giản.

 

[Harry90]

Đơn giản nhất là bạn khi nào lấy ảnh vào excel.Bạn đổi tên ảnh đi rồi khi chuyển nó cũng rễ và khi sử dụng nó đơn giản.

bác làm vi du code giúp e trong file với ạ, vì e chưa hiểu lắm ạ

 

[Harry90]

Có ai giúp e với ạ

 

[vanthinh3101]

Có ai giúp e với ạ

Tôi sửa trên nền code của bạn.
Cụ thể:
- Thêm 1 thủ tục mới

Sub CopyImage(PasteCell As String)
    Dim pic As Shape, piccopy As Shape
    
    For Each pic In ActiveSheet.Shapes
        If pic.Type = msoPicture Then
            Set piccopy = pic.Duplicate
            piccopy.Cut
            Exit For
        End If
    Next
    Sheet2.Select
    Sheet2.Range(PasteCell).PasteSpecial xlPasteAll
    
    With ActiveSheet.Shapes(ActiveWindow.Selection.Name)
        .Left = Sheet2.Range(PasteCell).Left + (Sheet2.Range(PasteCell).Width - .Width) / 2
        .Top = Sheet2.Range(PasteCell).Top + (Sheet2.Range(PasteCell).Height - .Height) / 2
        .Placement = 1
    End With
    
    Sheet1.Select
End Sub

- Thay thế 1 dòng code

'danh_sach.Range("F" & hang_cuoi).Value = form.Range("C8").Value thay the:
 Call CopyImage("F" & hang_cuoi)

 

[Harry90]

Tôi sửa trên nền code của bạn.
Cụ thể:
- Thêm 1 thủ tục mới

Sub CopyImage(PasteCell As String)
    Dim pic As Shape, piccopy As Shape
   
    For Each pic In ActiveSheet.Shapes
        If pic.Type = msoPicture Then
            Set piccopy = pic.Duplicate
            piccopy.Cut
            Exit For
        End If
    Next
    Sheet2.Select
    Sheet2.Range(PasteCell).PasteSpecial xlPasteAll
   
    With ActiveSheet.Shapes(ActiveWindow.Selection.Name)
        .Left = Sheet2.Range(PasteCell).Left + (Sheet2.Range(PasteCell).Width - .Width) / 2
        .Top = Sheet2.Range(PasteCell).Top + (Sheet2.Range(PasteCell).Height - .Height) / 2
        .Placement = 1
    End With
   
    Sheet1.Select
End Sub

- Thay thế 1 dòng code

'danh_sach.Range("F" & hang_cuoi).Value = form.Range("C8").Value thay the:
 Call CopyImage("F" & hang_cuoi)

Em xin cảm ơn ạ!