StockScheme メソッド

オブジェクト：Function , Graph , Text , Plot , Line , Symbol , Page, Axis , Tuple , GraphObject , Solid , Group

• タイプ: Property Get
  Result: Long
• 構文: Graph object.StockScheme(stockscheme long)

指定したスキームの属性値を取得します。取得した値はグラフオブジェクトに割り当てる変数に代入できます。

	STOCKSCHEME_COLOR_BW	&H00010001
	STOCKSCHEME_COLOR_GRAYS	&H00020001
	STOCKSCHEME_COLOR_EARTH	&H00030001
	STOCKSCHEME_COLOR_FOREST	&H00040001
	STOCKSCHEME_COLOR_OCEAN	&H00050001
	STOCKSCHEME_COLOR_RAINBOW	&H00060001
	STOCKSCHEME_COLOR_OLDINCREMENT	&H00070001
	STOCKSCHEME_SYMBOL_DOUBLE	&H00010002
	STOCKSCHEME_SYMBOL_MONOCHROME	&H00020002
	STOCKSCHEME_SYMBOL_DOTTEDDOUBLE	&H00030002
	STOCKSCHEME_SYMBOL_OLDINCREMENT	&H00040002
	STOCKSCHEME_LINE_MONOCHROME	&H00010003
	STOCKSCHEME_LINE_OLDINCREMENT	&H00020003
	STOCKSCHEME_PATTERN_MONOCHROME	&H00010004
	STOCKSCHEME_PATTERN_OLDINCREMENT	&H00020004

Example

• 生成した簡単なデータから棒グラフを作成し、Gray ストックスキームを適用します。

  Dim ANotebook As Object
  Set ANotebook = Notebooks.Add
  Dim DataItem As Object
  Set DataItem = ANotebook.NotebookItems("Data 1")
  Dim ADataTable As Object
  Set ADataTable = DataItem.DataTable
  
  ' Create some example data. 
  Dim i
  For i = 1 To 5
  ADataTable.Cell(0,i-1) = i
  ADataTable.Cell(1,i-1) = i+1
  ADataTable.Cell(2,i-1) = i+2
  ADataTable.Cell(3,i-1) = i+3
  ADataTable.Cell(4,i-1) = i+4
  Next i
  Dim Sign
  Sign = 1
  For i = 1 To 5
  ADataTable.Cell(5,i - 1) = 100 + i*Sign
  Sign = -Sign
  Next i
  
  Dim GraphicPage
  Set GraphicPage = ANotebook.NotebookItems.Add(CT_GRAPHICPAGE)
  'Create a graph manually. (This isn't recommended. Better to use CreateWizardGraph) 
  Dim PageObject As Object
  Set PageObject = GraphicPage.GraphPages(0)
  Dim AGraphObject As Object
  Set AGraphObject = PageObject.ChildObjects.Add(GPT_GRAPH, SGA_COORD_CART2, SLA_TYPE_BAR, SLA_SUBTYPE_VERTY)
  Dim PlotObject As Object
  Set PlotObject = AGraphObject.Plots(0)
  ' Plot objects only allow you to add objects of type GPT_TUPLE
  ' Add 4 tuples to make a grouped bar chart with groups of 4. 
  PlotObject.ChildObjects.Add(GPT_TUPLE, 0,1)
  PlotObject.ChildObjects.Add(GPT_TUPLE, 0,2)
  PlotObject.ChildObjects.Add(GPT_TUPLE, 0,3)
  PlotObject.ChildObjects.Add(GPT_TUPLE, 0,4)
  ' Get some repeat type schemes for the two tuples. 
  Dim FillScheme
  FillScheme = PlotObject.StockScheme(STOCKSCHEME_PATTERN_OLDINCREMENT)
  ' Tell the plot to use the "old increment" scheme" 
  PlotObject.Fill.SetAttribute(SDA_PATTERNREPEAT, FillScheme)
  ' Set the initial density and pattern 
  PlotObject.Fill.SetAttribute(SDA_PATTERN, (SDA_DENS_FINE*&H10000) + SDA_PAT_HOLLOW)
  ' Get some repeat type schemes for the two tuples. 
  Dim ColorScheme
  ColorScheme = PlotObject.StockScheme(STOCKSCHEME_COLOR_GRAYS)
  ' Tell the plot to use the "gray" scheme" 
  PlotObject.Fill.SetAttribute(SDA_COLORREPEAT, ColorScheme)
  ' Set the initial color in the pattern 
  PlotObject.Fill.SetAttribute(SDA_COLOR, RGB_GRAY)