Solid オブジェクト

Solid オブジェクトは、描画されたシェイプ、楕円、矩形、グラフのバーやボックス、円グラフのスライス、メッシュなどグラフやページの様々なオブジェクトをあらわします。「塗りつぶし」できるオブジェクトはいずれもこの中に含まれます。Solid オブジェクトには、ObjectType プロパティがあり、その値は 8 または GPT_SOLID になります。

Page GraphObjects コレクション

Solid オブジェクト

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

Plot オブジェクト
- Solid オブジェクト

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

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

定数：Solid Attributes

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

Solid オブジェクトは、様々なグループやコレクションからそれぞれ異なるプロパティを使用して取得できます。

Plot オブジェクトの Solid オブジェクト (複数可) にアクセスするには、Fill プロパティを使います。
Page や AutoLegend にある Solid オブジェクト (複数可) にアクセスするには、ChildObjects プロパティを使います。

Solid オブジェクトの属性や属性値を取得したり設定するには、多くの場合、GetAttribute メソッドと SetAttribute メソッドを使います。これらの属性を指定するには、Solid 属性の定数を使用します。

Examples

最初のプロットのバーの色をダークレッドに設定します。

Dim SPPlot
Set SPPlot = ActiveDocument.CurrentPageItem.GraphPages(0).Graphs(0).Plots(0)
SPPlot.Fill.Color = RGB_DKRED

ページ内に Solid オブジェクトを作成し、その形状を楕円に、色を赤に、エッジの色を青に設定ます。

Dim SPPage, SPEllipse
Set SPPage = ActiveDocument.CurrentPageItem.GraphPages(0)
Dim Points(3) As Variant
Points(0) = -3000
Points(1) = 3000
Points(2) = 1000
Points(3) = 1000
Set SPEllipse = SPPage.ChildObjects.Add(GPT_SOLID,Points)
SPEllipse.SetAttribute(SOA_EXTSHAPE,SOA_EXT_ELLIPSE)
SPEllipse.SetAttribute(SDA_COLOR,RGB_RED)
SPEllipse.SetAttribute(SDA_EDGECOLOR,RGB_BLUE)