循环查看所选组中的图表

你好，我试图循环选定的组中的所有图表，没有太多的运气。 我仍然在加快与VBA，并会感谢您有任何帮助。

工作stream程：1）我有一组图表组成一个数组/graphics范围（我右键单击所有和单击的组）2）我想循环遍历形状范围中的所有图表对象，并执行特定的行的代码

我试图编写这样的代码，如果对象被选中，但我有一个问题，它不通过分组对象循环。 我的代码在下面，任何帮助将是appreicated

Sub ChartLooping1() Dim cht As Excel.Chart Dim shp As Object For Each shp In Selection.ShapeRange If shp.Type = msoChart Then Set cht = ActiveSheet.ChartObjects(shp.Name).Chart MsgBox shp.Chart.Name End If Next shp MsgBox "done" End Sub 

Answer 1

我没有真正玩过很多形状（我做了一些图表然而，） Selection.ShapeRange后添加.GroupItems似乎工作：

  For Each shp In Selection.ShapeRange.GroupItems 

希望这可以帮助 ：）