| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to graph (or draw) a vertical line on the chart
-- 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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I draw a tangent line on a graph ? | Excel Discussion (Misc queries) | |||
| Draw a horizontal bar and line graph | Excel Discussion (Misc queries) | |||
| draw vertical line to mark today in diagram | Excel Discussion (Misc queries) | |||
| How do i draw a regression line on a scatter graph | Charts and Charting in Excel | |||
| Can I draw a tangent to a line in graph in Excel? | Charts and Charting in Excel | |||
Threaded Mode
