select图表而不参考图表编号

我想在Excel中使用VBA在Excel中select一个随机图表，而不知道图表编号，因为生成的图表总是在编号上发生变化。 任何人都可以帮忙吗？ 是否有可能select一个图表而不参考图表编号？ 我想更改活动图表的图表名称。

1 ActiveSheet.ChartObjects("Chart 409").Activate 2 ActiveSheet.Shapes("Chart 409").Name = "Chart 1" 3 ActiveSheet.ChartObjects("Chart 1").Activate 

Answer 1

要select所有图表或随机图表，您可以使用图表索引。

 Sub getcharts() Dim ws As Worksheet Dim ch As ChartObject Set ws = ActiveSheet cnt = ws.ChartObjects.Count random_num = Application.WorksheetFunction.RandBetween(1, cnt) ws.ChartObjects(random_num).Name = "NAM" 'The Random chart For Each ch In ws.ChartObjects ch.Name = "Put the name of Chart here " 'Or Do anything with you all the charts here Next End Sub