Excel VBA 删除 表格中的图片

在excel中建立了一个模板，希望大家使用完成后，里面的数值进行初始化，
那么，就需要将其中的文字、文本框、图片进行删除

Sub DeletePic()
    Dim p As Shape
    For Each p In Sheet1.Shapes
        If p.Type = 13 Then
            p.Delete
        End If
    Next
End Sub

代码中的type可以参考如下，

在删除图片后，我又想制定某些的区域代码，那么如何进行修改？

需要定义一个函数：Del_Picture_By_Rng （）

Del_Picture_By_Rng [G2:G10000] ‘’’’’’’'删除G2到G1000区域内的图片 其他区域不受影响。

Sub Del_Picture_By_Rng (rng As Range)'删除指定单元格区域内的图片
	Dim i As Integer, shps
	Set shps = rng.Worksheet.Shapes
	For i = shps.Count To 1 Step -1 '倒序循环图片
		If Not Intersect(shps(i).TopLeftCell, rng) Is Nothing Then '检测到图片位置与本区域重叠 则删除
			shps(i).Delete
		End If
	Next i
End Sub

使用方法

Del_Picture_By_Rng [G2:G10000] '删除G2到G1000区域内的图片 其他区域不受影响