PowerPoint VBA教程:PresetGradientType属性

返回或预设指定填充的过渡类型。只读。MsoPresetGradientType 类型。使用PresetGradient方法设置该填充的预设过渡类型。

MsoPresetGradientType 可以是下列 MsoPresetGradientType 类型常数之一。
msoGradientBrass
msoGradientCalmWater
msoGradientChrome
msoGradientChromeII
msoGradientDaybreak
msoGradientDesert
msoGradientEarlySunset
msoGradientFire
msoGradientFog
msoGradientGold
msoGradientGoldII
msoGradientHorizon
msoGradientLateSunset
msoGradientMahogany
msoGradientMoss
msoGradientNightfall
msoGradientOcean
msoGradientParchment
msoGradientPeacock
msoGradientRainbow
msoGradientRainbowII
msoGradientSapphire
msoGradientSilver
msoGradientWheat
msoPresetGradientMixed

expression.PresetGradientType

expression  必选。该表达式返回“应用于”列表中的对象之一。

VBA示例

本示例将myDocument 中所有带有 Moss 预设过渡填充的形状更改为 Fog 预设过渡填充。


Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    With s.Fill
        If .PresetGradientType = msoGradientMoss Then
            .PresetGradient = msoGradientFog
        End If
    End With
Next

上页:PowerPoint VBA教程:PresetExtrusionDirection属性 下页:PowerPoint VBA教程:PresetLightingDirection属性

PowerPoint VBA教程:PresetGradientType属性

PowerPoint VBA教程:PresetLightingDirection属性 PowerPoint VBA教程:PresetLightingSoftness属性
PowerPoint VBA教程:PresetMaterial属性 PowerPoint VBA教程:PresetShape属性
PowerPoint VBA教程:PresetTextEffect属性 PowerPoint VBA教程:PresetTexture属性
PowerPoint VBA教程:PresetThreeDFormat属性 PowerPoint VBA教程:PrintColorType属性
PowerPoint VBA教程:PrintComments属性 PowerPoint VBA教程:PrintFontsAsGraphics属性
PowerPoint VBA教程:PrintHiddenSlides属性 PowerPoint VBA教程:PrintInBackground属性
PowerPoint VBA教程:PrintOptions属性 PowerPoint VBA教程:PrintSteps属性
PowerPoint VBA教程:ProductCode属性 PowerPoint VBA教程:ProgID属性
PowerPoint VBA教程:Property属性 PowerPoint VBA教程:PropertyEffect属性
PowerPoint VBA教程:PublishObjects属性 PowerPoint VBA教程:RangeEnd属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号