用VBA删除excel指定区域的图片，并在指定文件夹插入图片到excel指定区域

以下是一个示例代码，可以删除指定区域的图片并将指定文件夹中的图片插入到Excel指定区域：

Sub InsertPicture()
    Dim picFolderPath As String
    Dim picFileName As String
    Dim picRange As Range
    Dim pic As Picture
    
    '设置图片文件夹路径和文件名
    picFolderPath = "C:\Pictures\"
    picFileName = "example.jpg"
    
    '设置要插入图片的区域
    Set picRange = Range("A1:B2")
    
    '删除指定区域内的图片
    For Each pic In ActiveSheet.Pictures
        If Not Intersect(picRange, pic.TopLeftCell) Is Nothing Then
            pic.Delete
        End If
    Next pic
    
    '插入新的图片
    Set pic = ActiveSheet.Pictures.Insert(picFolderPath & picFileName)
    With pic
        .Left = picRange.Left
        .Top = picRange.Top
        .Width = picRange.Width
        .Height = picRange.Height
    End With
End Sub

请注意，此代码假定指定的区域只包含一个图片。如果区域包含多个图片，则需要进行适当的修改。另外，此代码还假定要插入的图片是JPEG格式。如果要插入其他格式的图片，需要相应地更改代码。