excelvba常用技巧第04章1shape图形chart图表对象

《excelvba常用技巧第04章1shape图形chart图表对象》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VBA常用技巧代码解析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多图表制作2528VBA常用技巧代码解析第4章Shape（图形）、Chart（图表）对象技巧1在工作表中添加图形如果需要在工作表中添加图形对象，可以使用AddShape方法，如下面的代

2、码所示。#001SubAddShape()#002DimmyShapeAsShape#003OnErrorResumeNext#004Sheet1.Shapes("myShape").Delete#005SetmyShape=Sheet1.Shapes.AddShape(msoShapeRectangle,40,120,280,30)#006WithmyShape#007.Name="myShape"#008With.TextFrame.Characters#009.Text="单击将选择Sheet2!"#010With.Font#011.Name="华文行楷"#012.Fon

3、tStyle="常规"#013.Size=22#014.ColorIndex=7#015EndWith#016EndWith#017With.TextFrame#018.HorizontalAlignment=-4108#019.VerticalAlignment=-4108#020EndWith#021.Placement=328VBA常用技巧代码解析#022EndWith#023myShape.Select#024WithSelection.ShapeRange#025With.Line#026.Weight=1#027.DashStyle=msoLineSolid#028

4、.Style=msoLineSingle#029.Transparency=0#030.Visible=msoTrue#031.ForeColor.SchemeColor=40#032.BackColor.RGB=RGB(255,255,255)#033EndWith#034With.Fill#035.Transparency=0#036.Visible=msoTrue#037.ForeColor.SchemeColor=41#038.OneColorGradient1,4,0.23#039EndWith#040EndWith#041Sheet1.Range("A1").Sel

5、ect#042Sheet1.Hyperlinks.AddAnchor:=myShape,Address:="",_#043SubAddress:="Sheet2!A1",ScreenTip:="选择Sheet2!"#044SetmyShape=Nothing#045EndSub代码解析：AddShape过程在工作表中添加一个矩形并设置其外观等属性。第2行代码声明变量myShape的对象类型。第3、4行代码删除可能存在的名称为“myShape”的图形对象。第5行代码使用AddShape方法在工作表中添加一个矩形。当该方法应用于Shapes对象时，返回一个Shape对象，该对象代表

6、工作表中的新自选图形，语法如下：expression.AddShape(Type,Left,Top,Width,Height)参数expression是必需的，返回一个Shapes对象。28VBA常用技巧代码解析参数Type是必需的，指定要创建的自选图形的类型。参数Left和Top是必需的，以磅为单位给出自选图形边框左上角的位置。参数Width和Height是必需的，以磅为单位给出自选图形边框的宽度和高度。第7行代码将新建图形命名为“myShape”，向Shapes集合添加新的图形时，将对新添加的图形赋以默认的名称，若要为图形指定更有意义的名称，可指定其Name属性。第8行到第

7、16行代码为矩形添加文字，并设定其格式。其中第8行代码使用TextFrame属性和Characters方法返回该矩形的字符区域。应用于Shape对象的TextFrame属性返回一个TextFrame对象，该对象包含指定图形对象的对齐和定位属性；Characters方法返回一个Characters对象，该对象代表某个图形的文本框中的字符区域，语法如下：expression.Characters(Start,Length)参数expression是必需的，返回一个指定文本框内Characters