插入图片不粘贴在活动单元格中

Question

Sub InsertLogo1()
    ActiveCell.Select
    ActiveSheet.Pictures.Insert("Path").Select
End Sub

Answer 1

Dim Pic As Object
Set Pic = ActiveSheet.Pictures.Insert(Directory & "\" & filename)
With Pic
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left
    .LockAspectRatio = msoTrue
    .Width = 225#
End With