Блог

Главная - Вопросы по программированию - как я могу вставить заголовок диаграммы в excel vba

как я могу вставить заголовок диаграммы в excel vba

#excel #vba

Вопрос:

Я создал код, представляющий диаграмму для 3 угольных шахт. Диаграмма отображается правильно, но заголовок диаграммы не отображается. заголовок диаграммы «зараженные случаи» как я могу решить эту проблему? код прилагается

 Set r1 = Range(Cells(2, 26), Cells(Lastrow, 26))
Set r2 = Range(Cells(2, 32), Cells(Lastrow, 32))
Set r3 = Range(Cells(2, 33), Cells(Lastrow, 33))

Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Chart"
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225)
.Chart.SetSourceData Source:=Union(r1, r2, r3)
.ChartTitle.Text = "infected cases"
.Chart.ChartType = xlLineMarkers
End With

Комментарии:

1. docs.microsoft.com/en-us/office/vba/api/excel.chart.hastitle — Установлено ли для этого свойства значение True?

Ответ №1:

Попробуйте этот код, пожалуйста:

 Sub chartTitle()
  Dim r1 As Range, r2 As Range, r3 As Range
  Set r1 = Range(cells(2, 26), cells(lastRow, 26))
  Set r2 = Range(cells(2, 32), cells(lastRow, 32))
  Set r3 = Range(cells(2, 33), cells(lastRow, 33))

  Sheets.Add After:=Sheets(Sheets.count)
  ActiveSheet.Name = "Chart"
  With ActiveSheet.ChartObjects.Add(left:=100, width:=375, top:=75, height:=225).Chart
    .SetSourceData Source:=Union(r1, r2, r3)
    .HasTitle = True  'necessary line to accept a title!
    .ChartTitle.Text = "infected cases"
    .ChartType = xlLineMarkers
  End With
End Sub
Метки: