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