将指定的填充方式设置为预设纹理。
expression.PresetTextured(PresetTexture)
expression 必需。返回 FillFormat 对象的表达式。
PresetTexture MsoPresetTexture，必需。预设纹理。
| MsoPresetTexture 可以是下列 MsoPresetTexture 常量之一： |
| msoPresetTextureMixed |
| msoTextureBouquet |
| msoTextureCanvas |
| msoTextureDenim |
| msoTextureGranite |
| msoTextureMediumWood |
| msoTextureOak |
| msoTexturePapyrus |
| msoTexturePinkTissuePaper |
| msoTextureRecycledPaper |
| msoTextureStationery |
| msoTextureWaterDroplets |
| msoTextureWovenMat |
| msoTextureBlueTissuePaper |
| msoTextureBrownMarble |
| msoTextureCork |
| msoTextureFishFossil |
| msoTextureGreenMarble |
| msoTextureNewsprint |
| msoTexturePaperBag |
| msoTextureParchment |
| msoTexturePurpleMesh |
| msoTextureSand |
| msoTextureWalnut |
| msoTextureWhiteMarble |
本示例将一个用绿色大理石纹理填充的矩形添至活动文档中。
ActiveDocument.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _
.Fill.PresetTextured msoTextureGreenMarble