Select a chart, ensure it has a left value axis

Sub test2()
Dim lt as single, tp as single

With ActiveChart.Axes(xlValue, xlPrimary)
lt = .Left
tp = .Top
End With

ActiveChart.Shapes.AddShape 1, lt, tp, 30, 20

End Sub

should add a rectangle to the top-left corner of the apparent shaded plot
area,

Regards,
Peter T




"Richard Weatherly" wrote in
message ...
I want to place a text box at a specific location in the plot area of a
chart
using VBA. ActiveChart.PlotArea.Left and ActiveChart.PlotArea.Width will
return the left edge and width of the plot area, but the .Left function
includes the "Y" axis scale as the left most point. In other words, the
.Left point is the left edge of the scale values and not the left edge of
the
plot area.

Any suggestions?