ShapeRange.ThreeD プロパティ (Publisher)

ThreeDFormat オブジェクトを取得します。

構文

ThreeD

ShapeRange オブジェクトを表す変数。

注釈

ThreeD プロパティを使用して、指定した図形の 3D 外観の書式設定に使用されるプロパティを持つ ThreeDFormat オブジェクトを取得します。

次の使用例は、作業中の文書の図形 1 に適用される 3D 効果の深度、押し出し色、押し出し方向、照明方向を設定します。

Dim tdfTemp As ThreeDFormat 
 
Set tdfTemp = _ 
 ActiveDocument.Pages(1).Shapes(1).ThreeD 
 
With tdfTemp 
 .Visible = True 
 .Depth = 50 
 .ExtrusionColor.RGB = RGB(255, 100, 255) 
 .SetExtrusionDirection _ 
 PresetExtrusionDirection:=msoExtrusionTop 
 .PresetLightingDirection = msoLightingLeft 
End With 

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。