Excel表格如何设置渐变色,vba编程进阶学习,深度讲解
正在刷新…… 2020-11-26 23:40:02

No.1


Excel中给表格设置一些颜色,对于表格的观赏性,还是很好的。

如何利用VBA对表格进行渐变色设置,这就需要我们有一个十分热情来掌握其方法。

下图为设置一个渐变色的效果,颜色不太好,但其功能可以实现。

下面具体解释一下,通过vba代码实现的方法。

Excel表格如何设置渐变色,vba编程进阶学习,深度讲解

No.2


首先要明解如何来实现对表格内部背景设置。

我们要知道表格内部用Interior对象来表示,这就是说要用到这个对象的一些属性。

其简单纯色背景只要对Color属性赋值就可以实现背景颜色设置。

例如:

Range(“A”).interior.color=rgb(222,1,1)

上面代码就对A1单元格背景设置为红色了。

设置为过渡色不能用此属性,另有属性。

下面看一下interior对象的一些属性:

Excel表格如何设置渐变色,vba编程进阶学习,深度讲解


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

Excel表格如何设置渐变色,vba编程进阶学习,深度讲解


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

Excel表格如何设置渐变色,vba编程进阶学习,深度讲解


ColorStop代表某一区域或所选内容中的渐变填充的色标,其复数ColorStop指定系列的所有**ColorStop** 对象的集合

Degree代表了渐变的角度。

这样就可以实现一个单元格内的渐变颜色、角度变化了,当然还有明暗度等等不做介绍,用到其它属性。

首先把角度和颜色来设置好。

看如下代码图:

Excel表格如何设置渐变色,vba编程进阶学习,深度讲解

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属性。

简单就没有意义了,就是在这么多个对象和属性之间来回设置一翻,我们得到了一个更加无聊的结果。

如果你有十分美观的视觉处理能力,那么通过这样一番操作,一个漂亮的表格就出现了。

---END---

欢迎收藏、关注
版权声明
本文为[正在刷新……]所创,转载请带上原文链接,感谢
https://www.seoxiehui.cn/article-267740-1.html
相似文章

2021-08-09