Cách lấy ảnh từ thư mục.Rồi gửi cho người khác vẫn xem được.

[Thanhlam2425]

Mọi người cho em hỏi vấn đề là.Em có 1 đoạn code lấy ảnh từ thư mục nhưng khi gửi ảnh cho người khác thì bị lỗi không xem được.Mọi người sửa giúp em đoạn code này ạ.Em cảm ơn.

Sub anhluu1()
    Dim name As String, duonglink As String
    With Sheets("receive")
       name = .Range("A4").Value
    End With
    On Error Resume Next
    ActiveSheet.Shapes("PIC1").Delete
   With Application.FileDialog(msoFileDialogFilePicker)
      .Show
      duonglink = .SelectedItems(1)
   End With
    With ActiveSheet.Pictures.Insert(duonglink)
     .name = "PIC1"
    End With
    With ActiveSheet.Shapes("PIC1")
     .LockAspectRatio = False
     .Left = [L5:l5].Left: .Top = [L5:l5].Top
     .Width = [L5:l5].Width: .Height = [L5:l5].Height
    End With
End Sub

 

[Thanhlam2425]

Mọi người cho em hỏi vấn đề là.Em có 1 đoạn code lấy ảnh từ thư mục nhưng khi gửi ảnh cho người khác thì bị lỗi không xem được.Mọi người sửa giúp em đoạn code này ạ.Em cảm ơn.

Sub anhluu1()
    Dim name As String, duonglink As String
    With Sheets("receive")
       name = .Range("A4").Value
    End With
    On Error Resume Next
    ActiveSheet.Shapes("PIC1").Delete
   With Application.FileDialog(msoFileDialogFilePicker)
      .Show
      duonglink = .SelectedItems(1)
   End With
    With ActiveSheet.Pictures.Insert(duonglink)
     .name = "PIC1"
    End With
    With ActiveSheet.Shapes("PIC1")
     .LockAspectRatio = False
     .Left = [L5:l5].Left: .Top = [L5:l5].Top
     .Width = [L5:l5].Width: .Height = [L5:l5].Height
    End With
End Sub

Mọi người giúp em sửa code này với ạ.

 

[Thanhlam2425]

Mọi người giúp em sửa code này với ạ.

Cảm ơn mọi người đã xem.Mình đã sửa được rồi ạ.Dùng phương thức.

ActiveSheet.Shapes.AddPicture Filename:=duonglink, linktofile:=msoFalse, _
            savewithdocument:=msoCTrue, Left:=0, Top:=0, Width:=100, Height:=100