351
Is it possible to reorder just the series by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.AllowMoveValue = 257 ' &H100 Or AllowKeysEnum.exLeftClick
		.CategoryAxis.MajorGridLines.Color = "lightgray"
		With .Series
			With .Add("Electronics(350),Clothing(200),Books(150)",2001)
				.Stack = "A"
				.ShowValue = 1
			End With
			With .Add("Electronics(500),Clothing(150),Books(180)",2002)
				.Stack = "A"
				.ShowValue = 1
			End With
		End With
		.ValuePoint = "16,white,black"
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
350
Is it possible to reorder just the values by drag and drop (method 2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.AllowMoveValue = 513 ' &H200 Or AllowKeysEnum.exLeftClick
		.CategoryAxis.MajorGridLines.Color = "lightgray"
		With .Series
			With .Add("Electronics(350),Clothing(200),Books(150)",2001)
				.Stack = "A"
				.ShowValue = 1
			End With
			With .Add("Electronics(500),Clothing(150),Books(180)",2002)
				.Stack = "A"
				.ShowValue = 1
			End With
		End With
		.ValuePoint = "16,white,black"
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
349
Is it possible to reorder just the values by drag and drop (method 1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.AllowMoveValue = 1
		.CategoryAxis.MajorGridLines.Color = "lightgray"
		With .Series
			With .Add("Electronics(350),Clothing(200),Books(150)",2001)
				.Stack = "A"
			End With
			With .Add("Electronics(500),Clothing(150),Books(180)",2002)
				.Stack = "A"
				.ShowValue = 1
			End With
		End With
		.ValuePoint = "16,white,black"
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
348
Is it possible to reorder the series and values by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.AllowMoveValue = 1
		.CategoryAxis.MajorGridLines.Color = "lightgray"
		With .Series
			With .Add("Electronics(350),Clothing(200),Books(150)",2001)
				.Stack = "A"
				.ShowValue = 1
			End With
			With .Add("Electronics(500),Clothing(150),Books(180)",2002)
				.Stack = "A"
				.ShowValue = 1
			End With
		End With
		.ValuePoint = "16,white,black"
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
347
Is it possible to reorder the values by drag and drop
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.ValueAxis.Format = "value/100000"
		With .Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(2000000" & _
		"0), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
			.ShowValue = 1
		End With
		.ValuePoint = "12,white,black"
		.AllowMoveValue = 1
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
346
Reorder multiple values
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		.Series.Add "1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP"
		.Order = ",4,,3"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
345
Move a value to an earlier or later position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		.Series.Add "1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP"
		.Order = ",,3"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
344
Place one value at a specified position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		.Series.Add "1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP"
		.Order = "3"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
343
Configure the Y-axis so that it always displays exactly 5 labels (fixed-ticks), regardless of the data range

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		With .ValueAxis
			.AsPercent = True
			.MajorUnit = 0.2
			.Format = "value*5 array (``,`A`,`B`,`C`,`D`,`E`)"
		End With
		.Series.Add "1960(1.4),1980(11.2),2000(33.5),2010(65.8),2020(84.7)","GDP"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
342
Define the style(solid, dash, dot, dash-dot, dash-dot-dot) of the line to show the serie

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		With .Series.Add("1920(1.8),1945(2.3),1970(13.7),1995(5.7),2020(7.8)","Population")
			.Type = "Line"
			.Misc(8) = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
341
I'm using the logarithmic scale, but it's not displaying any values. How can I adjust the settings to show very small values

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		sFormat = "(value and value < 1) ? (value format `%.1E` replace `-00` with ``) : (value format `0`)"
		.AutoFit = True
		.Misc(32) = 0.000000001
		.MultiColorSerie = False
		.CategoryAxis.Format = "`<bgcolor white>` + value"
		With .ValueAxis
			.Type = 1
			.Format = sFormat
			.CursorFormat = sFormat
		End With
		With .Series.Add("12:54:28(3.14E-09),12:54:44(2.59E-09),13:03:53(4.25E-09),13:03:58(4.20E-09),13:05:00(5.10E-09),13:06:12(6.25E-09)")
			.Type = "line"
			.CursorFormat = sFormat
		End With
		.Cursor.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
340
My data contains no values below 1. How can I prevent the logarithmic value axis from displaying the range between 0 and 1

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		.ValuePoint = ",,,,,,,black,transparent"
		.CategoryAxis.Format = "`<bgcolor white>` + value"
		With .ValueAxis
			.Type = 1
			.Min = 1
			.Format = "value format `0`"
		End With
		With .Series.Add("Small village(8),Hamlet(14),Small town(22),Medium town(39),Growing town(2118),Small city(6523),Large city(31245),Capital city(4" & _
		"31245),Mega city(65431245)")
			.ShowValue = 4
			.ValueFormat = "`<fgcolor white> ` + (value format `0`) + ` `"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
339
Display logarithmic scale

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		.CategoryAxis.Format = "`<bgcolor white>` + value"
		With .ValueAxis
			.Type = 1
			.Format = "value format `0`"
		End With
		.Series.Add("Sterile Water(0.0001),Treated Tap Water(0.001),Bottled Water(0.01),Clean Pond(0.1),River(1),Swamp(100),Sewage(10000),Wastewater" & _
		" Treatment Inlet(1000000)").CursorFormat = "value < 1 ? value : (value format `0`) "
		.Cursor.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
338
Can the values be shown in scientific notation (e.g., 1E+4, 5E-10) rather than full decimal form

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.ValueAxis.Format = "value/100000"
		With .Series.Add("Tokyo(37833000), Delhi(30290000), Shanghai(27058000), São Paulo(22043000), Mumbai(20668000), Beijing(20384000), Karachi(2000000" & _
		"0), Dhaka(17072000), Istanbul(15029000), Los Angeles(13131000)")
			.ShowValue = -1 ' &Hffffff78 Or ShowValueEnum.exHideIfEmpty Or ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
			.ValueFormat = "value format `%.1E` replace `+00` with `+`"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
337
Highlight the value on both the chart and the axis

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.Series.Add("open").Data = "AAPL (open)"
		.ValueAxis.Mark = "red[axis,chart](74.25-75.75),black[axis,chart](76.5)"
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
336
Highlight the categories on both the chart and the axis

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.ValueSize = 6
		.Series.Add("open").Data = "AAPL (open)"
		With .CategoryAxes.Add("0")
			.Format = "value left 7"
			.Split = True
			.Mark = "#F8F8F8[axis,chart](label = `2014-02`)"
		End With
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
335
Highlight values on axis only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.Series.Add("open").Data = "AAPL (open)"
		.ValueAxis.Mark = "red[axis](74.25-75.75),black[axis](76.5)"
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
334
Highlight the categories on axis only

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.ValueSize = 6
		.Series.Add("open").Data = "AAPL (open)"
		With .CategoryAxes.Add("0")
			.Format = "value left 7"
			.Split = True
			.Mark = "#F8F8F8[axis](label = `2014-02`)"
		End With
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
333
Highlight values

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.Series.Add("open").Data = "AAPL (open)"
		.ValueAxis.Mark = "red(74.25-75.75),black[chart,axis](76.5)"
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
332
Highlight the categories using an expression

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.Series.Add("open").Data = "AAPL (open)"
		With .CategoryAxes.Add("0")
			.Format = "`Wno<off-4>` + week(date(value left 10))"
			.Split = True
			.Mark = "#F8F8F8(index in (1,3))"
		End With
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
331
Highlight the categories using an expression

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.ValueSize = 6
		.Series.Add("open").Data = "AAPL (open)"
		With .CategoryAxes.Add("0")
			.Format = "value left 7"
			.Split = True
			.Mark = "#F8F8F8(label = `2014-02`)"
		End With
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
330
Highlight the categories based on the index

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		.Series.Add("open").Data = "AAPL (open)"
		With .CategoryAxes.Add("0")
			.Format = "`Wno<off-4>` + week(date(value left 10))"
			.Split = True
			.Mark = "#F8F8F8(2)"
		End With
		.Refresh 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
329
IdemmM {string}, specifies the name of another value-axis to synchronize min, max, and major-unit values from when scrolling. If omitted or the value-axis with the given name is not found, these values are synchronized with the default value-axis

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		With .Series.Add("open")
			.Data = "AAPL (open)"
			.Type = "line"
		End With
		With .ValueAxes
			.Add "1st"
			With .Add("2nd")
				.Align = 2
				.IdemmM = "1st"
			End With
			With .Add("3rd")
				.Format = "120 + value * 2.5"
				.MajorGridLines.Color = "transparent"
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
328
Adds multiple value-axes

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		With .Series.Add("open")
			.Data = "AAPL (close)"
			.Type = "line"
			.Style = 1
		End With
		With .ValueAxes
			.Add "1st"
			.Add("2nd").Align = 2
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
327
Split the chart in weeks

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 18
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		With .Series.Add("open")
			.Data = "AAPL (open)"
			.Type = "line"
			.Style = 1
		End With
		With .CategoryAxes.Add("0")
			.Format = "value mid 9 left 2"
			With .ChartGridLines
				.Format = "`<fgcolor gray>Wno <off 4>` + week(date(value left 10))"
				.Color = "gray"
				.Align = 0
			End With
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
326
Resets the series, category axes and value axes without affecting the control's data
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function Graph1_Click()
	With Graph1
		.Reset 
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 18
		.Import "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
		.SerieType = "line"
		With .Series.Add()
			.Name = "aapl"
			.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
		End With
		With .CategoryAxes.Add("0")
			.Format = "value mid 9 left 2"
		End With
		With .CategoryAxes.Add("0")
			.Format = "value left 7"
			.Split = True
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
325
Define the representation method for the data in all series where the type property is not specified, determining how these series are visually displayed

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.AutoFit = True
		.SerieType = "rangeArea"
		With .Series
			.Add "Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1" & _
		".6)","Worldwide"
			.Add "Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1" & _
		".5)","Native"
		End With
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
324
How can I prevent the labels from rotating around the chart when using the radarColumn type

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.AutoFit = True
		.SerieType = "radarCol"
		.Misc(16) = False
		With .Series
			.Add "Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1" & _
		".6)","Worldwide"
			.Add "Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1" & _
		".5)","Native"
		End With
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
323
Disable stacking for all series at once

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.AutoFit = True
		.AllowStack = False
		With .Series
			.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1" & _
		".6)","Worldwide").Stack = "group"
			.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1" & _
		".5)","Native").Stack = "group"
		End With
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
322
How can I stack more than three data series across multiple columns

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.AutoFit = True
		With .Series
			.Add("Chinese(9.165),Spanish(4.355),English(3.185),Hindi(2.73),Arabic(2.665),Bengali(2.145),Portuguese(1.885),Russian(1.82),Japanese(" & _
		"1.105),Lahnda(1.04)","Male").Stack = "G1"
			.Add("Chinese(4.935),Spanish(2.345),English(1.715),Hindi(1.47),Arabic(1.435),Bengali(1.155),Portuguese(1.015),Russian(0.98),Japanese(" & _
		"0.595),Lahnda(0.56)","Female").Stack = "G1"
			.Add("Chinese(3.5),Spanish(2.0),English(1.8),Hindi(0.5),Arabic(0.4),Bengali(0.3),Portuguese(0.7),Russian(1.2),Japanese(0.4),Lahnda(0." & _
		"2)","Europe").Stack = "G2"
			.Add("Chinese(8.0),Spanish(0.5),English(1.0),Hindi(3.0),Arabic(2.5),Bengali(2.0),Portuguese(0.2),Russian(1.0),Japanese(1.0),Lahnda(0." & _
		"5)","Asia").Stack = "G2"
			.Add("Chinese(1.0),Spanish(3.5),English(1.5),Hindi(0.2),Arabic(0.5),Bengali(0.1),Portuguese(1.5),Russian(0.1),Japanese(0.1),Lahnda(0." & _
		"1)","America").Stack = "G2"
			.Add("Chinese(0.1),Spanish(0.1),English(0.3),Hindi(0.1),Arabic(0.1),Bengali(0.1),Portuguese(0.1),Russian(0.1),Japanese(0.1),Lahnda(0." & _
		"1)","Australia").Stack = "G2"
			.Add("Chinese(1.5),Spanish(0.6),English(0.3),Hindi(0.4),Arabic(0.6),Bengali(0.8),Portuguese(0.4),Russian(0.4),Japanese(0.1),Lahnda(0." & _
		"5)","Others").Stack = "G2"
		End With
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
321
How can I stack data more than three series

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.AutoFit = True
		With .Series
			.Add("Chinese(14.1),Spanish(6.7),English(4.9),Hindi(4.2),Arabic(4.1),Bengali(3.3),Portuguese(2.9),Russian(2.8),Japanese(1.7),Lahnda(1" & _
		".6)","Worldwide").Stack = "group"
			.Add("Chinese(13.2),Spanish(6.6),English(4.8),Hindi(4.1),Arabic(4.0),Bengali(3.2),Portuguese(2.8),Russian(2.7),Japanese(1.6),Lahnda(1" & _
		".5)","Native").Stack = "group"
			.Add("Chinese(1.5),Spanish(10.2),English(2.1),Hindi(0.5),Arabic(0.8),Bengali(0.3),Portuguese(3.5),Russian(0.4),Japanese(0.2),Lahnda(0" & _
		".1)","Regional").Stack = "group"
		End With
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
320
I use the legend, but clicking a series mostly rearranges them instead of hiding it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.Misc(17) = False
		.Series.Add "50,150,150,300","A1"
		.Series.Add "180,40,60,160","A2"
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
319
Adjusts the column/bar size so that the entire chart fits within the client rectangle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
		.Series.Add "4600,1300,747,579,0,422,42"
		.ValueAutoFit 
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
318
The categories overlap, making the text unreadable

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 32
		With .CategoryAxis
			.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
			.Format = "`<bgcolor white>` + value"
		End With
		.Series.Add "4600,1300,747,579,0,422,42"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
317
Represents a single serie with single color (prevent multiple colors for single-serie)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.AutoFit = True
		.MultiColorSerie = False
		.CategoryAxis.MajorGridLines.Color = "lightgray"
		.Series.Add "Electronics(350),Clothing(200),Books(150)",2001
		.Legend.Visible = True
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
316
How can I replace or add an icon at runtime

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" & _
		"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="
		.ReplaceIcon "C:\images\favicon.ico",0
		.AutoFit = True
		.Series.Add "<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South Americ" & _
		"a(433),<img>6</img>Australia/Oceania(42)"
		.SeriesColors = "blue"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
315
No grid lines are shown even I set the Color and Format properties of ChartGridLines/OverviewGridLines
<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.Series.Add "100,200,200,400","S1"
		.Series.Add "210,20,20,120","S2"
		With .CategoryAxes.Add("A,B,C,D","1st").ChartGridLines
			.Color = "red"
			.Format = "value"
		End With
		.CategoryAxes.Add "E,F","2nd"
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>
314
Occasionally, the margins of the axes may not align perfectly with the view 

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 18
		.Pad = 24
		.ValueAxis.Format = "value format `0`"
		With .Series.Add("Hulunbuir{China}(263068),Abu Dhabi{United Arab Emirates}(97200),Jiuquan{China}(167996),Altamira{Brazil}(159891),Brasília{Brazil" & _
		"}(5784),Mumbai{India}(603.4),Delhi{India}(1484),Chongqing{China}(82400),Hulunbuir{China}(263068),Sao Paulo{Brazil}(1522),Linfen{" & _
		"China}(20527),Santiago{Chile}(641),Mexico City{Mexico}(1485),Belo Horizonte{Brazil}(313),Hangzhou{China}(16817),Nairobi{Kenya}(6" & _
		"96),Berlin{Germany}(891.68),Montreal{Canada}(431.5),Cordoba{Argentina}(576),Manaus{Brazil}(11401),Astana{Kazakhstan}(810),Goiâni" & _
		"a{Brazil}(741),Cali{Colombia}(564),Sao Paulo{Brazil}(1522),Goiania{Brazil}(781)")
			.Type = "Col"
			.Vertical = True
		End With
		.Sort = "0:D"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
313
"candlestick" explained, an [open,high,low,close] chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 32
		.ValuePoint = "0,,,,lightgray,1"
		.ValueAxis.MajorGridLines.Step = 4
		With .Series.Add("One(79.38 79.57 78.86 79.01)")
			.Type = "candlestick"
			.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
			.ValueFormat = "(inner array (`<b>open`,`<fgcolor gray>high`,`<fgcolor gray>low`,`<b>close`)) + ` ` + value"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
312
"candlestick", a candlestick chart (also called Japanese candlestick chart or K-line) is a style of financial chart used to describe price movements of a security, derivative, or currency. While similar in appearance to a bar chart, each candleStick represents four important pieces of information for that day: open and close in the thick body, and high and low in the "candle wick". Being densely packed with information, it tends to represent trading patterns over short periods of time, often a few days or a few trading sessions. (data requires array of array of four-numbers, such as [[open, high, low and close]], supports vertical field, scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 18
		With .CategoryAxis
			.Categories = "Date"
			.Format = "value mid 9 left 2"
		End With
		.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
		.Series.Add("Open,High,Low,Close","msft").Type = "candlestick"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
311
"ohlc" explained, an [open,high,low,close] chart

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 32
		.ValuePoint = "0,,,,lightgray,1"
		.ValueAxis.MajorGridLines.Step = 4
		With .Series.Add("One(79.38 79.57 78.86 79.01)")
			.Type = "ohlc"
			.ShowValue = 7 ' ShowValueEnum.exValue Or ShowValueEnum.exLine Or ShowValueEnum.exPoint
			.ValueFormat = "(inner array (`<b>open`,`<fgcolor gray>high`,`<fgcolor gray>low`,`<b>close`)) + ` ` + value"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
310
"ohlc", an open-high-low-close chart (also OHLC) is a type of chart typically used to illustrate movements in the price of a financial instrument over time. Each vertical line on the chart shows the price range (the highest and lowest prices) over one unit of time, e.g., one day or one hour. Tick marks project from each side of the line indicating the opening price (e.g., for a daily bar chart this would be the starting price for that day) on the left, and the closing price for that time period on the right. The bars may be shown in different hues depending on whether prices rose or fell in that period. (data requires array of array of four-numbers, such as [[open, high, low and close]], supports vertical field, scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.ValueSize = 18
		With .CategoryAxis
			.Categories = "Date"
			.Format = "value mid 9 left 2"
		End With
		.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
		.Series.Add("Open,High,Low,Close","msft").Type = "ohlc"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
309
"bubble", a bubble chart or bubble plot is a type of chart that displays three dimensions of data (a bubble chart is an extension of the scatter plot used to look at relationships between three numeric variables.). Each entity with its triplet (v1, v2, v3) of associated data is plotted as a disk that expresses two of the vi values through the disk's xy location and the third through its size. Bubble charts can facilitate the understanding of social, economical, medical, and other scientific relationships. (data requires array of array of three-numbers, such as [[x, y, size]], supports vertical field, non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		With .Series.Add("1 25 1,2 49 2,3 70 3,4 86 4,5 96 5,6 100 4,7 96 3,8 86 2,9 70 1,10 49 1,11 25 1","Bell<b>1")
			.Type = "bubble"
			.Misc(1) = 32
		End With
		With .Series.Add("1 -25 1,2 -49 2,3 -70 3,4 -86 4,5 -96 5,6 -100 6,7 -96 5,8 -86 4,9 -70 3,10 -49 2,11 -25 1","Bell<b>2")
			.Type = "bubble"
			.Misc(1) = 32
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
308
"scatter", a scatter plot (also called a scatterplot, scatter graph, scatter chart, scattergram, or scatter diagram) is a type of plot or mathematical diagram using Cartesian coordinates to display values for typically two variables for a set of data. (data requires array of array of two-numbers, such as [[x, y]], supports vertical field, non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatter"
		.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatter"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
307
"scatterline", curved

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		With .Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell")
			.Type = "scatterline"
			.Style = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
306
"scatterline", a scatter line chart is similar with "scatter" type, excepts that lines are shown between scatter plots. (data requires array of array of two-numbers, such as [[x, y]], supports vertical field, non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatterline"
		.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatterline"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
305
"scatterarea", curved

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		With .Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell")
			.Type = "scatterarea"
			.Style = 1
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
304
"scatterarea", a scatter area chart is similar with "scatterLine" type, excepts that scatter plots zone is filled. (data requires array of array of two-numbers, such as [[x, y]], supports vertical field, non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Pad = 18
		.Series.Add("1 25,2 49,3 70,4 86,5 96,6 100,7 96,8 86,9 70,10 49,11 25","Bell<b>1").Type = "scatterarea"
		.Series.Add("1 -25,2 -49,3 -70,4 -86,5 -96,6 -100,7 -96,8 -86,9 -70,10 -49,11 -25","Bell<b>2").Type = "scatterarea"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
303
"polarscatter", shows the serie as non-connected data points (data requires array of array of two-numbers, such as [[angle, value]], non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Misc(16) = False
		With .CategoryAxis
			.Categories = "45,90,135,180,225,270,315,360"
			.MajorGridLines.Color = "lightgray"
		End With
		With .Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38," & _
		"300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
			.Type = "polarscatter"
			.Color = "red"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
302
"polarline", represents data points connected with straight line segments (data requires array of array of two-numbers, such as [[angle, value]], non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Misc(16) = False
		With .CategoryAxis
			.Categories = "45,90,135,180,225,270,315,360"
			.MajorGridLines.Color = "lightgray"
		End With
		With .Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38," & _
		"300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
			.Type = "polarLine"
			.Color = "red"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>
301
"polararea", represents data points connected with straight line segments that enclose a filled area together with the chart pole (data requires array of array of two-numbers, such as [[angle, value]], non-scrollable)

<BODY onload="Init()">
<OBJECT CLASSID="clsid:FE177A66-2B4E-48E1-ADAD-E5C17BE47660" id="Graph1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Graph1
		.BeginUpdate 
		.Misc(16) = False
		With .CategoryAxis
			.Categories = "45,90,135,180,225,270,315,360"
			.MajorGridLines.Color = "lightgray"
		End With
		With .Series.Add("0 0,15 2,30 4,45 6,60 8,75 10,90 12,105 14,120 16,135 18,150 20,165 22,180 24,195 26,210 28,225 30,240 32,255 34,270 36,285 38," & _
		"300 40,315 42,330 44,345 46,360 48,15 50,30 52,45 54,60 56,75 58,90 60","Spiral")
			.Type = "polarArea"
			.Color = "lime"
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>