在WPS,学习AI的VBA .Fill.PresetGradient的用法

ning84

[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]在WPS中，VBA .Fill.PresetGradient的用法，没有通过。

[color=rgba(0, 0, 0, 0.85)][backcolor=rgba(0, 0, 0, 0.04)]

[backcolor=rgba(0, 0, 0, 0.04)][color=rgba(0, 0, 0, 0.85)]VBA .Fill.PresetGradient的用法在 VBA 中，Fill.PresetGradient方法用于设置指定形状的填充为预设的渐变效果。以下是其用法详解：一、语法expression.Fill.PresetGradient(Style, Variant, PresetGradientType)expression：一个代表Shape或ChartFillFormat对象的变量。Style：渐变样式，可以是一个常量，如msoGradientHorizontal（水平渐变）、msoGradientVertical（垂直渐变）、msoGradientDiagonalDown（对角线下渐变）等。Variant：渐变变量，指定渐变的具体变化，通常是一个整数，其取值范围取决于渐变样式和PresetGradientType。PresetGradientType：预设渐变类型，可以是一个常量，如msoGradientEarlySunset（早霞渐变）、msoGradientLateSunset（晚霞渐变）、msoGradientNightfall（夜幕渐变）等。二、示例代码以下是一个在 VBA 中使用Fill.PresetGradient方法的示例，假设要为一个矩形设置水平早霞渐变效果：
[backcolor=rgba(0, 0, 0, 0.04)][color=rgba(0, 0, 0, 0.85)]

[backcolor=rgba(0, 0, 0, 0.04)][color=rgba(0, 0, 0, 0.85)]

1. Sub SetGradientFill()
   
2.     Dim shp As Shape
   
3.     Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
   
4.     shp.Fill.PresetGradient Style:=msoGradientHorizontal, Variant:=1, PresetGradientType:=msoGradientGold
   
5. End Sub
   

复制代码

图书馆只有WPS,回家用office2007

ning84

office 2007成立， Wps不成立。







Sub SetGradientFill()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 100)
    shp.Fill.PresetGradient msoGradientFromCorner, 1, msoGradientCalmWater
End Sub