先声明一个a为图形变量,遍历当前表所有图形对象,逐一判断其类型如果是图片(即msoPicture)类型那么删除。
DrawingObjects与Shape对象是有区别的所有图片、形状、图表、文本框、艺术字等都属于DrawingObjects对象和Shape对象,通过DrawingObjects.Delete可以一次删除,配合循环则可以全部删除。
图形对象的Type属性表示对象的类型其不同类型的表示方法。视频最后我列一个表大家可以根据自己表格内的图片类型设置删除判断的条件。代码输入完毕,按下F5即可看到效果了。