请教EXCEL中VBA宏相关问题！

Question

请问EXCEL里视图->工具栏->绘图里画的圆，矩形，线条，以及他们的组合图形，在代码里如何知道这些图形的名称？
比如代码：
Sub 添加形状()
With ActiveSheet.Shapes.AddShape(msoShapeOval, 180, 0, 72, 72) '添加一个圆形
.Name = "yuan" '命名
End With
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 180, 80, 72, 72) '添加一个矩形
.Name = "ju" '命名
End With
With ActiveSheet.Shapes.AddLine(180, 160, 280, 160) '添加一个直线
.Name = "xian" '命名
End With
End Sub
如果我想把里边的yuan替换成一些组合图形，里边的Name该改为什么？在哪查看这些的名称？

Answer 1

Shapes.AddShape 方法
返回一个 Shape 对象，该对象表示工作表中的新自选形状。
语法
表达式.AddShape(Type, Left, Top, Width, Height)
============================================
其中参数TYPE

名称 必选/可选 数据类型 描述
Type 必选 MsoAutoShapeType 指定要创建的自选形状的类型。
============================================
MsoAutoShapeType 枚举
指定 AutoShape 对象的形状类型。
名称 值 描述
msoShape16pointStar 94 十六角星。
msoShape24pointStar 95 二十四角星。
msoShape32pointStar 96 三十二角星。
msoShape4pointStar 91 四角星。
msoShape5pointStar 92 五角星。
msoShape8pointStar 93 八角星。
msoShapeActionButtonBackorPrevious 129 “后退”或“上一个”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonBeginning 131 “开始”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonCustom 125 不带默认图片或文本的按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonDocument 134 “文档”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonEnd 132 “结束”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonForwardorNext 130 “前进”或“下一个”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHelp 127 帮助按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHome 126 “主页”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonInformation 128 “信息”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonMovie 136 “影片”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonReturn 133 “返回”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonSound 135 “声音”按钮。支持鼠标单击和鼠标移过操作。
msoShapeArc 25 弧形。
msoShapeBalloon 137 气球。
msoShapeBentArrow 41 带 90 度圆角的箭头。
msoShapeBentUpArrow 44 带 90 度直角的箭头。默认情况下上指。
msoShapeBevel 15 凹凸效果。
msoShapeBlockArc 20 空心弧。
msoShapeCan 13 圆柱形。
msoShapeChevron 52 V 形。
msoShapeCircularArrow 60 带 180 度圆角的箭头。
msoShapeCloudCallout 108 云形标注。
msoShapeCross 11 十字形。
msoShapeCube 14 立方。
msoShapeCurvedDownArrow 48 上弧形箭头。
msoShapeCurvedDownRibbon 100 下凸弯带形横幅。
msoShapeCurvedLeftArrow 46 右弧形箭头。
msoShapeCurvedRightArrow 45 左弧形箭头。
msoShapeCurvedUpArrow 47 下弧形箭头。
msoShapeCurvedUpRibbon 99 上凸弯带形。
msoShapeDiamond 4 菱形。
msoShapeDonut 18 环形。
msoShapeDoubleBrace 27 双大括号。
msoShapeDoubleBracket 26 双括号。
msoShapeDoubleWave 104 双波形。
msoShapeDownArrow 36 下箭头。
msoShapeDownArrowCallout 56 带下箭头的标注。
msoShapeDownRibbon 98 中心区域位于弯带末端下方的弯带形。
msoShapeExplosion1 89 爆炸形。
msoShapeExplosion2 90 爆炸形。
msoShapeFlowchartAlternateProcess 62 其他过程流程图符号。
msoShapeFlowchartCard 75 资料卡流程图符号。
msoShapeFlowchartCollate 79 对照流程图符号。
msoShapeFlowchartConnector 73 联系流程图符号。
msoShapeFlowchartData 64 数据流程图符号。
msoShapeFlowchartDecision 63 决策流程图符号。
msoShapeFlowchartDelay 84 延期流程图符号。
msoShapeFlowchartDirectAccessStorage 87 磁鼓流程图符号。
msoShapeFlowchartDisplay 88 显示流程图符号。
msoShapeFlowchartDocument 67 文档流程图符号。
msoShapeFlowchartExtract 81 摘录流程图符号。
msoShapeFlowchartInternalStorage 66 内部贮存流程图符号。
msoShapeFlowchartMagneticDisk 86 磁盘流程图符号。
msoShapeFlowchartManualInput 71 手动输入流程图符号。
msoShapeFlowchartManualOperation 72 手动操作流程图符号。
msoShapeFlowchartMerge 82 合并流程图符号。
msoShapeFlowchartMultidocument 68 多文档流程图符号。
msoShapeFlowchartOffpageConnector 74 离页连接符流程图符号。
msoShapeFlowchartOr 78 “或者”流程图符号。
msoShapeFlowchartPredefinedProcess 65 预定义过程流程图符号。
msoShapeFlowchartPreparation 70 准备流程图符号。
msoShapeFlowchartProcess 61 过程流程图符号。
msoShapeFlowchartPunchedTape 76 资料带流程图符号。
msoShapeFlowchartSequentialAccessStorage 85 磁带流程图符号。
msoShapeFlowchartSort 80 排序流程图符号。
msoShapeFlowchartStoredData 83 库存数据流程图符号。
msoShapeFlowchartSummingJunction 77 汇总连接流程图符号。
msoShapeFlowchartTerminator 69 终止流程图符号。
msoShapeFoldedCorner 16 折角形。
msoShapeHeart 21 心形。
msoShapeHexagon 10 六边形。
msoShapeHorizontalScroll 102 横卷形。
msoShapeIsoscelesTriangle 7 等腰三角形。
msoShapeLeftArrow 34 左箭头。
msoShapeLeftArrowCallout 54 带左箭头的标注。
msoShapeLeftBrace 31 左大括号。
msoShapeLeftBracket 29 左括号。
msoShapeLeftRightArrow 37 左右双向箭头。
msoShapeLeftRightArrowCallout 57 带左右双向箭头的标注。
msoShapeLeftRightUpArrow 40 左右上三向箭头。
msoShapeLeftUpArrow 43 左上双向箭头。
msoShapeLightningBolt 22 闪电形。
msoShapeLineCallout1 109 带边框和水平标注线的标注。
msoShapeLineCallout1AccentBar 113 带水平强调线的标注。
msoShapeLineCallout1BorderandAccentBar 121 带边框和水平强调线的标注。
msoShapeLineCallout1NoBorder 117 带水平线的标注。
msoShapeLineCallout2 110 带对角直线的标注。
msoShapeLineCallout2AccentBar 114 带对角标注线和强调线的标注。
msoShapeLineCallout2BorderandAccentBar 122 带边框、对角直线和强调线的标注。
msoShapeLineCallout2NoBorder 118 不带边框和对角标注线的标注。
msoShapeLineCallout3 111 带倾斜线的标注。
msoShapeLineCallout3AccentBar 115 带倾斜标注线和强调线的标注。
msoShapeLineCallout3BorderandAccentBar 123 带边框、倾斜标注线和强调线的标注。
msoShapeLineCallout3NoBorder 119 不带边框和倾斜标注线的标注。
msoShapeLineCallout4 112 带 U 型标注线段的标注。
msoShapeLineCallout4AccentBar 116 带强调线和 U 型标注线段的标注。
msoShapeLineCallout4BorderandAccentBar 124 带边框、强调线和 U 型标注线段的标注。
msoShapeLineCallout4NoBorder 120 不带边框和 U 型标注线段的标注。
msoShapeMixed -2 只返回值，表示其他状态的组合。
msoShapeMoon 24 新月形。
msoShapeNoSymbol 19 禁止符。
msoShapeNotchedRightArrow 50 燕尾形右箭头。
msoShapeNotPrimitive 138 不支持。
msoShapeOctagon 6 八边形。
msoShapeOval 9 椭圆形。
msoShapeOvalCallout 107 椭圆形标注。
msoShapeParallelogram 2 平行四边形。
msoShapePentagon 51 五边形。
msoShapePlaque 28 缺角矩形。
msoShapeQuadArrow 39 四向箭头。
msoShapeQuadArrowCallout 59 带四向箭头的标注。
msoShapeRectangle 1 矩形。
msoShapeRectangularCallout 105 矩形标注。
msoShapeRegularPentagon 12 五边形。
msoShapeRightArrow 33 右箭头。
msoShapeRightArrowCallout 53 带右箭头的标注。
msoShapeRightBrace 32 右大括号。
msoShapeRightBracket 30 右括号。
msoShapeRightTriangle 8 直角三角形。
msoShapeRoundedRectangle 5 圆角矩形。
msoShapeRoundedRectangularCallout 106 圆角矩形标注。
msoShapeSmileyFace 17 笑脸。
msoShapeStripedRightArrow 49 尾部带条纹的右箭头。
msoShapeSun 23 太阳。
msoShapeTrapezoid 3 梯形。
msoShapeUpArrow 35 上箭头。
msoShapeUpArrowCallout 55 带上箭头的标注。
msoShapeUpDownArrow 38 上下双向箭头。
msoShapeUpDownArrowCallout 58 带上下双向箭头的标注。
msoShapeUpRibbon 97 中心区域位于弯带末端上方的弯带形横幅。
msoShapeUTurnArrow 42 U 型箭头。
msoShapeVerticalScroll 101 竖卷形。
msoShapeWave 103 波形。
===================================
msdn 里面可以找到这些资料。再有EXCEL VBA帮助文件里面也有。
建议参考EXCEL 2007 或者 EXCEL 2010 的VBA帮助。比较详细。

Answer 2

我也不知道到哪里去查这些图形的名称，不过可以用“录制宏”的方式，依次选中你想知道名字的图形，然后结束录制，到新录制的宏里就可以看到各个图形的名称：
Sub Macro1()
'
' Macro1 Macro
' 宏由 jiaanhe 录制，时间: 2011-1-25
'

'
ActiveSheet.Shapes("Oval 13").Select
ActiveSheet.Shapes("yuan").Select
ActiveSheet.Shapes("Group 11").Select
End Sub

由此可知道，你曾点击的图形名称分别是：Oval 13、yuan、Group 11本回答被提问者采纳

Answer 3

Oval ：椭圆
Rectangle ：矩形
Line：直线