将指定填充设为一个预设纹理。
expression.PresetTextured(PresetTexture)
expression 必选。该表达式返回一个 FillFormat 对象。
PresetTexture 必选。MsoPresetTexture 类型。预设纹理。
| MsoPresetTexture 可以是下列 MsoPresetTexture 类型常数之一。 |
| 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。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _
.Fill.PresetTextured msoTextureGreenMarble