Question

This is a very strange issue I am facing for a while now, when creating some Excel worksheets programmatically from MS Access 2003.

Using this VBA-Code snippet I am not able to set the Position property of an Excel’s Legend object (variable definitions and so on are left out to ease understanding).

...
Set ChartObject = myWorksheet.ChartObjects.Add(myRange.Left, myRange.Top, myRange.width, myRange.Height)
Set Chart = ChartObject.Chart
Chart.HasLegend = True
'This line raises an error:
Chart.Legend.Position = -4107 '=xlLegendPositionBottom
...

MS Access always raises the Error 1004:

“Unable to set the Position property of the Legend class”

It confuses me that I can use the exact same code from within Exel VBA and it just works. What confuses me even more is that the property HasLegend can be set whithout any error ocurring.

Someone has a hint to solve this issue?

Answer 1

After building a generic version of my code I found that in Office/Excel 2003 I have to populate my Series of data to the chart before changing the Legend’s position. Probably the object hasn’t been initiated before. My Code should therefore look like this:

...
Set ChartObject = myWorksheet.ChartObjects.Add(myRange.Left, myRange.Top, myRange.width,  myRange.Height)
Set Chart = ChartObject.Chart
Chart.HasLegend = True
...
Chart.SeriesCollection.Add myRange, 1 '=xlRows
'Now this works:
Chart.Legend.Position = -4107 '=xlLegendPositionBottom