vba 指定图片导入单元格

您可以使用以下 VBA 代码将指定图片导入到单元格中：

Sub InsertImage()
    Dim img As Picture
    Dim imgPath As String
    
    ' 指定图片路径
    imgPath = "C:\image.jpg"
    
    ' 声明图片对象
    Set img = ActiveSheet.Pictures.Insert(imgPath)
    
    ' 设置图片位置和大小
    With img
        .Left = ActiveSheet.Range("A1").Left
        .Top = ActiveSheet.Range("A1").Top
        .Height = ActiveSheet.Range("A1:A10").Height
        .Width = ActiveSheet.Range("A1:E1").Width
    End With
End Sub

请将代码中的图片路径和单元格范围修改为您需要的值。