chart manipulation

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How can i draw a rectangle on a chart
I have an x y scatter chart and want to draw a rectangle from known x y co
ordinates

thanks
 
This should put the upper left corner of the rectangle at the specified X
and Y values. You can adjust it to position the rectangle from there.

Sub AddRectangleToChart()
Dim yAxis As Axis, xAxis As Axis
Dim y1 As Single, x1 As Single
Dim x, y, shp As Shape
x = 2.19
y = 4.333
Set yAxis = ActiveChart.Axes(xlValue, xlPrimary)
Set xAxis = ActiveChart.Axes(xlCategory, xlPrimary)
y1 = yAxis.Top + yAxis.Height - ((y / (yAxis.MaximumScale -
yAxis.MinimumScale)) * _
yAxis.Height)
x1 = xAxis.Left + (x / (xAxis.MaximumScale - xAxis.MinimumScale)) * _
xAxis.Width

Set shp = ActiveChart.Shapes.AddShape( _
Type:=msoShapeRectangle, _
Left:=x1, _
Top:=y1, _
Width:=99.67, _
Height:=70.08)
shp.ZOrder msoBringToFrong
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to make X, Y axes of Excel charts to have same scale on thescreen? 5
multiple 3D equations in one excel surface chart 1
Is there a way to draw a vertical line from a point on the chart line to the bottom of the chart 7
C#: XYScatter chart with smooth lines and no markers 2
create chart with column axis 10
Calculate the distance between two 2d co-ordinates 2
RangeFromPoint ... on a chartsheet ? 4
Extracting Data From a Chart 1

Back
Top