【 VBA 编程】一键统计！秒算Excel工作簿所有图形对象数量

 1.引言

在日常办公或数据分析中，Excel工作簿可能包含大量图形对象——图片、形状、图表、文本框等。另外，工作表中的图形对象可以隐藏起来，手动统计不仅耗时费力，还容易遗漏，尤其是以下场景：

• 检查文档体积：图形过多会导致文件臃肿，需清理冗余对象

• 批量操作前提：删除/修改前需确认对象数量

• 自动化报告：动态统计图形数量并记录日志

VBA一键统计正是解决这些痛点的终极方案！接下来就通过案例说明是如何操作的吧，或许有一天你也会遇到这类问题，收藏以备不时之需

2.需求描述

需求描述：利用图形对象（Shape）统计指定 Excel 文档中所有图形对象（包括图片、形状、图表等）数量

Excel中的图形对象（Shape）是一个广泛的集合概念，包含多种可视化元素：

• 基础形状：矩形、圆形、箭头等几何图形（msoAutoShape）

• 图片对象：插入的图片（msoPicture）、链接图片（msoLinkedPicture）

• 图表对象：Excel图表（msoChart）

• SmartArt图形：组织结构图等（msoSmartArt）

• 文本框：包含文本的图形（msoTextBox）

• 艺术字：特殊效果的文字（msoTextEffect）

• 控件对象：表单控件和ActiveX控件（msoFormControl）

• 线条和连接符：直线、曲线等（msoLine）<