AutoLegend オブジェクト

AutoLegend オブジェクトの実際の中身は、Solid オブジェクトと Text オブジェクトで構成される一種の Group オブジェクトです。AutoLegend オブジェクトを取得するには、Graph オブジェクトの AutoLegend プロパティを使います。

Graph オブジェクト

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

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

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

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

AutoLegend オブジェクトの操作は、Group オブジェクトを操作するのと同じです。AutoLegend オブジェクトのメンバーを取得するには、ChildObjects プロパティを使います。.ChildObjects(0) を指定すると、AutoLegend オブジェクトの境界線/背景として常に矩形の Solid オブジェクトが返ります。0 以上のインデックスを指定すると、凡例のキーとして使用される個々の Text オブジェクトが返ります。

Text オブジェクトの GetAttribute and SetAttribute メソッドを使用すれば、凡例にある各種 Text 属性を操作できます。FlagOff と FlagOn 関数を使用すれば、凡例や凡例のエントリーを表示・非表示にすることができます。

Examples

凡例の最初の Text オブジェクトの名称を "Series 1" に変更します。

Dim SPLegend
Set SPLegend = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).AutoLegend
SPLegend.ChildObjects(1).Name = "Series 1"

凡例の境界線を青の楕円に設定します。

Dim SPLegend
Set SPLegend = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).AutoLegend
SPLegend.ChildObjects(0).SetAttribute(SOA_EXTSHAPE,SOA_EXT_ELLIPSE)
SPLegend.ChildObjects(0).SetAttribute(SDA_EDGECOLOR,RGB_BLUE)

凡例の3つ目のエントリを非表示にします。 "FlagOn" 関数を使えばエントリを表示させることができます。

Dim SPLegend
Set SPLegend = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).AutoLegend
SPLegend.ChildObjects(3).SetAttribute(STA_OPTIONS, FlagOff(STA_FLAG_VISIBLE))

凡例そのものを非表示にします。

Dim SPLegend
Set SPLegend = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).AutoLegend
SPLegend.SetAttribute(STA_OPTIONS, FlagOff(STA_FLAG_VISIBLE))