VBA -在单元格的特定坐标处动态插入JPG

Sub InsertJPGToCell()
    Dim ws As Worksheet
    Dim rng As Range
    Dim pic As Picture
    Dim picPath As String
    
    ' 设置图片路径
    picPath = "C:\path\to\your\image.jpg"
    
    ' 设置工作表和单元格范围
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名
    Set rng = ws.Range("A1") ' 替换为你要插入图片的单元格位置
    
    ' 删除已存在的图片（如果有）
    For Each pic In ws.Pictures
        pic.Delete
    Next pic
    
    ' 插入新的图片
    Set pic = ws.Pictures.Insert(picPath)
    With pic
        .Left = rng.Left
        .Top = rng.Top
        .ShapeRange.LockAspectRatio = msoFalse
        .ShapeRange.Width = rng.Width
        .ShapeRange.Height = rng.Height
    End With
End Sub