ExcelVBA常用技巧第04章1shape图形Chart图表对象讲课稿.doc

《ExcelVBA常用技巧第04章1shape图形Chart图表对象讲课稿.doc》由会员分享，可在线阅读，更多相关《ExcelVBA常用技巧第04章1shape图形Chart图表对象讲课稿.doc（58页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Good is good, but better carries it.精益求精，善益求善。ExcelVBA常用技巧第04章1shape图形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第4章 技巧11多图表制作25Shape（图形）、Chart（图表）对

2、象技巧1 在工作表中添加图形如果需要在工作表中添加图形对象，可以使用AddShape方法，如下面的代码所示。#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!#

3、010With.Font#011.Name=华文行楷#012.FontStyle=常规#013.Size=22#014.ColorIndex=7#015EndWith#016EndWith#017With.TextFrame#018.HorizontalAlignment=-4108#019.VerticalAlignment=-4108#020EndWith#021.Placement=3#022EndWith#023myShape.Select#024WithSelection.ShapeRange#025With.Line#026.Weight=1#027.DashStyle=msoLi

4、neSolid#028.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).Se

5、lect#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对象。参数Type是必需的，指定要创建的自选图形的类型。参数Left和Top是必需的，以磅为单位给出自选图形边框左上角的位置。参数Width和Height是必需的，以磅为单位给出自选图形边框的宽度和高度。第7行代码将新建图形命名为“myShape”，向Shapes集合添加新的图形时，将对新添加的图形赋以默认的名称，若要为图形指定更有意义的名称，可指定其Name属性。第8行到第16行代码为矩形添加文字，并设定其格式。其中第8行代码使用TextF

7、rame属性和Characters方法返回该矩形的字符区域。应用于Shape对象的TextFrame属性返回一个TextFrame对象，该对象包含指定图形对象的对齐和定位属性；Characters方法返回一个Characters对象，该对象代表某个图形的文本框中的字符区域，语法如下：expression.Characters(Start,Length)参数expression是必需的，返回一个指定文本框内Characters对象的表达式。参数Start是可选的，表示将要返回的第一个字符，如果此参数设置为1或被忽略，则Characters方法会返回以第一个字符为起始字符的字符区域。参数Lengt

8、h是可选的，表示要返回的字符个数。如果此参数被忽略，则Characters方法会返回该字符串的剩余部分（由Start参数指定的字符以后的所有字符）。第9行代码为矩形添加文字，应用于Characters对象的Text属性返回或设置对象的文本，为可读写的String类型。第10行到第15行代码设置矩形中文字的属性，应用于Characters对象Font属性返回一个Font对象，该对象代表指定对象的字体属性（字体名称、字体大小、字体颜色等），第11行代码设置字体名称，第12行代码设置字体样式，第13行代码设置字体大小，第14行代码颜色。第17行到第20行代码设定矩形中文字的对齐方式。应用于TextF

9、rame对象的HorizontalAlignment属性返回或设置指定对象的水平对齐方式，可为Error! No bookmark name given.所示的XlHAlign常量之一。常量值描述xlHAlignCenter-4108居中xlHAlignCenterAcrossSelection7靠左xlHAlignDistributed-4117分散对齐xlHAlignFill5分散对齐xlHAlignGeneral1靠左xlHAlignJustify-4130两端对齐xlHAlignLeft-4131靠左xlHAlignRight-4152靠右表格Error! No style name

10、given.Error! No sequence specified.HorizontalAlignment属性的XlHAlign常量应用于TextFrame对象的VerticalAlignment属性返回或设置指定对象的垂直对齐方式，可为Error! No bookmark name given.所示的XlHAlign常量之一。常量值描述xlVAlignCenter-4108居中xlVAlignJustify-4130两端对齐xlVAlignBottom-4107靠下xlVAlignDistributed-4117分散对齐xlVAlignTop-4160靠上表格Error! No style

11、 name given.Error! No sequence specified.VerticalAlignment属性的XlHAlign常量第21行代码设置矩形大小和位置不随单元格而变，应用于Shape对象的Placement属性返回或设置对象与所在的单元格之间的附属关系，可为Error! No bookmark name given.所示的XlPlacement常量之一。常量值描述xlFreeFloating3大小、位置均固定xlMove2大小固定、位置随单元格而变xlMoveAndSize1大小、位置随单元格而变表格Error! No style name given.Error! No

12、 sequence specified.XlPlacement常量第24行到第32行代码设置矩形的边框线条格式，应用于ShapeRange集合的Line属性返回一个LineFormat对象，该对象包含指定图形的线条格式属性。其中第26行代码设置矩形线条粗细，第27行代码设置矩形线条的虚线样式，第28行代码设置矩形填充的透明度，第29行代码设置矩形为可见，第30行代码设置矩形的前景色，第31行代码设置矩形填充背景的颜色。第33行到第38行代码设置矩形的内部填充格式，应用于ShapeRange集合的Fill属性返回FillFormat对象，该对象包含指定的图表或图形的填充格式属性。其中第35行代码

13、设置矩形内部的透明度，第36行代码设置矩形内部为可见，第37行代码设置矩形内部的前景色，第38行代码将矩形内部指定填充设为单色渐变，应用于FillFormat对象的OneColorGradient方法将指定填充设为单色渐变，语法如下：expression.OneColorGradient(Style,Variant,Degree)其中参数Style是必需的，底纹样式，可为Error! No bookmark name given.所示的MsoGradientStyle常量之一。常量值描述msoGradientDiagonalDown4斜下msoGradientDiagonalUp3斜上msoG

14、radientFromCenter7无msoGradientFromCorner5角部幅射msoGradientFromTitle6中心幅射msoGradientHorizontal1水平msoGradientMixed-2无msoGradientVertical2垂直表格Error! No style name given.Error! No sequence specified.MsoGradientStyle常量参数Variant是必需的，渐变变量。取值范围为1到4之间，分别与“填充效果”对话框中“渐变”选项卡的四个渐变变量相对应。如果GradientStyle设为msoGradient

15、FromCenter，则Variant参数只能设为1或2。参数Degree是必需的，灰度。取值范围为0.0（表示最深）到1.0（表示最浅）之间。第42、43行代码为矩形对象添加超链接，应用于Hyperlinks对象的Add方法向指定的区域或图形添加超链接，语法如下：expression.Add(Anchor,Address,SubAddress,ScreenTip,TextToDisplay)参数expression是必需的，返回一个Hyperlinks对象。参数Anchor是必需的，超链接的位置。可为Range对象或Shape对象。参数Address是必需的，超链接的地址。参数SubAddr

16、ess是必需的，超链接的子地址。参数ScreenTip是可选的，当鼠标指针停留在超链接上时所显示的屏幕提示。参数TextToDisplay是可选的，要显示的超链接的文本。运行AddShape过程结果如Error! No bookmark name given.所示。图Error! No style name given.Error! No sequence specified.在工作表中添加图形技巧2 导出工作表中的图片有时需要将工作表中的图形对象保存为单独的图像文件，可以使用Export方法将工作表中的图片以文件形式导出，如下面的代码所示。#001SubExportShp()#002DimS

17、hpAsShape#003DimFileNameAsString#004ForEachShpInSheet1.Shapes#005IfShp.Type=msoPictureThen#006FileName=ThisWorkbook.Path&Shp.Name&.gif#007Shp.Copy#008WithSheet1.ChartObjects.Add(0,0,Shp.Width+28,Shp.Height+30).Chart#009.Paste#010.ExportFileName,gif#011.Parent.Delete#012EndWith#013EndIf#014Next#015En

18、dSub代码解析：ExportShp过程将Sheet1工作表的所有图片以文件形式导出到同一目录中。第4行代码使用ForEach.Next语句遍历Sheet1工作表中的所有图形。第5行代码判断图形的类型是否为图片，应用于Shape对象的Type属性返回或设置图形类型，可以为Error! No bookmark name given.所示的MsoShapeType常量之一。常量值说明msoShapeTypeMixed-2混合型图形msoAutoShape1自选图形msoCallout2没有边框线的标注msoChart3图表msoComment4批注msoFreeform5任意多边形msoGroup

19、6图形组合msoFormControl8窗体控件msoLine9线条msoLinkedOLEObject10链接式或内嵌OLE对象msoLinkedPicture11剪贴画或图片msoOLEControlObject12ActiveX控件msoPicture13图片msoTextEffect15艺术字msoTextBox17文本框msoDiagram21组织结构图或其他图示表格Error! No style name given.Error! No sequence specified.MsoShapeType常量第6行代码使用字符串变量FileName记录需导出图形的路径和名称。第7行代码复

20、制图形，应用于Shape对象的Copy方法将对象复制到剪贴板。第8行代码使用Add方法在工作表中添加一个图表，应用于ChartObjects对象的Add方法创建新的嵌入图表，语法如下：expression.Add(Left,Top,Width,Height)参数expression是必需的，返回一个ChartObjects对象。参数Left、参数Top是必需的，以磅为单位给出新对象的初始坐标，该坐标是相对于工作表上单元格A1的左上角或图表的左上角的坐标。参数Width、参数Height是必需的，以磅为单位给出新对象的初始大小。第9行代码使用Paste方法将图形粘贴到新的嵌入图表中，应用于Cha

21、rt对象的Paste方法将剪贴板中的图表数据粘贴到指定的图表中，语法如下：expression.Paste(Type)参数expression是必需的，返回一个Chart对象。参数Type是可选的的，如果剪贴板中有图表，本参数指定要粘贴的图表信息。可为以下XlPasteType常量之一：xlFormats、xlFormulas或xlAll。默认值为xlAll，如果剪贴板中是数据不是图表，则不能使用本参数。第10行代码使用Export方法将图表导出到同一目录中，应用于Chart对象的Export方法以图形格式导出图表，语法如下：expression.Export(Filename,FilterN

22、ame,Interactive)其中参数Filename是必需的，被导出的文件的名称。第10行代码删除新建的图表。因为Chart对象是不能使用Delete方法直接删除的，应先使用Parent属性返回指定对象的父对象，然后使用Delete方法删除。技巧3 在工作表中添加艺术字在工作表中插入艺术字，可以使用AddTextEffect方法，如下面的代码所示。#001SubTextEffect()#002DimmyShapeAsShape#003OnErrorResumeNext#004Sheet1.Shapes(myShape).Delete#005SetmyShape=Sheet1.Shapes.

23、AddTextEffect_#006(PresetTextEffect:=msoTextEffect15,_#007Text:=我爱ExcelHome,FontName:=宋体,FontSize:=36,_#008FontBold:=msoFalse,FontItalic:=msoFalse,_#009Left:=100,Top:=100)#010WithmyShape#011.Name=myShape#012With.Fill#013.Solid#014.ForeColor.SchemeColor=55#015.Transparency=0#016EndWith#017With.Line#0

24、18.Weight=1.5#019.DashStyle=msoLineSolid#020.Style=msoLineSingle#021.Transparency=0#022.ForeColor.SchemeColor=12#023.BackColor.RGB=RGB(255,255,255)#024EndWith#025EndWith#026SetmyShape=Nothing#027EndSub代码解析：TextEffect过程在工作表中插入艺术字并设置其格式。第3、4行代码删除工作表中可能存在的艺术字，以免重复添加。第5行到第9行代码使用AddTextEffect方法在工作表中插入艺术字

25、，AddTextEffect方法创建艺术字对象。返回一个Shape对象，该对象代表新建的艺术字对象，语法如下：expression.AddTextEffect(PresetTextEffect,Text,FontName,FontSize,FontBold,FontItalic,Left,Top)参数expression是必需的，返回一个Shapes对象。参数PresetTextEffect是必需的，艺术字预置文本效果，可为MsoPresetTextEffect常量之一，等同于在工作表中插入艺术字时的样式选项卡，如Error! No bookmark name given.所示。图Error!

26、 No style name given.Error! No sequence specified.艺术字样式参数Text是必需的，艺术字对象中的文字。参数FontName是必需的，艺术字对象中所用的字体名称。参数FontSize是必需的，以磅为单位给出艺术字对象中所用的字体大小。参数FontBold是必需的，在艺术字中要加粗的字体。参数FontItalic是必需的，在艺术字中要倾斜的字体。参数Left和参数Top是必需的，相对于文档的左上角、顶部，以磅为单位给出艺术字对象边框左上角的位置。第11行代码将艺术字对象重命名为“myShape”。第12行到第16行代码设置艺术字对象的填充格式。其中

27、第13行代码将填充格式设置为均一的颜色，应用于FillFormat对象的Solid方法将指定的填充格式设置为均一的颜色，可用本方法将带有渐进色、纹理、图案或背景的填充格式转换为单色的填充格式。第14行代码设置填充的颜色。第15行代码设置填充的透明度。第17行到第24行代码设置艺术字对象的线条格式属性。其中第18行代码设置线条粗细，第19行代码设置线条虚线样式，第20行代码设置线条区域的样式，第21行代码设置线条的透明度，第22行代码设置前景色，第23行代码设置填充背景的颜色。运行TextEffect过程工作表中如Error! No bookmark name given.所示。图Error!

28、No style name given.Error! No sequence specified.工作表中插入艺术字技巧4 遍历工作表中的图形工作表中的多个图形，如果使用系统缺省名称，如“文本框1”、“文本框2”这样前面是固定的字符串，后面是序号的，可以使用For.Next语句遍历图形，如下面的代码所示。#001SubErgShapes_1()#002DimiAsInteger#003Fori=1To4#004Sheet1.Shapes(文本框&i).TextFrame.Characters.Text=#005Next#006EndSub代码解析：ErgShapes_1过程清除工作表中四个图形

29、文本框中的文字。第3行到第5行代码，使用Shapes属性在工作表上的三个图形文本框中循环。Shapes属性返回Shapes对象，代表工作表或图形工作表上的所有图形，可以使用Shapes（index）返回单个的Shape对象，其中index是图形的名称或索引号。返回单个的Shape对象后使用TextFrame属性和Characters方法清除文本框中的字符，关于Shape对象的TextFrame属性和Characters方法请参阅Error! No bookmark name given.。如果图形的名称没有规律，可以使用ForEach.Next语句循环遍历所有图形，根据Type属性返回的图形类

30、型进行相应的操作，如下面的代码所示。#001SubErgShapes_2()#002DimmyShapeAsShape#003DimiAsInteger#004i=1#005ForEachmyShapeInSheet1.Shapes#006IfmyShape.Type=msoTextBoxThen#007myShape.TextFrame.Characters.Text=这是第&i&个文本框#008i=i+1#009EndIf#010Next#011EndSub代码解析：ErgShapes_2过程在工作表中的所有图形文本框中写入文本。第5行代码使用ForEach.Next语句循环遍历工作表中所

31、有的图形对象。第6行到第9行代码如果图形对象是文本框则在文本框中写入文本。其中第6行代码根据Type属性判断图形对象是否为文本框，应用于Shape对象的Type属性返回或设置图形类型，MsoShapeType类型，请参阅Error! No bookmark name given.。第7行代码根据返回的Type属性值在所有的文本框内写入相应的文本，如Error! No bookmark name given.所示。图Error! No style name given.Error! No sequence specified.遍历所有的文本框技巧5 移动、旋转图片工作表中的图片可以移动、旋转，如

32、下面的代码所示。#001SubMoveShape()#002DimiAsLong#003DimjAsLong#004WithSheet1.Shapes(1)#005Fori=1To3000Step5#006.Top=Sin(i*(3.1416/180)*100+100#007.Left=Cos(i*(3.1416/180)*100+100#008.Fill.ForeColor.RGB=i*100#009Forj=1To10#010.IncrementRotation-2#011DoEvents#012Next#013Next#014EndWith#015EndSub代码解析：MoveShape

33、过程移动、旋转工作表中的图片并不断改变其填充的前景色。第6行代码设置图片的Top属性值，应用于Shape对象的Top属性设置图形的顶端到工作表顶端的距离。在循环的过程中使用Sin函数将Top属性值设置为一个圆形的弧度值。Sin函数返回指定参数的正弦值，语法如下：Sin(number)参数number表示一个以弧度为单位的角。Sin函数取一角度为参数值，并返回角的对边长度除以斜边长度的比值，将角度除以180后即能角度转换为弧度。第7行代码设置图片的Left属性值，应用于Shape对象的Left属性设置图形从左边界至A列左边界（在工作表中）或图表区左边界（在图表工作表中）的距离。在循环的过程中使用

34、Cos函数将Left属性值设置为一个圆形的弧度值。Cos函数返回指定一个角的余弦值，语法如下：Cos(number)参数number表示一个以弧度为单位的角。Cos函数的number参数为一个角，并返回直角三角形两边的比值，该比值为角的邻边长度除以斜边长度之商，将角度除以180后即能角度转换为弧度。第8行代码设置图片填充的前景色随着循环的过程不断的变化。使用Fill属性返回一个FillFormat对象，FillFormat对象代表图形的填充格式，其ForeColor属性设置对象填充的前景色。第9行到第11行代码在图形移动的过程中使用IncrementRotation方法设置图形绕z轴的转角，I

35、ncrementRotation方法以指定的度数为增量，更改指定的图形绕z轴的转角，语法如下：expression.IncrementRotation(Increment)参数expression是必需的，返回一个Shape对象。参数Increment是必需的，以度为单位指定图形在水平方向的旋转量，正值使图形按顺时针方向旋转，负值使图形按逆时针方向旋转。其中第11行是关键的代码，使用DoEvents函数转让控制权，否则达不到预计的视觉效果。运行MoveShape过程，工作表的图形在自身进行逆时针方向旋转的同时沿着一个圆形的弧度进行移动，并不断改变其填充的颜色。技巧6 工作表中自动插入图片在日常

36、工作中经常需要在工作表中插入大量图片，比如在如Error! No bookmark name given.所示的工作表中需要根据A列的名称在C列插入保存在同一目录中的相应的图片，如果使用手工插入不仅非常繁琐且极易出错，而使用VBA代码可以很好的完成操作。图Error! No style name given.Error! No sequence specified.需插入图片的工作表示例代码如下：#001SubinsertPic()#002DimiAsInteger#003DimFilPathAsString#004DimrngAsRange#005DimsAsString#006WithSh

37、eet1#007Fori=3To.Range(a65536).End(xlUp).Row#008FilPath=ThisWorkbook.Path&.Cells(i,1).Text&.jpg#009IfDir(FilPath)Then#010.Pictures.Insert(FilPath).Select#011Setrng=.Cells(i,3)#012WithSelection#013.Top=rng.Top+1#014.Left=rng.Left+1#015.Width=rng.Width-1#016.Height=rng.Height-1#017EndWith#018Else#019s

38、=s&Chr(10)&.Cells(i,1).Text#020EndIf#021Next#022.Cells(3,1).Select#023EndWith#024IfsThen#025MsgBoxs&Chr(10)&没有照片!#026EndIf#027EndSub代码解析：insertPic过程使用Insert方法在工作表中插入图片。第7行代码开始For.Next循环，循环的终值由工作表中A列单元格的行数所决定。第8行代码字符串变量FilPath保存A列名称单元格所对应的图片文件的路径和文件名，本例中图片文件的文件名应和A列中的名称一致。第9行到第11行代码使用Dir函数在同一文件夹中查找与A

39、列单元格中的名称相对应的图片文件，如果对应的图片文件存在则使用Insert方法将图片插入到工作表中，并将C列的单元格赋给变量rng。Dir函数返回一个String，用以表示一个文件名、目录名或文件夹名称，它必须与指定的模式或文件属性、或磁盘卷标相匹配。如果已没有合乎条件的文件，则Dir函数会返回一个零长度字符串()。第12行到第17行代码，当图片片插入到工作表时其实是插入到活动单元格的，此时需设置图片的Top属性和Left属性将图片移动到C列所对应的单元格中，并设置其Width属性和Height属性使其适应所在单元格的大小。第18、19行代码如果在同一文件夹中没有与A列单元格对应的图片文件，则

40、使用字符串变量s保存没有图片文件的名称。第24行到第26行代码如果字符串变量s不等于空白说明文件夹中缺少图片文件，使用消息框提示。运行insertPic过程工作表如Error! No bookmark name given.所示。图Error! No style name given.Error! No sequence specified.插入图片后的工作表如果文件夹中缺少对应的图片文件，则会进行提示，如Error! No bookmark name given.所示。图Error! No style name given.Error! No sequence specified.缺少图片文

41、件提示技巧7 固定工作表中图形的位置工作表中插入的图片，一般都是固定的尺寸和固定的单元格区域中的，但在实际使用中可能因一些人为的因素导致图片位置偏移或尺寸变化，此时可以使用VBA代码进行调整，如下面的代码所示。#001SubShapeAddress()#002DimrngAsRange#003Setrng=Sheet1.Range(B4:E22)#004WithSheet1.Shapes(Picture1)#005.Rotation=0#006.Select#007WithSelection#008.Top=rng(1).Top+1#009.Left=rng(1).Left+1#010.Wid

42、th=rng.Width-0.5#011.Height=rng.Height-0.5#012EndWith#013EndWith#014Range(A1).Select#015EndSub代码解析：ShapeAddress过程调整指定图形在工作表中的位置。第3行代码变量rng保存工作表中插入图片的单元格区域。第5行代码设置图片的转角，应用于Shape对象Rotation属性以度为单位返回或设置图形的转角，设置为正值向右偏转，设置为负值向左偏转，设置为零图片则保持90度垂直。第7行到第12行代码设置图片的Top属性和Left属性将图片移动到变量rng所保存的单元格区域中，并设置其Width属性和

43、Height属性使其适应所在单元格区域的大小。第14行代码选择A1单元格，不然图片会处于选中状态。经过以上设置，工作表中的图片“Picture1”不管处于什么状态都可以一键恢复其原来的大小、位置。技巧8 使用VBA自动生成图表在实际工作中我们常用图表来表现数据间的某种相对关系，一般采用手工插入的方式，而使用VBA代码可以在工作表中自动生成图表，如下面的示例代码。#001SubChartAdd()#002DimmyRangeAsRange#003DimmyChartAsChartObject#004DimRAsInteger#005WithSheet1#006.ChartObjects.Dele

44、te#007R=.Range(A65536).End(xlUp).Row#008SetmyRange=.Range(A&1&:B&R)#009SetmyChart=.ChartObjects.Add(120,40,400,250)#010WithmyChart.Chart#011.ChartType=xlColumnClustered#012.SetSourceDataSource:=myRange,PlotBy:=xlColumns#013.ApplyDataLabelsShowValue:=True#014.HasTitle=True#015.ChartTitle.Text=图表制作示例#

45、016With.ChartTitle.Font#017.Size=20#018.ColorIndex=3#019.Name=华文新魏#020EndWith#021With.ChartArea.Interior#022.ColorIndex=8#023.PatternColorIndex=1#024.Pattern=xlSolid#025EndWith#026With.PlotArea.Interior#027.ColorIndex=35#028.PatternColorIndex=1#029.Pattern=xlSolid#030EndWith#031.SeriesCollection(1).DataLabels.Delete#032With.SeriesCollection(2).DataLabels.Font#033.Size=10#034.ColorIndex=5#035EndWith#036EndWith#037EndWith#038SetmyRange=Nothing#039SetmyChart=Nothing#040EndSub代码解析：ChartAdd过程在工作表中自动生成图表，图表类型为簇状柱形图。第6行代码使用Delete方法删除工作表中已经存在的图表，而ChartObjects方法返回代表工作表中单个嵌入图表（ChartObject对象）或所有