指定した塗りつぶしの既定のテクスチャを取得します。 値の取得のみ可能です。
構文
式。PresetTexture
式FillFormat オブジェクトを表す変数。
戻り値
MsoPresetTexture
注釈
PresetTexture プロパティの値には、これらの 可能 定数のいずれかを指定できます。
msoPresetTextureMixed |
msoTextureBlueTissuePaper |
msoTextureBouquet |
msoTextureBrownMarble |
msoTextureCanvas |
msoTextureCork |
msoTextureDenim |
msoTextureFishFossil |
msoTextureGranite |
msoTextureGreenMarble |
msoTextureMediumWood |
msoTextureNewsprint |
msoTextureOak |
msoTexturePaperBag |
msoTexturePapyrus |
msoTextureParchment |
msoTexturePinkTissuePaper |
msoTexturePurpleMesh |
msoTextureRecycledPaper |
msoTextureSand |
msoTextureStationery |
msoTextureWalnut |
msoTextureWaterDroplets |
msoTextureWhiteMarble |
msoTextureWovenMat |
例
次の使用例は、myDocument に四角形を追加し、図形 2 の既定のテクスチャを設定します。 この使用例が動作するためには、2 番目の図形の塗りつぶしに既定のテクスチャが設定されている必要があります。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
presetTexture2 = .Item(2).Fill.PresetTexture
.AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _
.PresetTextured presetTexture2
End With
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。