' 添加颜色图例的函数Sub AddLegend(ws As Worksheet) Dim i As Integer Dim color As Long Dim shp As Shape ' 添加图例标题 Set shp = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 20, 150, 20) shp.TextFrame2.TextRange.Text = "销量区间与颜色图例" shp.TextFram...
msoShapeHeart:心形 msoShapeIris:虹膜 msoShapeArc:弧形 msoShapeLine:线条 msoShapeConnector:连接器 你可以通过MsoAutoShapeType枚举查看更多形状。 二、如何添加形状 添加形状的基本步骤是: 确定要添加形状的工作表。 使用Shapes.AddShape方法创建形状。 Sub AddShapeToWorksheet() Dim ws As Worksheet Dim shp As ...
'↑ 设置活动窗口内选定区域中的第一个形状的填充格式,假定至少选定了一个形状。 使用Name属性可以返回或设置形状的名称。操作中发现可以给多个形状起相同的名字,后续通过名字选择和操作的时候只会针对第一个命名的那个形状。 With Worksheets(1).Shapes.AddShape(msoShapeRectangle, 144, 144, 72, 72) '↑ 在工...
读写** MsoTriState** Name 属性:获取或设置形状的名称。 读写字符串。 Nodes属性:获取形状中的节点或控制点的几何说明。 只读的**ShapeNodes**。 Parent 属性:获取形状的父对象。 只读对象。 ParentGroup 属性:获取子形状或子形状范围的通用父形状。 只读的形状。 Reflection 属性:获取形状的反射格式。 只读的*...
(0,1).Value' 动态添加矩形形状,设置位置与大小Setshp=ws.shapes.AddShape(msoShapeRectangle,350+(iMod3)*120,50+(Int(i/3)*80),100,50)' 获取基于销售量的颜色color=GetColorBasedOnSales(sales)' 更新形状的属性(名称、颜色、文本、边框等)Withshp.Name="Shape_"®ion' 为形状命名,方便后续操作....
With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 180, 80, 72, 72) '添加一个矩形 .Name = "ju" '命名 .Fill.ForeColor.RGB = RGB(255, 0, 0) '设置前景色 End With With ActiveSheet.Shapes.AddLine(180, 160, 280, 160) '添加一个直线 .Name = "xian" '命名 .Fill.ForeColor...
写在前面: 1、编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏;双击Sheet1,对整个sheet编写宏; 或者创建模块,在模块里,编写、调试代码。 打开VBA的方法见第一讲,结合常用窗口进行编写、调试。 2、部分对象有提示,如Dim a As,敲击空格后有提示。 3、所有宏
AddShape 方法:将指定的自选图形类型的形状添加到报表, 并返回一个shape对象, 该对象表示新的形状。 AddTable 方法:向报表中添加一个表, 并返回一个Shape对象, 该对象表示表。 AddTextbox 方法:向报表中添加一个文本框, 并返回一个Shape对象, 该对象表示新的文本框。
每个添加到Shapes集合的形状将被分配一个默认名称。 若要赋予该形状一个更有意义的名称,请使用Name属性。 以下示例向myDocument添加一个矩形,为其命名为“红方”,然后设置其前景色和线条样式。 VB SetmyDocument = Worksheets(1)WithmyDocument.Shapes.AddShape(msoShapeRectangle, _144,144,72,72) .Name ="Red...