PowerPoint VBA教程:PresetTextured方法

将指定填充设为一个预设纹理。

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

VBA示例

本示例将一个带有绿色大理石纹理填充的矩形添加到myDocument


Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _
    .Fill.PresetTextured msoTextureGreenMarble

上页:PowerPoint VBA教程:PresetGradient方法 下页:PowerPoint VBA教程:Previous方法

PowerPoint VBA教程:PresetTextured方法

PowerPoint VBA教程:Previous方法 PowerPoint VBA教程:PrevNode方法
PowerPoint VBA教程:PrintOut方法 PowerPoint VBA教程:Publish方法
PowerPoint VBA教程:Quit方法 PowerPoint VBA教程:Range方法
PowerPoint VBA教程:RangeFromPoint方法 PowerPoint VBA教程:Regroup方法
PowerPoint VBA教程:ReloadAs方法 PowerPoint VBA教程:Remove方法
PowerPoint VBA教程:RemoveBaseline方法 PowerPoint VBA教程:RemovePeriods方法
PowerPoint VBA教程:Replace方法 PowerPoint VBA教程:ReplaceNode方法
PowerPoint VBA教程:ReplyWithChanges方法 PowerPoint VBA教程:RerouteConnections方法
PowerPoint VBA教程:ResetRotation方法 PowerPoint VBA教程:ResetSlideTime方法
PowerPoint VBA教程:RotatedBounds方法 PowerPoint VBA教程:RtlRun方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号