ヒューリンクステクニカルサポート

SigmaPlot 製品ページ

更新日： 16/01/29

GraphWizard オブジェクト

SigmaPlot の空白グラフを作成し、そのグラフタイプとデータ列を選択するのに使用する Graph Wizard オブジェクトを作成します。Graph Wizard にはプログラマーの割り当てたワークシート列のデータが配置されます。

このオブジェクトは、SigmaPlot のグラフ作成機能を外部アプリケーションに組み込む場合に使用します。

Example

• 以下の例は、 Excel で利用可能な VBA コードです。単純な Excel シートから SigmaPlot のグラフを作成します。

  Sub SigmaPlot_Graph_Wizard()
  Dim objExcelRange As Object
  Dim objExcelSheet As Object
  Set objExcelSheet = ActiveSheet
  Set objExcelRange = objExcelSheet.UsedRange
  
  Dim objSPApp As Object
  Set objSPApp = CreateObject("SigmaPlot.Application.1") 'Instantiate SigmaPlot
  objSPApp.Visible = False
  objSPPath = objSPApp.Path
  
  Dim objSPNotebook, objSPWorksheet, objSPPage As Object
  Set objSPNotebook = objSPApp.Notebooks.Add
  Set objSPWorksheet = objSPApp.ActiveDocument.CurrentDataItem
  
  Dim objSPWizard As Object
  Set objSPWizard = objSPWorksheet.GraphWizard
  
  Dim Labels As Variant
  Dim SPLabels() As Variant
  
  Dim NumColumns As Integer
  NumColumns = objExcelRange.Columns.Count
  
  Dim i As Integer
  ReDim SPLabels(NumColumns)
  For i = 0 To NumColumns - 1
  SPLabels(i) = objExcelRange.Columns(i + 1).Address(RowAbsolute:=False)
  Next i
  
  objSPWizard.SetTitles (SPLabels)
  objSPWizard.LaunchWizard
  Dim N, M As Long
  N = objSPWizard.LowerPickIndex
  M = objSPWizard.UpperPickIndex
  
  objExcelRange.Range(Cells(1, (N + 1)), Cells(objExcelRange.Rows.Count, (M + 1))).Copy
  objSPWorksheet.Goto 0, N
  objSPWorksheet.Paste
  
  Set objSPPage = objSPApp.ActiveDocument.CurrentPageItem
  objSPPage.SelectAll
  objSPPage.Copy
  objExcelSheet.Paste
  
  objSPApp.Visible = True
  objSPNotebook.Close (False)
  
  Dim EmbeddedGraph As Object
  Set EmbeddedGraph = objExcelSheet.OLEObjects(objExcelSheet.OLEObjects.Count)
  EmbeddedGraph.Activate
  
  EndMacro:
  End Sub