如何用vba实现删去表中指定区域的图表

898989

指定表中某行某列到某行某列内的图表全部删去，如何做呢？？

898989

以下是引用Long_III在2005-7-26 8:28:50的发言：

试试这个代码

Sub hjs() Dim sh As Shape

With Worksheets("Sheet1") For Each sh In .Shapes If Not Application.Intersect(sh.TopLeftCell, .Range("B3:D4")) Is Nothing Then '如果图片左上角下面的单元格与单元格区域B3:d4重叠，则删除该图片 If sh.Type = msoPicture Then sh.Delete End If Next sh End With End Sub

或上传自己的附件

u42ODosR.rar (42.13 KB, 下载次数: 29)

2005-7-26 17:36 上传

点击文件名下载附件
如何用vba实现删去表中指定区域的图表

感谢，不过我好像没说清，我传上附件你看，由于表中数据会更改，我要做的是删去原来的画线，重新绘图。

konggs

哈哈！

原来龙兄，也是wordVBA高手啊！

Long_III

这个代码是删除所有画线的，你试试，加在你的代码前面即可

Sub hjs() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoLine Then sh.Delete Next sh End Sub

居然这个问题这么久了还没人回答，真怪

Long_III

试试这个代码

Sub hjs() Dim sh As Shape

With Worksheets("Sheet1") For Each sh In .Shapes If Not Application.Intersect(sh.TopLeftCell, .Range("B3:D4")) Is Nothing Then '如果图片左上角下面的单元格与单元格区域B3:d4重叠，则删除该图片 If sh.Type = msoPicture Then sh.Delete End If Next sh End With End Sub

或上传自己的附件