《excel_vba_处理图形图表》由会员分享，可在线阅读，更多相关《excel_vba_处理图形图表（27页珍藏版）》请在金锄头文库上搜索。
1、1Shape（图形） 、Chart（图表）对象在工作表中添加图形如果需要在工作表中添加图形对象，可以使用 AddShape 方法，如下面的代码所示。#001 Sub AddShape()#002 Dim myShape As Shape#003 On Error Resume Next#004 Sheet1.Shapes(myShape).Delete#005 Set myShape = Sheet1.Shapes.AddShape(msoShapeRectangle, 40, 120, 280, 30)#006 With myShape#007 .Name = myShape#008 Wit
2、h .TextFrame.Characters#009 .Text = 单击将选择 Sheet2!#010 With .Font#011 .Name = 华文行楷#012 .FontStyle = 常规#013 .Size = 22#014 .ColorIndex = 7#015 End With#016 End With#017 With .TextFrame #018 .HorizontalAlignment = -4108#019 .VerticalAlignment = -4108#020 End With#021 .Placement = 3#022 End With#023 myS
3、hape.Select#024 With Selection.ShapeRange#025 With .Line#026 .Weight = 1#027 .DashStyle = msoLineSolid2#028 .Style = msoLineSingle#029 .Transparency = 0#030 .Visible = msoTrue#031 .ForeColor.SchemeColor = 40#032 .BackColor.RGB = RGB(255, 255, 255)#033 End With#034 With .Fill#035 .Transparency = 0#03
4、6 .Visible = msoTrue#037 .ForeColor.SchemeColor = 41#038 .OneColorGradient 1, 4, 0.23#039 End With#040 End With#041 Sheet1.Range(A1).Select#042 Sheet1.Hyperlinks.Add Anchor:=myShape, Address:=, _#043 SubAddress:=Sheet2!A1, ScreenTip:=选择 Sheet2!#044 Set myShape = Nothing#045 End Sub代码解析：AddShape 过程在工
5、作表中添加一个矩形并设置其外观等属性。第 2 行代码声明变量 myShape 的对象类型。第 3、4 行代码删除可能存在的名称为“myShape”的图形对象。第 5 行代码使用 AddShape 方法在工作表中添加一个矩形。当该方法应用于 Shapes对象时，返回一个 Shape 对象，该对象代表工作表中的新自选图形，语法如下：expression.AddShape(Type, Left, Top, Width, Height)参数 expression 是必需的，返回一个 Shapes 对象。参数 Type 是必需的，指定要创建的自选图形的类型。参数 Left 和 Top 是必需的，以磅为单
6、位给出自选图形边框左上角的位置。参数 Width 和 Height 是必需的，以磅为单位给出自选图形边框的宽度和高度。第 7 行代码将新建图形命名为“myShape” ，向 Shapes 集合添加新的图形时，将对新添加的图形赋以默认的名称，若要为图形指定更有意义的名称，可指定其 Name 属性。第 8 行到第 16 行代码为矩形添加文字，并设定其格式。3其中第 8 行代码使用 TextFrame 属性和 Characters 方法返回该矩形的字符区域。应用于 Shape 对象的 TextFrame 属性返回一个 TextFrame 对象，该对象包含指定图形对象的对齐和定位属性；Characte
7、rs 方法返回一个 Characters 对象，该对象代表某个图形的文本框中的字符区域，语法如下：expression.Characters(Start, Length)参数 expression 是必需的，返回一个指定文本框内 Characters 对象的表达式。参数 Start 是可选的，表示将要返回的第一个字符，如果此参数设置为 1 或被忽略，则 Characters 方法会返回以第一个字符为起始字符的字符区域。参数 Length 是可选的，表示要返回的字符个数。如果此参数被忽略，则 Characters方法会返回该字符串的剩余部分（由 Start 参数指定的字符以后的所有字符） 。第
8、9 行代码为矩形添加文字，应用于 Characters 对象的 Text 属性返回或设置对象的文本，为可读写的 String 类型。第 10 行到第 15 行代码设置矩形中文字的属性，应用于 Characters 对象 Font 属性返回一个 Font 对象，该对象代表指定对象的字体属性（字体名称、字体大小、字体颜色等） ，第 11 行代码设置字体名称，第 12 行代码设置字体样式，第 13 行代码设置字体大小，第14 行代码颜色。第 17 行到第 20 行代码设定矩形中文字的对齐方式。应用于 TextFrame 对象的HorizontalAlignment 属性返回或设置指定对象的水平对齐方
9、式，可为 表格 53-1 所示的XlHAlign 常量之一。常量 值 描述xlHAlignCenter -4108 居中xlHAlignCenterAcrossSelection 7 靠左xlHAlignDistributed -4117 分散对齐xlHAlignFill 5 分散对齐xlHAlignGeneral 1 靠左xlHAlignJustify -4130 两端对齐xlHAlignLeft -4131 靠左xlHAlignRight -4152 靠右表格 1-1 HorizontalAlignment 属性的 XlHAlign 常量应用于 TextFrame 对象的 Vertical
10、Alignment 属性返回或设置指定对象的垂直对齐方式，可为 表格 53-2 所示的 XlHAlign 常量之一。常量 值 描述xlVAlignCenter -4108 居中xlVAlignJustify -4130 两端对齐4xlVAlignBottom -4107 靠下xlVAlignDistributed -4117 分散对齐xlVAlignTop -4160 靠上表格 1-2 VerticalAlignment 属性的 XlHAlign 常量第 21 行代码设置矩形大小和位置不随单元格而变，应用于 Shape 对象的 Placement属性返回或设置对象与所在的单元格之间的附属关系，
11、可为 表格 53-3 所示的XlPlacement 常量之一。常量 值 描述xlFreeFloating 3 大小、位置均固定xlMove 2 大小固定、位置随单元格而变xlMoveAndSize 1 大小、位置随单元格而变表格 1-3 XlPlacement 常量第 24 行到第 32 行代码设置矩形的边框线条格式，应用于 ShapeRange 集合的 Line属性返回一个 LineFormat 对象，该对象包含指定图形的线条格式属性。其中第 26 行代码设置矩形线条粗细，第 27 行代码设置矩形线条的虚线样式，第 28行代码设置矩形填充的透明度，第 29 行代码设置矩形为可见，第 30 行
12、代码设置矩形的前景色，第 31 行代码设置矩形填充背景的颜色。第 33 行到第 38 行代码设置矩形的内部填充格式，应用于 ShapeRange 集合的 Fill 属性返回 FillFormat 对象，该对象包含指定的图表或图形的填充格式属性。其中第 35 行代码设置矩形内部的透明度，第 36 行代码设置矩形内部为可见，第 37行代码设置矩形内部的前景色，第 38 行代码将矩形内部指定填充设为单色渐变，应用于 FillFormat 对象的 OneColorGradient 方法将指定填充设为单色渐变，语法如下：expression.OneColorGradient(Style, Variant
13、, Degree)其中参数 Style 是必需的，底纹样式，可为 表格 54-1 所示的 MsoGradientStyle 常量之一。常量 值 描述msoGradientDiagonalDown 4 斜下msoGradientDiagonalUp 3 斜上msoGradientFromCenter 7 无msoGradientFromCorner 5 角部幅射msoGradientFromTitle 6 中心幅射msoGradientHorizontal 1 水平msoGradientMixed -2 无5msoGradientVertical 2 垂直表格 1-4 MsoGradientSt
14、yle 常量参数 Variant 是必需的，渐变变量。取值范围为 1 到 4 之间，分别与“填充效果” 对话框中“ 渐变 ”选项卡的四个渐变变量相对应。如果 GradientStyle 设为 msoGradientFromCenter，则 Variant 参数只能设为 1 或 2。参数 Degree 是必需的，灰度。取值范围为 0.0（表示最深）到 1.0（表示最浅）之间。第 42、43 行代码为矩形对象添加超链接，应用于 Hyperlinks 对象的 Add 方法向指定的区域或图形添加超链接，语法如下：expression.Add(Anchor, Address, SubAddress, S
15、creenTip, TextToDisplay)参数 expression 是必需的，返回一个 Hyperlinks 对象。参数 Anchor 是必需的，超链接的位置。可为 Range 对象或 Shape 对象。参数 Address 是必需的，超链接的地址。参数 SubAddress 是必需的，超链接的子地址。参数 ScreenTip 是可选的，当鼠标指针停留在超链接上时所显示的屏幕提示。参数 TextToDisplay 是可选的，要显示的超链接的文本。运行 AddShape 过程结果如 图 53-1 所示。图 1-1 在工作表中添加图形技巧 1 导出工作表中的图片6有时需要将工作表中的图形对象保存为单独的图像文件，可以使用
