软件: Excel
版本: 2016
目标：
设计一个按钮，按下后，删除工作表里的图表
之后再重新做一个新的图表
(注) 因为图表采用的全部资料笔数往后会一直增加，所以旧图表一定要删
问题：
因为新增图表后，图表编号会一直累加上去，删除旧的图表，编号还是会累加
例如新增2张图表
第一个图表的名称在excel里的内定名称是“图表 1”
第二个图表的名称在excel里的内定名称是“图表 2”
如果把“图表 2”删除后，再新增一个图表，此新增图表名称会是“图表 3”
所以想知道的是
(1) 用VBA写，要如何一次删除工作表里的全部图表？
(2) 要如何从VBA内得知，目前工作表里的所有图表编号，以利指定图表删除？
请问有人知道吗？
感恩

循环chrtobjects或shapes集合，再delete；要取得名称的话则以name如工作表内只有图表的shape的话也可以selectall，再将选取delete如不只有图表的shape而要以循环shapes集合删除的话，再判断type是否为msochart