删除单元格中除vba中最后一个图像外的所有图像

Sub DeleteAllImagesExceptLast()
    Dim shp As Shape
    Dim lastShape As String
    
    '获取最后一个图像的名称
    lastShape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
    
    '遍历每个图像并删除除最后一个图像外的所有图像
    For Each shp In ActiveSheet.Shapes
        If shp.Name <> lastShape Then
            shp.Delete
        End If
    Next shp
End Sub

Sub DeleteAllImagesExceptLast()
    Dim shp As Shape
    Dim lastShape As String
    
    '获取最后一个图像的名称
    lastShape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
    
    '遍历每个单元格并删除除最后一个图像外的所有图像
    For Each shp In ActiveSheet.Shapes
        If shp.Name <> lastShape Then
            If Not shp.TopLeftCell Is Nothing Then
                shp.Delete
            End If
        End If
    Next shp
End Sub