将指定填充设置为预设的纹理。
expression.PresetTextured(PresetTexture)
expression 必需。该表达式返回“应用于”列表中的对象之一。
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 |
示例
本示例将图表的纹理填充格式由“栎木”改为“胡桃”。
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