通过

GradientStops.Insert 方法 (Office)

  • 项目

向渐变添加一个光圈。

语法

表达式。插入 (RGB、 位置、 透明度、 索引)

表达 返回 GradientStops 对象的表达式。

参数

名称 必需/可选 数据类型 说明
RGB 必需 MsoThemeColorSchemeIndex 指定渐变光圈处的颜色。
Position 必需 Single 以百分比形式指定渐变内部的光圈的位置。
Transparency 可选 Single 指定渐变光圈处的颜色不透明度。
"索引" 可选 Long 光圈的索引号。

备注

渐变是指从一种颜色状态到另一种颜色状态的平缓过渡。 这些部分的端点称为光圈。

示例

下面的示例在 Microsoft PowerPoint 中创建三个颜色渐变光圈。

Sub gradients() 
 Set myDocument = ActivePresentation.Slides(1) 
 Set GradientShapeFill = myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill 
 With GradientShapeFill 
 .ForeColor.RGB = RGB(0, 128, 128) 
 .OneColorGradient msoGradientHorizontal, 1, 1 
 .GradientStops.Insert RGB(255, 0, 0), 0.25 
 .GradientStops.Insert RGB(0, 255, 0), 0.5 
 .GradientStops.Insert RGB(0, 0, 255), 0.75 
 End With 
End Sub

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。