Sort of.
The excel macro generated code used the nomenclature of activechart, I therefore assumed I could replace Activechart with Me![Graph94].Object.Application.Chart
That seemed to work for "hasTitle" and ChartTitle.text
It failed when I attempted the line .Axes(xlCategory, xlPrimary).HasTitle = True
almost as though there was no value for XlCategory and/or XlPrimary
Terence
***************code
Dim GraphObj As Object
Set GraphObj = Me![Graph94].Object.Application.Chart
Set GraphObj = Me![Graph94].Object.Application.Chart
With GraphObj
.HasTitle = True
.ChartTitle.Text = "Awesome Chart Title"
.Axes(xlCategory, xlPrimary).HasTitle = True
' .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Log (Time)"
' .Axes(xlValue, xlPrimary).HasTitle = True
' .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Load * Time"
End With
.HasTitle = True
.ChartTitle.Text = "Awesome Chart Title"
.Axes(xlCategory, xlPrimary).HasTitle = True
' .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Log (Time)"
' .Axes(xlValue, xlPrimary).HasTitle = True
' .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Load * Time"
End With
__._,_.___
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar