如何将图像插入到vba上的单元格？

Sub InsertImageToCell()
    Dim img As Picture
    Dim rng As Range

    ' 设置图像路径和文件名
    Dim imagePath As String
    imagePath = "C:\path\to\your\image.jpg"

    ' 设置要插入图像的单元格范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1")

    ' 删除单元格中已有的图像（如果有）
    For Each img In rng.Pictures
        img.Delete
    Next img

    ' 插入图像到单元格
    Set img = ThisWorkbook.Sheets("Sheet1").Pictures.Insert(imagePath)
    With img
        ' 调整图像大小以适应单元格
        .ShapeRange.LockAspectRatio = msoTrue
        .Width = rng.Width
        .Height = rng.Height
        .Left = rng.Left
        .Top = rng.Top
    End With
End Sub