第2个回答 2020-02-20
Sub CRTP()
Dim Filename$
Set fd = Application.FileDialog(msoFileDialogFilePicker)
If fd.Show = True Then
Filename = fd.SelectedItems(1)
Else
Exit Sub
End If
With Selection
ActiveSheet.Shapes.AddPicture Filename, False, True, .Left, .Top, .Width, .Height
End With
End Sub