Ошибка заголовка диаграммы сразу после установки заголовка

Question

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

Дело в том, что строка над ней объявляет, что она есть.Если я поднимусь на одну строку и перезапущу код в объявлении, он будет продолжаться просто отлично.Он даже создает еще 2 диаграммы точно так же, как и с использованием идентичного кода (копия, вставленная из этого с небольшими переименованиями), который просто продается в розницу для аналогичных данных в других столбцах и делает это без ошибок.

Лучший временной пробел, который я могуПодумайте, что нужно сделать, это поставить проверку на ошибку и снова запустить ее, чтобы запустить снова, но это не объясняет поведение.

Рассматриваемый раздел выглядит так:

WsDBar.HasTitle = True
WsDBar.ChartTitle.Text = "Phase-A Error Breakdown"

Любоймысли о том, почему / как не удается обновить заголовок и как его исправить?

Изменить с помощью большего кода:

WsDBar.ChartType = xlColumnClustered

WsDBar.SetSourceData Source:=DBarData

For i = 1 To 5
If WsDBar.FullSeriesCollection.Count < 5 Then WsDBar.SeriesCollection.NewSeries
If WsDBar.FullSeriesCollection.Count > 5 Then WsDBar.SeriesCollection(6).Delete
WsDBar.FullSeriesCollection(i).name = WsCD.Cells(2, i + 8).Value
WsDBar.FullSeriesCollection(i).Values = WsCD.Range(WsCD.Cells(3, i + 8), WsCD.Cells(RowCountCD, i + 8))
WsDBar.FullSeriesCollection(i).XValues = WsCD.Range("A3:A" & RowCountCD)
WsDBar.FullSeriesCollection(i).Interior.ColorIndex = (i + 41)
Next

То, что я сделал, работает, превращает разбитую область вэто:

ReloopD:
On Error Resume Next

WsDBar.HasTitle = True
If WsDBar.HasTitle = False Then
    LoopCount = LoopCount + 1
    If LoopCount > 100 Then Stop
    GoTo ReloopD
End If
WsDBar.ChartTitle.Text = "Phase-A Error Breakdown"
'y-axis name
WsDBar.Axes(xlValue, xlPrimary).HasTitle = True
If WsDBar.Axes(xlValue, xlPrimary).HasTitle = False Then
    LoopCount = LoopCount + 1
    If LoopCount > 100 Then Stop
    GoTo ReloopD
End If
WsDBar.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "# of Items"

Мне нужно попробовать другие варианты, которые мне дали.Спасибо!

Answer 1

Иногда VBA не завершает одну операцию перед попыткой следующей.Возможно, он начал добавлять заголовок, но, возможно, текстовое поле заголовка еще не готово принять что-либо, поэтому вторая строка вылетает.

Вы можете вставить DoEvents, что говорит VBA подождать, пока Windows не приметзабота обо всем, за что он отвечает.

WsDBar.HasTitle = True
DoEvents
WsDBar.ChartTitle.Text = "Phase-A System Error Breakdown"

Редактировать: Иногда одного DoEvents недостаточно.Следующие циклы перебирают ошибочный оператор до тех пор, пока ошибка не произойдет:

Answer 2

Попробуйте это:

WsDBar.ChartTitle.Caption = "Phase-A System Error Breakdown"

вместо

WsDBar.ChartTitle.Text= "Phase-A System Error Breakdown"