在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区域内的图片 其他区域不受影响