如何在vba中创建图表后立即添加图表名称？

Question

这只是代码的一部分。

For i = 1 To Total_Graphs
    Sheet3.Select
    Num_Variables = Sheet2.Range("Num_Variables").Offset(i - 1, 0).Value
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheet1.Range(Total_Variable_Range(i))
    For j = 1 To Num_Variables
    ActiveChart.SeriesCollection(j).Name = Sheet2.Range("List_format").Offset(i - 1, j - 1).Value
    Next j
Next i

现在，我想命名自己创建的图表，而不是excel自动给出名称。

Answer 1

对于命名，AddChart方法返回Shape，因此您可以设置变量并使用它...

Dim s As Shape
Set s = ActiveSheet.Shapes.AddChart
s.Select
s.Name = "some name"