使用vba从路径导入图片

Sub ImportImageFromPath()
    Dim imagePath As String
    Dim picture As Picture

    ' 设置图片路径
    imagePath = "C:\path\to\image.jpg"

    ' 在工作表中插入图片
    Set picture = ActiveSheet.Pictures.Insert(imagePath)

    ' 调整图片位置和大小
    With picture
        .Left = Range("A1").Left
        .Top = Range("A1").Top
        .ShapeRange.LockAspectRatio = msoFalse
        .Width = Range("A1").Width
        .Height = Range("A1").Height
    End With
End Sub