VBA have legend on the top left corner of chart area

[absundo]

I have multiple charts with the same series, so I want to write a code where I can just have 1 legend instead of having a legend per chart.

I felt the easiest way was to write a code where I can have the legend cover the entire chart area. However, i've run into a problem where the legend doesn't want to overlap the plot area.

With ChartObject.Chart
       If ChartObject.Name = "Legends" Then
          With ChartObject.Chart.Legend
                  .top = ?
                  .left = ?
                 .Width = chartwidth
                 .Height = chartheight
                 .Interior.ColorIndex = 2
                 .Font.Size =5
           Else
                 .HasLegend = False
        End If
End With

I've played around with different top/left combinations and still seem to have the problem where the legend doesn't want to overlap the plot area. Is there a way, to have the legend position it self automatically to the top left corner of the chart area, and then set the width/height of the legend to the chart area?

Any help/input would be appreciated!

 

[pgc01]

Hi

I added a chart, selected it and this code worked for me.

Sub TestLegendOverlap()
Dim cht As Chart

Set cht = ActiveChart
With cht.Legend
     .Top = 0
     .Left = 0
    .Width = cht.ChartArea.Width
    .Height = cht.ChartArea.Height
    .Interior.ColorIndex = 2
End With
End Sub