次の方法で共有

FillFormat.TextureName プロパティ (Publisher)

  • [アーティクル]

指定した塗りつぶしのユーザー設定のテクスチャ ファイルの名前を示す 文字列 を返します。 読み取り専用です。

構文

式。TextureName

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

戻り値

文字列

注釈

UserTextured メソッドを使用すると、塗りつぶしのテクスチャ ファイルを設定できます。

例

次の使用例は、作業中の文書に楕円を追加します。 作業中の文書の 1 番目の図形の塗りつぶしにユーザー設定のテクスチャが設定されている場合、新しい楕円は 1 番目の図形と同じ塗りつぶしになります。 1 番目の図形が他の種類の塗りつぶしである場合、新しい楕円の塗りつぶしは [大理石 (緑)] になります。

Dim ffNew As FillFormat 
 
With ActiveDocument.Pages(1).Shapes 
 Set ffNew = .AddShape(Type:=msoShapeOval, _ 
 Left:=0, Top:=0, Width:=200, Height:=90).Fill 
 
 With .Item(1).Fill 
 If .Type = msoFillTextured And _ 
 .TextureType = msoTextureUserDefined Then 
 ffNew.UserTextured _ 
 TextureFile:=.TextureName 
 Else 
 ffNew.PresetTextured _ 
 PresetTexture:=msoTextureGreenMarble 
 End If 
 End With 
End With

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

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