次の方法で共有

Adjustments.Item プロパティ (Word)

  • [アーティクル]

引数 Index で指定された調整値を設定または返します。 値の取得と設定が可能な単精度浮動小数点型 (Single) の値です。

構文

式。Item (インデックス)

式 'Adjustments' オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
Index 必須 長整数型 (Long) 調整値のインデックス番号です。

注釈

線型の調整では、通常、調整値 0.0 は、図形の左端または上端に対応し、1.0 は図形の右端または下端に対応します。 ただし、調整は、一部の図形の図形の境界を越えて渡すことができます。 放射状の調整で、調整値 1.0 は図形の幅に対応しています。 角度の調整は、調整値は度で指定されました。 Item プロパティは、調整値を持つ図形にのみ適用されます。 オートシェイプおよびワードアートは、最大 8 つの調整値を持ちます。

例

次の使用例は、作業中の文書に 2 つの十字型を追加し、各十字型に調整値の 1 つ (このオートシェイプでは調整値は 1 つのみ) を設定します。

Dim docActive As Document 
 
Set docActive = ActiveDocument 
With docActive.Shapes 
 .AddShape(msoShapeCross, _ 
 10, 10, 100, 100).Adjustments.Item(1) = 0.4 
 .AddShape(msoShapeCross, _ 
 150, 10, 100, 100).Adjustments.Item(1) = 0.2 
End With

この例では、 Item プロパティを明示的に使用していない場合でも、前の例と同じ結果があります。

Dim docActive As Document 
 
Set docActive = ActiveDocument 
With docActive.Shapes 
 .AddShape(msoShapeCross, _ 
 10, 10, 100, 100).Adjustments(1) = 0.4 
 .AddShape(msoShapeCross, _ 
 150, 10, 100, 100).Adjustments(1) = 0.2 
End With

関連項目

Adjustments オブジェクト

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

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