將指定填充設(shè)置為預(yù)設(shè)的紋理。
expression.PresetTextured(PresetTexture)
expression 必需。該表達式返回“應(yīng)用于”列表中的對象之一。
PresetTexture MsoPresetTexture 類型，必需。指定填充的預(yù)設(shè)紋理。
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 |
示例
本示例將圖表的紋理填充格式由“櫟木”改為“胡桃”。
With myChart.ChartArea.Fill
If .Type = msoFillTextured Then
If .TextureType = msoTexturePreset Then
If .PresetTexture = msoTextureOak Then
.PresetTextured msoTextureWalnut
End If
End If
End If
End With