使用VBA获取工作表里边文本框、图形的文本数据时，在不确定文本框、图形数量的情况下，可以使用“ForEach……In……Next”对工作表里面的每一个文本框、图形进行访问，然后使用“.TextFrame2.TextRange.Text”获取里边的文本数据写入单元格。
VBA程序如下截图，shp为工作表Sheet1里边所有图形中的一个（每执行一次For循环就提取一个，不重复）。
【注】上图的VBA程序引用自百度经验
使用VBA获取工作表里边文本框、图形的文本数据时，在不确定文本框、图形数量的情况下，可以使用“ForEach……In……Next”对工作表里面的每一个文本框、图形进行访问，然后使用“.TextFrame2.TextRange.Text”获取里边的文本数据写入单元格。
VBA程序如下截图，shp为工作表Sheet1里边所有图形中的一个（每执行一次For循环就提取一个，不重复）。
【注】上图的VBA程序引用自百度经验
