次の方法で共有

FillFormat.PresetTexture プロパティ (Publisher)

  • [アーティクル]

指定した塗りつぶしのプリセット テクスチャを表す MsoPresetTexture 定数を返します。 読み取り専用です。

構文

式。PresetTexture

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

戻り値

MsoPresetTexture

注釈

PresetTexture プロパティの値には、Microsoft Office のタイプ ライブラリで宣言されている 可能 定数のいずれかを指定できます。

PresetTextured メソッドを使用すると、塗りつぶしの既定のテクスチャを指定します。

例

次の使用例は、作業中の文書の先頭ページに四角形を追加し、そのページの最初の図形と同じ既定のテクスチャを設定します。 次の使用例を正しく実行するには、最初の図形に既定のテクスチャが設定されている必要があります。

Sub SetTexture() 
 Dim texture As MsoPresetTexture 
 With ActiveDocument.Pages(1).Shapes 
 texture = .Item(1).Fill.PresetTexture 
 With .AddShape(Type:=msoShapeRectangle, Left:=250, Top:=72, _ 
 Width:=40, Height:=80) 
 .Fill.PresetTextured PresetTexture:=texture 
 End With 
 End With 
End Sub

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

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