ExcelVBA常用技巧第04章shape及Chart对象

VBA常用技巧

目录 VBA常用技巧 ............................................................................ 1 第4章 Shape （图形）、Chart （图表）对象 ......................................... 2

技巧1 在工作表中添加图形 .................................................. 2

技巧2 导出工作表中的图片 ................................................... 7

技巧3 在工作表中添加艺术字 ................................................. 9

技巧4 遍历工作表中的图形 ................................................. 11

技巧5 移动、旋转图片 ...................................................... 13

技巧6 工作表中自动插入图片 ................................................ 14

技巧7 固定工作表中图形的位置 .............................................. 17

技巧8 使用VBA自动生成图表 ................................................ 19

技巧9 使用独立窗口显示图表 ............................................... 23

技巧10 导出工作表中的图表 ................................................. 24

技巧11 多图表制作 ........................................................... 25 第4章 Shape （图形）、Chart （图表）对象 技巧1在工作表中添加图形 如果需要在工作表中添加图形对象，可以使用 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, 30)

#006 With myShape #007 .Name = "myShape" #008 With .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

280, #022 End With #023 myShape.Select #024 With Selection.ShapeRange #025 With .Line #026 .Weight = 1 #027 .DashStyle = msoLineSolid #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 #036 .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过程在工作表中添加一个矩形并设置其外观等属性。 第2行代码声明变量myShape的对象类型。 第3、4行代码删除可能存在的名称为" myShape ”的图形对象。 第5行代码使用 AddShape方法在工作表中添加一个矩形。当该方法应用于 Shapes

对象时，返回一个 Shape对象，该对象代表工作表中的新自选图形，语法如下：

expression.AddShape(Type, Left, Top, Width, Height) 参数expression是必需的，返回一个 Shapes对象。 参数Type是必需的，指定要创建的自选图形的类型。 参数Left和Top是必需的，以磅为单位给出自选图形边框左上角的位置。 参数Width和Height是必需的，以磅为单位给出自选图形边框的宽度和高度。 第7行代码将新建图形命名为" myShape ”，向Shapes集合添加新的图形时，将对新 添加的图形赋以默认的名称，若要为图形指定更有意义的名称，可指定其 Name属性。 第8行到第16行代码为矩形添加文字，并设定其格式。 其中第8行代码使用TextFrame属性和Characters方法返回该矩形的字符区域。应用 于Shape对象的TextFrame 属性返回一个 TextFrame 对象，该对象包含指定图形对象的 对齐和定位属性；Characters方法返回一个 Characters对象，该对象代表某个图形的文本 框中的字符区域，语法如下：

expression.Characters（Start, Length） 参数expression是必需的，返回一个指定文本框内 Characters对象的表达式。 参数Start是可选的，表示将要返回的第一个字符，如果此参数设置为 1或被忽略， 则Characters方法会返回以第一个字符为起始字符的字符区域。 参数Length是可选的，表示要返回的字符个数。 如果此参数被忽略， 则Characters方 法会返回该字符串的剩余部分（由 Start参数指定的字符以后的所有字符）。 第9行代码为矩形添加文字， 应用于Characters对象的Text属性返回或设置对象的文 本，为可读写的 String类型。 第10行到第15行代码设置矩形中文字的属性，应用于 Characters对象Font属性返 回一个Font对象，该对象代表指定对象的字体属性（字体名称、字体大小、字体颜色等） ， 第11行代码设置字体名称， 第12行代码设置字体样式， 第13行代码设置字体大小， 第14 行代码颜色。 第17行到第 20行代码设定矩形中文字的对齐方式。应用于 TextFrame对象的 Horizo ntalAlig nment 属性返回或设置指定对象的水平对齐方式，可为表格 1-1所示的 XlHAlign 常量之一。

常量 值 描述 xlHAlignCenter -4108 居中 xlHAIignCenterAcrossSelection 7 靠左 xlHAIignDistributed -4117 分散对齐 xlHAlignFill 5 分散对齐 xlHAlignGeneral 1 靠左

xlHAlignJustify -4130 两端对齐 xlHAlignLeft -4131 靠左 xlHAlignRight -4152 靠右 表格 1-1 HorizontalAlignment 属性的 XlHAlign 常量 应用于TextFrame对象的VerticalAlignment属性返回或设置指定对象的垂直对齐方式, 可为表格1-2

所示的XlHAlign常量之一。

常量 值 描述

xlVAlignCenter -4108 居中 xlVAlignJustify -4130 两端对齐 xlVAlignBottom -4107 靠下 xlVAIignDistributed -4117 分散对齐 xlVAlignTop -4160 靠上 表格 1-2 VerticalAlignment 属性的 XlHAlign 常量

第21行代码设置矩形大小和位置不随单元格而变，应用于 属性返回或设置对象与所在的单元格之间的附属关系，可为表格 吊量之一。

常量 值 描述 xlFreeFloating 3 大小、位置均固定 xlMove 2 大小固定、位置随单元格而变

xlMoveAndSize 1 大小、位置随单元格而变

表格 1-3 XlPlaceme nt 常量

第24行到第32行代码设置矩形的边框线条格式， 应用于ShapeRange集合的Line属 性返回一个Lin eFormat对象，该对象包含指定图形的线条格式属性。

其中第26行代码设置矩形线条粗细， 第27行代码设置矩形线条的虚线样式， 第28行 代码设置矩形填充的透明度，第 29行代码设置矩形为可见，第 30行代码设置矩形的前景 色，第31行代码设置矩形填充背景的颜色。

第33行到第38行代码设置矩形的内部填充格式，应用于 ShapeRange集合的Fill属 性返回FillFormat对象，该对象包含指定的图表或图形的填充格式属性。

其中第35行代码设置矩形内部的透明度， 第36行代码设置矩形内部为可见， 第37行 代码设置矩形内部的前景色，第 38行代码将矩形内部指定填充设为单色渐变，应用于 FillFormat对象的OneColorGradient 方法将指定填充设为单色渐变，语法如下： expression.OneColorGradient(Style, Variant, Degree) 其中参数Style是必需的，底纹样式，可为表格 2-1所示的MsoGradientStyle 常量之 。