Excel VBA实例教程 #054：导出工作表中的图片.doc

有时需要将工作表中的图形对象保存为单独的图像文件,可以使用Export方法将工作表中的图片以文件形式导出,如下面的代码所示。SubExportShp()  DimShpAsShape  DimFileNameAsString        =msoPictureThen        FileName=&"\"&&".gif"                (0,0,+28,+30).Chart          .Paste          .ExportFileName,"gif"          .        EndWith      EndIf  NextEndSub代码解析:ExportShp过程将Sheet1工作表的所有图片以文件形式导出到同一目录中。第4行代码使用ForEach...Next语句遍历Sheet1工作表中的所有图形。第5行代码判断图形的类型是否为图片,应用于Shape对象的Type属性返回或设置图形类型,可以为表格1所示的MsoShapeType常量之一。常量值说明msoShapeTypeMixed-ment4批注msoFreeform5任意多边形msoGroup6图形组合msoFormControl8窗体控件msoLine9线条msoLinkedOLEObject10链接式或内嵌OLE对象msoLinkedPicture11剪贴画或图片msoOLEControlObject12ActiveX控件msoPicture13图片msoTextEffect15艺术字msoTextBox17文本框msoDiagram21组织结构图或其他图示表格1MsoShapeType常量第6行代码使用字符串变量FileName记录需导出图形的路径和名称。第7行代码复制图形,应用于Shape对象的Copy方法将对象复制到剪贴板。第8行代码使用Add方法在工作表中添加一个图表,应用于ChartObjects对象的Add方法创建新的嵌入图表,语法如下:(Left,Top,Width,Height)参数expression是必需的,返回一个ChartObjects对象。参数Left、参数Top是必需的,以磅为单位给出新对象的初始坐标,该坐标是相对于工作表上单元格A1的左上角或图表的左上角的坐标。参数Width、参数Hei