ExcelBanter - View Single Post - Macro to graph (or draw) a vertical line on the chart

Brenner

--
Cool

"Joel" wrote:

This will add a line with a macro

Sub createline()

For Each cht In ActiveSheet.ChartObjects
' MsgBox cht.Name

Next cht

Set a = ActiveSheet.ChartObjects("Chart 1")

With ActiveSheet.ChartObjects("Chart 1")
LeftGraph = .Left
TopGraph = .Top
WidthGraph = .Width
HeightGraph = .Height

With .Chart
With .PlotArea

LeftChart = LeftGraph + .InsideLeft
TopChart = TopGraph + .InsideTop
WidthChart = .InsideWidth
HeightChart = .InsideHeight
End With
Set b = .Axes
With .Axes(xlCategory)
MinDate = .MinimumScale
MaxDate = .MaximumScale
End With
End With
'scale todays date on the x-axes to get postiion
XPos = ((Now() - MinDate) / (MaxDate - MinDate) * _
WidthChart) + LeftChart

Set dropline = ActiveSheet.Shapes.AddLine( _
XPos, TopChart, XPos, TopChart + HeightChart)
dropline.Line.DashStyle = msoLineRoundDot
dropline.Line.ForeColor.RGB = RGB(50, 0, 128)
dropline.Line.Weight = 3

.SendToBack
End With

End Sub

"Andy Pope" wrote:

Hi,

Like this?
http://www.andypope.info/ngs/ng25.htm

Cheers
Andy

Brenner wrote:
Each of my charts has about 60 days along the Y axis, and I would like the
senior manager to be able to see a dotted line that goes from the Y axis
(always from today's date) to the data point that represents today's value.

Is it possible to add a vertical series? Or to graph or draw a vertical line
that will "walk" along the Y axis?

Thanks!
John

--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info