如何用VBA为形状设置一个预设的渐变？

楼主
biaotiger1

Q：如何用VBA为形状设置一个预设的渐变？
A：右键单击sheet1工作表，弹出快捷菜单→“查看代码”，在代码窗口中输入代码如下：

Sub 形状渐变填充()
Sheets("sheet1").Shapes.AddShape(msoShapeRoundedRectangle, 100, 100, 300, 100).Fill.PresetGradient msoGradientHorizontal, 2, msoGradientRainbow
End Sub

运行以上代码，则在sheet1工作表中插入一个圆角矩形，并且设置其内部填充色为“彩虹出岫”渐变。
详见附件。

以上代码中最后一个参数msoGradientRainbow的说明参见MsoPresetGradientType 枚举变量，该枚举变量数值及说明列表如下：
MsoPresetGradientType 枚举变量用于指定预定义渐变。

名称	值	说明
msoGradientBrass	20	铜黄色渐变。
msoGradientCalmWater	8	心如止水渐变。
msoGradientChrome	21	铬色渐变。
msoGradientChromeII	22	铬色 II 渐变。
msoGradientDaybreak	4	雨后初晴渐变。
msoGradientDesert	6	漫漫黄沙渐变。
msoGradientEarlySunset	1	红日西斜渐变。
msoGradientFire	9	熊熊火焰渐变。
msoGradientFog	10	薄雾浓云渐变。
msoGradientGold	18	金色年华渐变。
msoGradientGoldII	19	金色年华 II 渐变。
msoGradientHorizon	5	极目远眺渐变。
msoGradientLateSunset	2	金乌坠地渐变。
msoGradientMahogany	15	红木渐变。
msoGradientMoss	11	茵茵绿原渐变。
msoGradientNightfall	3	暮霭沉沉渐变。
msoGradientOcean	7	碧海青天渐变。
msoGradientParchment	14	羊皮纸渐变。
msoGradientPeacock	12	孔雀开屏渐变。
msoGradientRainbow	16	彩虹出岫渐变。
msoGradientRainbowII	17	彩虹出岫 II 渐变。
msoGradientSapphire	24	宝石蓝渐变。
msoGradientSilver	23	银波荡漾渐变。
msoGradientWheat	13	麦浪滚滚渐变。
msoPresetGradientMixed	-2	混和渐变。

上一篇：如何用VBA为高于平均值的数值设置条件格式？
下一篇：如何用VBA为工作表插入水平分页符？

免责声明

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

猜您喜欢

评论列表

sitemap