J
jason
Maybe the code from this one will paste correct...
If not, then please follow this link for an example:
http://support.microsoft.com/default.aspx?scid=kb;EN-
US;q286317
---------------
Hi all,
Can anyone please tell me how to interrupt the series on
the x-axis below? oSer2 does not contain the "d" marker.
Since it does not exist, I want the line to end at
the "c" marker and then start back up on the "e" marker.
In this particular example, "e" should only be a dot.
Any thoughts on how to break the line are much
appreciated.
-Jason
------
// <HTML>
// <BODY>
// <OBJECT CLASSID="clsid:0002E500-0000-0000-
C000-
// 000000000046" id=ChartSpace1>
// </OBJECT>
// <script language=vbscript>
// Option Explicit
// Sub Window_onLoad()
// Dim c, oChart, oSer1, oSer2, oSer3
// Set c = ChartSpace1.Constants
// Set oChart =
ChartSpace1.Charts.Add
// oChart.Type =
c.chChartTypeLineMarkers
// Set oSer1 =
//
oChart.SeriesCollection.Add 'A "placeholder"
series that
// contains the full set of possible
categories.
// oSer1.SetData c.chDimCategories,
c.chDataLiteral,
// Array("a", "b", "c", "d", "e")
// Set oSer2 =
oChart.SeriesCollection.Add '"d" is
// omitted for this series.
// oSer2.SetData c.chDimSeriesNames,
// c.chDataLiteral, "Series #1"
// oSer2.SetData c.chDimCategories,
c.chDataLiteral,
// Array("a", "b", "c", "e")
// oSer2.SetData c.chDimValues,
c.chDataLiteral, Array
// (10, 20, 15, 25)
// Set oSer3 =
oChart.SeriesCollection.Add '"b" is
// omitted for this series.
// oSer3.SetData c.chDimSeriesNames,
// c.chDataLiteral, "Series #2"
// oSer3.SetData c.chDimCategories,
c.chDataLiteral,
// Array("a", "c", "d")
// oSer3.SetData c.chDimValues,
c.chDataLiteral, Array
// (5, 4, 9)
// oChart.HasLegend = True
// oChart.Legend.LegendEntries
(0).Visible = False 'Hide
// the legend entry for the "placeholder"
series.
// End Sub 'Window_onLoad()
// </script>
// </BODY>
</HTML>
If not, then please follow this link for an example:
http://support.microsoft.com/default.aspx?scid=kb;EN-
US;q286317
---------------
Hi all,
Can anyone please tell me how to interrupt the series on
the x-axis below? oSer2 does not contain the "d" marker.
Since it does not exist, I want the line to end at
the "c" marker and then start back up on the "e" marker.
In this particular example, "e" should only be a dot.
Any thoughts on how to break the line are much
appreciated.
-Jason
------
// <HTML>
// <BODY>
// <OBJECT CLASSID="clsid:0002E500-0000-0000-
C000-
// 000000000046" id=ChartSpace1>
// </OBJECT>
// <script language=vbscript>
// Option Explicit
// Sub Window_onLoad()
// Dim c, oChart, oSer1, oSer2, oSer3
// Set c = ChartSpace1.Constants
// Set oChart =
ChartSpace1.Charts.Add
// oChart.Type =
c.chChartTypeLineMarkers
// Set oSer1 =
//
oChart.SeriesCollection.Add 'A "placeholder"
series that
// contains the full set of possible
categories.
// oSer1.SetData c.chDimCategories,
c.chDataLiteral,
// Array("a", "b", "c", "d", "e")
// Set oSer2 =
oChart.SeriesCollection.Add '"d" is
// omitted for this series.
// oSer2.SetData c.chDimSeriesNames,
// c.chDataLiteral, "Series #1"
// oSer2.SetData c.chDimCategories,
c.chDataLiteral,
// Array("a", "b", "c", "e")
// oSer2.SetData c.chDimValues,
c.chDataLiteral, Array
// (10, 20, 15, 25)
// Set oSer3 =
oChart.SeriesCollection.Add '"b" is
// omitted for this series.
// oSer3.SetData c.chDimSeriesNames,
// c.chDataLiteral, "Series #2"
// oSer3.SetData c.chDimCategories,
c.chDataLiteral,
// Array("a", "c", "d")
// oSer3.SetData c.chDimValues,
c.chDataLiteral, Array
// (5, 4, 9)
// oChart.HasLegend = True
// oChart.Legend.LegendEntries
(0).Visible = False 'Hide
// the legend entry for the "placeholder"
series.
// End Sub 'Window_onLoad()
// </script>
// </BODY>
</HTML>