如何用VBA设置插入形状的样式？

楼主
biaotiger1

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

Sub 形状样式()
Dim Shp As Shape, I, J
Set Shp = Sheets("sheet1").Shapes.AddShape(msoShapeOval, 200, 200, 200, 200) '在指定位置插入圆形
For I = 1 To 20
Shp.ShapeStyle = I
For J = 1 To 10000000: Next
DoEvents
Next I
For I = 10001 To 10020
Shp.ShapeStyle = I
For J = 1 To 10000000: Next
DoEvents
Next I
End Sub

运行以上代码，则在sheet1工作表中插入一个圆形，并依次显示该形状应用若干样式后的效果。

MsoShapeStyleIndex 枚举参数列表及说明如下：

名称	值	说明
msoLineStyle1	10001	线条样式 1
msoLineStyle10	10010	线条样式 10
msoLineStyle11	10011	线条样式 11
msoLineStyle12	10012	线条样式 12
msoLineStyle13	10013	线条样式 13
msoLineStyle14	10014	线条样式 14
msoLineStyle15	10015	线条样式 15
msoLineStyle16	10016	线条样式 16
msoLineStyle17	10017	线条样式 17
msoLineStyle18	10018	线条样式 18
msoLineStyle19	10019	线条样式 19
msoLineStyle2	10002	线条样式 2
msoLineStyle20	10020	线条样式 20
msoLineStyle3	10003	线条样式 3
msoLineStyle4	10004	线条样式 4
msoLineStyle5	10005	线条样式 5
msoLineStyle6	10006	线条样式 6
msoLineStyle7	10007	线条样式 7
msoLineStyle8	10008	线条样式 8
msoLineStyle9	10009	线条样式 9
msoShapeStyle1	1	阴影样式 1
msoShapeStyle10	10	阴影样式 10
msoShapeStyle11	11	阴影样式 11
msoShapeStyle12	12	阴影样式 12
msoShapeStyle13	13	阴影样式 13
msoShapeStyle14	14	阴影样式 14
msoShapeStyle15	15	阴影样式 15
msoShapeStyle16	16	阴影样式 16
msoShapeStyle17	17	阴影样式 17
msoShapeStyle18	18	阴影样式 18
msoShapeStyle19	19	阴影样式 19
msoShapeStyle2	2	阴影样式 2
msoShapeStyle20	20	阴影样式 20
msoShapeStyle3	3	阴影样式 3
msoShapeStyle4	4	阴影样式 4
msoShapeStyle5	5	阴影样式 5
msoShapeStyle6	6	阴影样式 6
msoShapeStyle7	7	阴影样式 7
msoShapeStyle8	8	阴影样式 8
msoShapeStyle9	9	阴影样式 9
msoShapeStyleMixed	-2	混和的阴影样式。
msoShapeStyleNone	0	无阴影样式。

上一篇：如何用VBA设置数值轴为逆序刻度值？
下一篇：如何用VBA设置插入SmartArt图形的背景图片？

免责声明

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

猜您喜欢

评论列表

sitemap