Как добавить название диаграммы сразу после создания диаграммы в vba?

Это всего лишь часть кода.Как добавить название диаграммы сразу после создания диаграммы в vba?

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, дающую имя автоматически.

источник

2014-11-04 Shashank

Кроме того, кто может помочь с правильной структуризацией коды. Спасибо – Shashank

Я пробовал это. Получение ошибки времени выполнения '-2147024882 (8007000e)' – Shashank

hm .. shapes (index) .Name = "new name"? –

Для наименования, метод AddChart возвращает Shape, так что вы можете установить переменное этого и работать с ним ...

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

источник

2014-11-04 11:16:24 Captain

[Избегайте использования select] (http://stackoverflow.com/questions/10714251/how-to-avoid-using-select-in-excel-vba-macros) ... поэтому, вероятно, 'ws.Shapes (ws.Shapes .Count) .Name = "новое имя" ' –

Как добавить название диаграммы сразу после создания диаграммы в vba?

ответ

Смежные вопросы