Chart axis title, Formula, and VBA

[mikejvir]

Hello,

I have an issue which I have not found a solution for. I have a chart that links the axis titles to a cell in worksheet tab (=Data!$A$6). I also need to reset the axis title for alignment (long issue). The code I have is

Dim  Axs As Long
Dim AxSide As Long
Dim Tstring As String

  With ActiveChart.Axes(Axs, AxSide)
    If .HasTitle = False Then
      .HasTitle = True
    Else                                '  Need to reset title
      Tstring = .AxisTitle.Caption
      If Tstring = "" Then Tstring = "Axis"
      .HasTitle = False
      .HasTitle = True
      .AxisTitle.Characters.Text = Tstring
    End If
  End With

The problem is with

Tstring = .AxisTitle.Caption

since it only captures the text, not the formula. I can not determine the object to read. There may also me an issue with how I write to it

.AxisTitle.Characters.Text = Tstring

.

Thanks for your help.
Mike Virostko

 

[mikejvir]

Hello,

I posted this question last year. Since there is not been an answer, either there is no solution or I did not explain it correctly.

Any help?

Mike Virostko

 

[RoryA]

It looks like you want AxisTitle.Formula rather than Caption.

 

[mikejvir]

Rory, Thank you very much. That fixed the issue.