Недавно мы перешли на Office365, и с тех пор определенный код доступа, содержащий ChartTitle , больше не хочет компилироваться.
Sub test()
Dim mWB As Workbook
Dim mChrt As Chart
Set mWB = Workbooks.Add(1)
Set mChrt = mWB.Charts.Add
With mChrt
.ChartType = xlXYScatterSmoothNoMarkers
.Location Where:=xlLocationAsNewSheet
.HasTitle = True
.ChartTitle.Characters.Text = "Rapport datum :" & Format(Now, "dd-mmm-yyyy")
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "weight"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "amount"
End With
End Sub
Выше будет сказано: «Компилировать error: Invalid Qualifier 'и остановка специально на CharTitle, даже если он все еще должен быть действительным.
![](https://i.stack.imgur.com/wkiFl.png)
Кто-нибудь знает, что происходит? Не совсем эксперт по доступу ..