如何让ActiveSheet.DrawingObjects.Delete删除指定区域图片

冲天妖狐 · 发表于 2009-12-10 23:34

如何让代码ActiveSheet.DrawingObjects.Delete只删除指定区域的图片？
ActiveSheet.DrawingObjects.Delete是删除活动工作表内的图片。
请问：
如何改代码ActiveSheet.DrawingObjects.Delete使之只删除指定区域（如A3:H100）的图片？

lb_bn · 发表于 2009-12-11 00:03

for each drt in ActiveSheet.DrawingObjects
if not intersect(drt.topleftcell,[a3:h100]) is nothing then drt.delete
if not intersect(drt.bottomrightcell,[a3:h100]) is nothing then drt.delete
next

试试。

冲天妖狐 · 发表于 2009-12-11 11:07

谢谢，代码可行

gglili · 发表于 2023-7-1 17:07

终于找到解决办法了

		自动登录	找回密码
密码			免费注册

[已解决] 如何让ActiveSheet.DrawingObjects.Delete删除指定区域图片