トップ

オブジェクト

プロパティ

メソッド

定数

Text オブジェクト

プロット内にある文字やラベルはいずれも Text オブジェクトに該当します。Text オブジェクトのプロパティやメソッドを使用してそれらに修正を加えることができます。Text オブジェクトには、ObjectType プロパティが用意されており、その値は 5 または GPT_TEXT となります。

Page GraphObjects コレクション Text オブジェクト

Graph オブジェクト Text オブジェクト

AutoLegend オブジェクト Text オブジェクト

Axis オブジェクト Text オブジェクト

Plot オブジェクト Text オブジェクト

Function オブジェクト Text オブジェクト

プロパティ：Application, ChildObjects , Color , Height , Left , Name , NameObject , ObjectType , OwnerGraphObject , Parent, StockScheme, Top , Width

メソッド：GetAttribute, SelectObject, SetAttribute, SetObjectCurrent

定数：Text Attributes

 

Text オブジェクトを使用する

グラフの各種オブジェクトで Text オブジェクトを取得するには、ほとんどの場合 NameObject プロパティを使用します。

Text オブジェクトは、AutoLegend オブジェクトと Axis オブジェクトの中にもあります。目盛りラベル (Tick label) の Text プロパティにアクセスするには、TickLabelAttributes プロパティを使います。軸タイトル (Axis titles) にアクセスするには、AxisTitles プロパティを使います。

Page や AutoLegend の中にある Text オブジェクトにアクセスするには、ChildObjects プロパティを使います。

テキストに使用されている文字列を変更するには、Name プロパティを使います。これ以外の多くの Text オブジェクトの属性や属性値を取得したり設定するには、GetAttribute メソッドと SetAttribute メソッドを使用します。

 

Examples

• 最初のグラフのタイトルを "My Graph" に変更します。

  ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).NameObject.Name = "My Graph"

 

Text オブジェクトの Legend オプションを使用する

• Text オブジェクトのほとんどには、テキスト属性はもちろん、凡例シンボル (legend symbol) の属性も用意されています。例えば：

  Dim SPGraph, SPPlotHandle, SPAxisTitle
  Set SPGraph = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0)
  SPPlotHandle = SPGraph.GetAttribute(SGA_CURRENTPLOT,SPPlotHandle)
  Set SPAxisTitle = SPGraph.Axes(1).AxisTitles(0)
  With SPAxisTitle
  .SetAttribute(STA_HPLOTLEGEND,SPPlotHandle)
  .SetAttribute(STA_LEGENDGRAPHNO,0)
  .SetAttribute(STA_LEGENDPLOTNO,0)
  .SetAttribute(STA_LEGENDTUPLENO,0)
  .SetAttribute(STA_LEGENDSYMBOLNO,0)
  End With
  

  
  最初のグラフの Y 軸タイトルに凡例シンボルを表示します。（訳注：3行目と6行目がエラーになる。）

 

RTF 選択範囲を編集する

• RTF コードでテキストの選択範囲を変更するのは、その性質上、非常に複雑な作業になります。以下の例は、グラフタイトルの全体をイタリックにする方法を示します。なお、先頭の3文字のみボールドになります。

  Dim Text, Size, TextString1, TextString2, TextString3, RTFString1, RTFString2,RTFString3, Origin
  Dim SPGraph, SPTitle
  Set SPGraph = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0)
  Set SPTitle = SPGraph.NameObject
  Size = 3
  SPTitle.SetAttribute(STA_SELECT,Size)
  SPTitle.SetAttribute(STA_ITALIC,True)
  SPTitle.GetAttribute(STA_SELECTEDTEXT, TextString1)
  SPTitle.GetAttribute(STA_RTF,RTFString1)
  MsgBox TextString1
  Begin Dialog UserDialog 400,77,"RTF Text for Graph Title" ' %GRID:10,7,1,1
  OKButton 300,7,90,21
  TextBox 10,7,280,63,.TextBox1,1
  End Dialog
  Dim dlg As UserDialog
  dlg.TextBox1 = RTFString1
  Dialog dlg
  Size = SPTitle.GetAttribute(STA_LENGTH,Size)
  SPTitle.SetAttribute(STA_SELECT,Size)
  SPTitle.GetAttribute(STA_SELECTEDTEXT, TextString2)
  MsgBox TextString2
  SPTitle.SetAttribute(STA_BOLD,False)
  SPTitle.GetAttribute(STA_RTF,RTFString2)
  Begin Dialog UserDialog 400,77,"RTF Text for Graph Title" ' %GRID:10,7,1,1
  OKButton 300,7,90,21
  TextBox 10,7,280,63,.TextBox1,1
  End Dialog
  Dim seconddlg As UserDialog
  seconddlg.TextBox1 = RTFString2
  Dialog seconddlg
  Size = 3
  SPTitle.SetAttribute(STA_SELECT,Size)
  SPTitle.SetAttribute(STA_BOLD,True)
  SPTitle.GetAttribute(STA_RTF,RTFString3)
  SPTitle.GetAttribute(STA_SELECTEDTEXT, TextString3)
  MsgBox TextString3
  Begin Dialog UserDialog 400,77,"RTF Text for Graph Title" ' %GRID:10,7,1,1
  OKButton 300,7,90,21
  TextBox 10,7,280,63,.TextBox1,1
  End Dialog
  Dim thirddlg As UserDialog
  thirddlg.TextBox1 = RTFString3
  Dialog thirddlg