J
jason
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
The example below is from the following link:
http://support.microsoft.com/default.aspx?scid=kb;EN-
US;q286317
-------
<!--
<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>
-->
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
The example below is from the following link:
http://support.microsoft.com/default.aspx?scid=kb;EN-
US;q286317
-------
<!--
<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>
-->