Excel表格如何设置渐变色 渐变填充颜色怎么设置

No.1
Excel 中给表格设置一些颜色 , 对于表格的观赏性 , 还是很好的 。
如何利用 VBA 对表格进行渐变色设置 , 这就需要我们有一个十分热情来掌握其方法 。
下图为设置一个渐变色的效果 , 颜色不太好 , 但其功能可以实现 。
下面具体解释一下 , 通过 vba 代码实现的方法 。

Excel表格如何设置渐变色 渐变填充颜色怎么设置


No.2
首先要明解如何来实现对表格内部背景设置 。
我们要知道表格内部用 Interior 对象来表示 , 这就是说要用到这个对象的一些属性 。
【Excel表格如何设置渐变色 渐变填充颜色怎么设置】 其简单纯色背景只要对 Color 属性赋值就可以实现背景颜色设置 。
例如:
Range(“A”).interior.color=rgb(222,1,1)
上面代码就对 A1 单元格背景设置为红色了 。
设置为过渡色不能用此属性 , 另有属性 。
下面看一下 interior 对象的一些属性:

Excel表格如何设置渐变色 渐变填充颜色怎么设置


下图是 Pattern 常量的枚举类型 , 也是固定好 , 自由选择了 。不多解释了 。

Excel表格如何设置渐变色 渐变填充颜色怎么设置


真正用到的是 Gradient 属性的 ColorStop 对象 , 如下图:

Excel表格如何设置渐变色 渐变填充颜色怎么设置


ColorStop 代表某一区域或所选内容中的渐变填充的色标 , 其复数 ColorStop 指定系列的所有**ColorStop** 对象的集合
Degree 代表了渐变的角度 。
这样就可以实现一个单元格内的渐变颜色、角度变化了 , 当然还有明暗度等等不做介绍 , 用到其它属性 。
首先把角度和颜色来设置好 。
看如下代码图:

Excel表格如何设置渐变色 渐变填充颜色怎么设置


No.3
代码
Private Sub CommandButton1_Click()With Selection.Interior.Pattern = xlPatternLinearGradient'指定为线性渐变.Gradient.Degree = 45'设置渐变角度 End WithWith Selection.Interior.Gradient.ColorStops.Add(1).Color = RGB(211, 201, 1)'颜色.TintAndShade = 0 '应用淡色和阴影 End WithEnd Sub 仔细看代码就会明白 , 一个表格内部设置用到 Interior 对象 , 然后设置线性渐变用到 Pattern 属性 , 这个是必需选择常量 xlPatternLinearGradient , 如果选择其它就不是线性渐变 , 后面的代码就是报错 。
然后用 Gradient.Degreeg 来设置渐变的角度 0-360 度 。
其次 , 这里还有一个 ADD , 是增加一个渐变颜色节点 , 渐变颜色利用 ColorStop 对象来设置 , 这就是相当于是一个色标 。
如此就把一个单元格渐变设置完成了 。
是不是有点晕 , 真的很不好理解 。因为这里用到了几个不同的对象和属性 。
Interior 对象最顶层 , 设置属性.Pattern 和.Gradient.Degree , 接下来添加一个 ColorStop 对象 , 设置其.Color 和 TintAndShade 属性 。
简单就没有意义了 , 就是在这么多个对象和属性之间来回设置一翻 , 我们得到了一个更加无聊的结果 。
如果你有十分美观的视觉处理能力 , 那么通过这样一番操作 , 一个漂亮的表格就出现了 。

    推荐阅读