如何用VBA自定义形状的渐变填充？

作者：绿色风分类：时间：2022-08-17 浏览：137

楼主
biaotiger1

Q：如何用VBA自定义形状的渐变填充？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口输入代码如下：

Sub 自定义形状的渐变填充()
With Sheet1.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(1, 1, 1)
.OneColorGradient msoGradientHorizontal, 1, 1
With .GradientStops
.Insert RGB(255, 0, 0), 0.25
.Insert RGB(0, 255, 0), 0.5
.Insert RGB(0, 0, 255), 0.75
.Delete (2)
.Delete (1)
End With
End With
End Sub

运行以上代码，则在sheet1工作表中插入一个圆角矩形，并且设置其渐变为三色（红、绿、蓝）渐变填充。
详见附件。

自定义形状的渐变填充.rar

2楼
kevinchengcw

不错的资料

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表