SymbolStyle     Procedure (Sub)

Public Sub SymbolStyle(Optional Symbol As Integer = -3, Optional Size As Single = -1, Optional Color1 As Long = -1, Optional Color2 As Long = -1, Optional EdgeThickness As Integer = -1, Optional Bar3D As Boolean = False, Optional BarOffset As Single = 0, Optional BarShadow As Boolean = False, Optional Stacked As Boolean = False, Optional BarBase As Boolean = False, Optional BarBaseValue As Double = 0, Optional ShowErrorBar As Boolean = True, Optional TextFont$, Optional ErrorBarColor As Long)

Specify the color and style of the data symbol for the current data set.

ParameterTypeDescription

Symbol

Integer

Data symbol. 0=none, 1=bar, 2=dot, 3=circle, 4=Square, 5=Diamond, 6=Up triangle, 7=Down triangle, 8=Rectangle H, 9=Rectangle V, 10=+, 11=x, 33 to 126 = Ascii character. Use -1 for sequential numbers (1,2,3..) and -2 for sequential characters (A,B,C...A1,B1...)

Size

Single

Symbol size, in millimetres

Color1

Long

Symbol color

Color2

Long

Symbol edge color

EdgeThickness

Integer

Edge thickness

Bar3D

Boolean

True for 3D bars, False for 2D bars (if Symbol=1)

BarOffset

Single

Shift current set of bars left or right, in millimetres

BarShadow

Boolean

True to add a shadow to bars

Stacked

Boolean

True to stack current set of bars on top of previous data set, False to draw the from the axis

BarBase

Boolean

True to start bars from BarBaseValue, False to start from axis

BarBaseValue

Double

If BarBase=True, then start bars from this value on the graph

ShowErrorBar

Boolean

True to show error bars, if they have been defined with AddDataPoint

TextFont$

String

Text font when using text instead of symbols or bars, eg "Font=Arial|10|bold|italic"

ErrorBarColor

Long

Error bar color

See Also

AddDataPoint  

Example

Call ecGraph1.SymbolStyle(symbol, size, color1, color2, edgethickness, bar3d, baroffset, barshadow, stacked, barbase, barbasevalue, showerrorbar, textfont, errorbarcolor) 


     
Contents     Variables     Events     Properties     Functions     Subs

Copyright © 2007, Encore Consulting Pty Ltd