Excel VBA 删除 表格中的图片 |
您所在的位置：网站首页 › excel表格中的宏怎么删除 › Excel VBA 删除 表格中的图片 |
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区域内的图片 其他区域不受影响 |
在删除图片后，我又想制定某些的区域代码，那么如何进行修改？【本文地址】
今日新闻 |
推荐新闻 |