Interesting VBA problem.

[xamination]

I am writing a program which takes data from multiple charts and combines them into one singular chart. Everything seems to be working fine, until I get to these last two lines

ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = chartName

Now, if I run the macro as is, I get an error message telling me "The object has no title." Hovering over ActiveChart.HasTitle says it is set at false. HOWEVER, if I put a stop in a few lines before, and step through these lines, everything works fine, no problem. I even put a do until loop around "activechart.hastitle = true" to make sure it was setting it to true.

It seems that if I run through it as normal it will throw an error. But if I step through it it won't. Whats causing this error, or what would be a work around at least?

Thanks in advance

 

[Greg Truby]

In that case, a tip of the cap, a "welcome to the board" and a "much obliged" to Seth. It ain't many members whose first post is an answer to a question instead of a question.

 

[sethmac86]

Ha! thanks, I'll try and anwser more as I come across any, hard to keep up with work and the message boards at the same time.

 

[sabrinahewa]

The .SetElement(...) method. Still have no idea why I was getting the problem I was, but it's water under the bridge IMO

This line also fell victim to this VBA blunder.. In some sheets this worked and in others it threw the same error. But Do Until Loop solved the problem

e.g. :P (greater than 2 repeats worked for my sheet but please increase generously if yours still fails)

Dim nonsense As Integer
nonsense = 1
   
Do Until nonsense > 2
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    nonsense = nonsense + 1
Loop


ActiveChart.ChartTitle.Text = "My Chart Title"