1.请教EXCEL中VBA宏相关问题！形源
2.VBA在文档中添加图形及填充颜色
请教EXCEL中VBA宏相关问题！形源
Shapes.AddShape 方法
返回一个 Shape 对象，形源该对象表示工作表中的形源新自选形状。
语法
表达式.AddShape(Type,形源 Left, Top, Width, Height)
============================================
其中参数TYPE
名称 必选/可选 数据类型 描述
Type 必选 MsoAutoShapeType 指定要创建的自选形状的类型。
============================================
MsoAutoShapeType 枚举
指定 AutoShape 对象的形源获取网页源码形状类型。
名称 值 描述
msoShapepointStar 十六角星。形源
msoShapepointStar 二十四角星。形源
msoShapepointStar 三十二角星。形源
msoShape4pointStar 四角星。形源
msoShape5pointStar 五角星。形源
msoShape8pointStar 八角星。形源
msoShapeActionButtonBackorPrevious “后退”或“上一个”按钮。形源支持鼠标单击和鼠标移过操作。形源
msoShapeActionButtonBeginning “开始”按钮。形源支持鼠标单击和鼠标移过操作。
msoShapeActionButtonCustom 不带默认或文本的按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonDocument “文档”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonEnd “结束”按钮。支持鼠标单击和鼠标移过操作。3m平台源码
msoShapeActionButtonForwardorNext “前进”或“下一个”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHelp 帮助按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHome “主页”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonInformation “信息”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonMovie “影片”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonReturn “返回”按钮。支持鼠标单击和鼠标移过操作。
msoShapeActionButtonSound “声音”按钮。支持鼠标单击和鼠标移过操作。
msoShapeArc 弧形。
msoShapeBalloon 气球。
msoShapeBentArrow 带 度圆角的箭头。
msoShapeBentUpArrow 带 度直角的箭头。默认情况下上指。
msoShapeBevel 凹凸效果。
msoShapeBlockArc 空心弧。营销软件站源码
msoShapeCan 圆柱形。
msoShapeChevron V 形。
msoShapeCircularArrow 带 度圆角的箭头。
msoShapeCloudCallout 云形标注。
msoShapeCross 十字形。
msoShapeCube 立方。
msoShapeCurvedDownArrow 上弧形箭头。
msoShapeCurvedDownRibbon 下凸弯带形横幅。
msoShapeCurvedLeftArrow 右弧形箭头。
msoShapeCurvedRightArrow 左弧形箭头。
msoShapeCurvedUpArrow 下弧形箭头。
msoShapeCurvedUpRibbon 上凸弯带形。
msoShapeDiamond 4 菱形。
msoShapeDonut 环形。
msoShapeDoubleBrace 双大括号。
msoShapeDoubleBracket 双括号。
msoShapeDoubleWave 双波形。
msoShapeDownArrow 下箭头。
msoShapeDownArrowCallout 带下箭头的标注。
msoShapeDownRibbon 中心区域位于弯带末端下方的弯带形。
msoShapeExplosion1 爆炸形。安卓微信源码
msoShapeExplosion2 爆炸形。
msoShapeFlowchartAlternateProcess 其他过程流程图符号。
msoShapeFlowchartCard 资料卡流程图符号。
msoShapeFlowchartCollate 对照流程图符号。
msoShapeFlowchartConnector 联系流程图符号。
msoShapeFlowchartData 数据流程图符号。
msoShapeFlowchartDecision 决策流程图符号。
msoShapeFlowchartDelay 延期流程图符号。
msoShapeFlowchartDirectAccessStorage 磁鼓流程图符号。
msoShapeFlowchartDisplay 显示流程图符号。
msoShapeFlowchartDocument 文档流程图符号。
msoShapeFlowchartExtract 摘录流程图符号。
msoShapeFlowchartInternalStorage 内部贮存流程图符号。
msoShapeFlowchartMagneticDisk 磁盘流程图符号。
msoShapeFlowchartManualInput 手动输入流程图符号。
msoShapeFlowchartManualOperation 手动操作流程图符号。
msoShapeFlowchartMerge 合并流程图符号。
msoShapeFlowchartMultidocument 多文档流程图符号。
msoShapeFlowchartOffpageConnector 离页连接符流程图符号。
msoShapeFlowchartOr “或者”流程图符号。
msoShapeFlowchartPredefinedProcess 预定义过程流程图符号。仿当乐网源码
msoShapeFlowchartPreparation 准备流程图符号。
msoShapeFlowchartProcess 过程流程图符号。
msoShapeFlowchartPunchedTape 资料带流程图符号。
msoShapeFlowchartSequentialAccessStorage 磁带流程图符号。
msoShapeFlowchartSort 排序流程图符号。
msoShapeFlowchartStoredData 库存数据流程图符号。
msoShapeFlowchartSummingJunction 汇总连接流程图符号。
msoShapeFlowchartTerminator 终止流程图符号。
msoShapeFoldedCorner 折角形。
msoShapeHeart 心形。
msoShapeHexagon 六边形。
msoShapeHorizontalScroll 横卷形。
msoShapeIsoscelesTriangle 7 等腰三角形。
msoShapeLeftArrow 左箭头。
msoShapeLeftArrowCallout 带左箭头的标注。
msoShapeLeftBrace 左大括号。
msoShapeLeftBracket 左括号。
msoShapeLeftRightArrow 左右双向箭头。
msoShapeLeftRightArrowCallout 带左右双向箭头的标注。
msoShapeLeftRightUpArrow 左右上三向箭头。
msoShapeLeftUpArrow 左上双向箭头。
msoShapeLightningBolt 闪电形。
msoShapeLineCallout1 带边框和水平标注线的标注。
msoShapeLineCallout1AccentBar 带水平强调线的标注。
msoShapeLineCallout1BorderandAccentBar 带边框和水平强调线的标注。
msoShapeLineCallout1NoBorder 带水平线的标注。
msoShapeLineCallout2 带对角直线的标注。
msoShapeLineCallout2AccentBar 带对角标注线和强调线的标注。
msoShapeLineCallout2BorderandAccentBar 带边框、对角直线和强调线的标注。
msoShapeLineCallout2NoBorder 不带边框和对角标注线的标注。
msoShapeLineCallout3 带倾斜线的标注。
msoShapeLineCallout3AccentBar 带倾斜标注线和强调线的标注。
msoShapeLineCallout3BorderandAccentBar 带边框、倾斜标注线和强调线的标注。
msoShapeLineCallout3NoBorder 不带边框和倾斜标注线的标注。
msoShapeLineCallout4 带 U 型标注线段的标注。
msoShapeLineCallout4AccentBar 带强调线和 U 型标注线段的标注。
msoShapeLineCallout4BorderandAccentBar 带边框、强调线和 U 型标注线段的标注。
msoShapeLineCallout4NoBorder 不带边框和 U 型标注线段的标注。
msoShapeMixed -2 只返回值，表示其他状态的组合。
msoShapeMoon 新月形。
msoShapeNoSymbol 禁止符。
msoShapeNotchedRightArrow 燕尾形右箭头。
msoShapeNotPrimitive 不支持。
msoShapeOctagon 6 八边形。
msoShapeOval 9 椭圆形。
msoShapeOvalCallout 椭圆形标注。
msoShapeParallelogram 2 平行四边形。
msoShapePentagon 五边形。
msoShapePlaque 缺角矩形。
msoShapeQuadArrow 四向箭头。
msoShapeQuadArrowCallout 带四向箭头的标注。
msoShapeRectangle 1 矩形。
msoShapeRectangularCallout 矩形标注。
msoShapeRegularPentagon 五边形。
msoShapeRightArrow 右箭头。
msoShapeRightArrowCallout 带右箭头的标注。
msoShapeRightBrace 右大括号。
msoShapeRightBracket 右括号。
msoShapeRightTriangle 8 直角三角形。
msoShapeRoundedRectangle 5 圆角矩形。
msoShapeRoundedRectangularCallout 圆角矩形标注。
msoShapeSmileyFace 笑脸。
msoShapeStripedRightArrow 尾部带条纹的右箭头。
msoShapeSun 太阳。
msoShapeTrapezoid 3 梯形。
msoShapeUpArrow 上箭头。
msoShapeUpArrowCallout 带上箭头的标注。
msoShapeUpDownArrow 上下双向箭头。
msoShapeUpDownArrowCallout 带上下双向箭头的标注。
msoShapeUpRibbon 中心区域位于弯带末端上方的弯带形横幅。
msoShapeUTurnArrow U 型箭头。
msoShapeVerticalScroll 竖卷形。
msoShapeWave 波形。
===================================
msdn 里面可以找到这些资料。再有EXCEL VBA帮助文件里面也有。
建议参考EXCEL 或者 EXCEL 的VBA帮助。比较详细。
VBA在文档中添加图形及填充颜色
在Word中，VBA的强大功能之一就是通过Shapes对象实现图形的添加和填充颜色。《VBA之Word应用》教程的第九章详细讲解了这一内容，专注于面向对象编程在实际操作中的应用。本节将深入探讨Shape对象的三个关键属性：AutoShapeType、CanvasItems和Fill，以及如何在文档中实际操作。
首先，Shape对象代表文档中的图形元素，包括自选图形、多边形等，它是Shapes集合的一部分。通过ShapeRange对象，我们可以处理文档中特定形状的子集，而Shape对象则对应单个形状。在添加图形时，例如创建一个新的绘图画布并添加圆形和角星形，VBA代码提供了一种直观的方法。
Shape对象的AutoShapeType属性允许设置图形类型，CanvasItems属性则返回绘图画布上的形状集合。Fill属性则用于控制形状的填充格式，包括前景色、背景色和渐变类型。例如，代码示例中展示了如何为矩形添加红色前景色和灰色背景，以及渐变填充效果。
具体操作步骤包括创建新的绘图画布、添加图形并设置其属性。利用VBA，你可以轻松地在文档中实现这些功能，并根据需要调整形状的样式。这不仅展示了VBA在Word中的实用价值，也为提升文档设计和自动化操作提供了强大工具。
要了解更多详细信息，可参考教程文件《Doc 文档.docm》。这些教程和应用工具是多年VBA实践经验的结晶，旨在帮助你更高效地使用VBA进行文档处理。
