返回指定填充的预设纹理。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 |
expression.PresetTexture
expression 必需。该表达式返回“应用于”列表中的对象之一。
可用 PresetTextured 方法设置填充格式的预置纹理。
本示例以第一个图表中使用的填充格式对第二个图表的填充格式进行设置。
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillTextured Then
With Charts(2).ChartArea.Fill
.Visible = True
If c1f.TextureType = msoTexturePreset Then
.PresetTextured c1f.PresetTexture
Else
.UserTextured c1f.TextureName
End If
End With
End If