[问题] 如何用VBA删除图表

楼主: Ibrahimovic (伊布)   2019-01-04 14:55:46
软件: Excel
版本: 2016
目标:
设计一个按钮,按下后,删除工作表里的图表
之后再重新做一个新的图表
(注) 因为图表采用的全部资料笔数往后会一直增加,所以旧图表一定要删
问题:
因为新增图表后,图表编号会一直累加上去,删除旧的图表,编号还是会累加
例如新增2张图表
第一个图表的名称在excel里的内定名称是“图表 1”
第二个图表的名称在excel里的内定名称是“图表 2”
如果把“图表 2”删除后,再新增一个图表,此新增图表名称会是“图表 3”
所以想知道的是
(1) 用VBA写,要如何一次删除工作表里的全部图表?
(2) 要如何从VBA内得知,目前工作表里的所有图表编号,以利指定图表删除?
请问有人知道吗?
感恩
作者: soyoso (我是耀宗)   2019-01-04 15:01:00
循环chrtobjects或shapes集合,再delete;要取得名称的话则以name如工作表内只有图表的shape的话也可以selectall,再将选取delete如不只有图表的shape而要以循环shapes集合删除的话,再判断type是否为msochart

Links booklink

Contact Us: admin [ a t ] ucptt.com