VBA常用技巧代码解析

lvxuehai · 发表于 2009-3-7 22:15

好好收藏,都是实用的好东东多谢版主分享此帖是本人在EXCEL home的第一帖以前只看不回现在忍不住了楼主精神值得佩服

liucs1983 · 发表于 2009-3-7 23:30

向楼主大人致敬！好久没来home了，今天晚上
发现宝贝了我！

wellda · 发表于 2009-3-8 06:04

版主，第四部分什么时候能打包下载？

yuanzhuping · 发表于 2009-3-8 11:28

技巧61 使用独立窗口显示图表
如果需要将工作表中嵌入的图表显示在独立的窗口中，可以使用下面的代码。

#001 Sub ChartShow()
#002 With Sheet1.ChartObjects(1)
#003 .Activate
#004 .Chart.ShowWindow = True
#005 End With
#006 With ActiveWindow
#007 .Top = 50
#008 .Left = 50
#009 .Width = 400
#010 .Height = 280
#011 .Caption = ThisWorkbook.Name
#012 End With
#013 End Sub

复制代码

代码解析：
   ChartShow过程，将工作表中嵌入的图表显示在独立的窗口中。
   第2行到第5行代码将工作表中指定图表的ShowWindow属性设置为True，使用独立的窗口显示该图表。
   第7、8行代码指定活动窗口显示的位置。
   第9、10行代码调整活动窗口的大小使之适应图表的大小。
   第11行代码指定活动窗口标题栏中显示的标题。
   运行ChartShow过程结果如图所示。

yuanzhuping · 发表于 2009-3-8 11:33

原帖由 wellda 于 2009-3-8 06:04 发表
版主，第四部分什么时候能打包下载？

快了，因为图形与图表平时用的不多，所以需要整理的技巧不是太多，估计明后天就能完成了。

987654321 · 发表于 2009-3-8 12:03

学习了......

987654321 · 发表于 2009-3-8 12:03

如果有WORD版下载就好

[ 本帖最后由 987654321 于 2009-5-5 11:09 编辑 ]

liechun1983 · 发表于 2009-3-8 23:18

袁版,能不能把速度加快一点呀

yuanzhuping · 发表于 2009-3-9 08:28

技巧62 导出工作表中的图表
如果需要将工作表中的图表保存为单独的图像文件，可以使用Export方法以图形文件格式导出图表，示例代码如下。

#001 Sub ExportChart()
#002 Dim myChart As Chart
#003 Dim myFileName As String
#004 Set myChart = Sheet1.ChartObjects(1).Chart
#005 myFileName = "myChart.jpg"
#006 On Error Resume Next
#007 Kill ThisWorkbook.Path & "" & myFileName
#008 myChart.Export Filename:=ThisWorkbook.Path _
#009 & "" & myFileName, Filtername:="JPG"
#010 MsgBox "图表已保存在[" & ThisWorkbook.Path & "]文件夹中!"
#011 Set myChart = Nothing
#012 End Sub

复制代码

代码解析：
   ExportChart过程使用Export方法将工作表中的图表以图形文件的形式导出。
   第4行代码指定工作表中的图表对象。
   第5行代码指定图形文件保存的文件名。
   第6、7行代码使用Kill语句删除文件夹中原有的图形文件。当文件夹中指定删除的文件不存在时Kill语句会出错所以需要使用On Error语句忽略错误。
   第8、9行代码使用Export方法将图表导出到同一目录中，应用于Chart对象的Export方法以图形文件格式导出图表，语法如下：
expression.Export(Filename, FilterName, Interactive)
   其中参数Filename是必需的，被导出的文件的名称，示例中加上了文件保存的路径。
   参数FilterName是可选的，被导出的文件的图形格式，示例中文件以JPG文件格式保存。

lhdcxz · 发表于 2009-3-9 10:25

谢谢yuanzhuping 版主的无私奉献!

		自动登录	找回密码
密码			免费注册

VBA常用技巧代码解析

第4部分 Shape（图形）、Chart（图表）对象

第4部分 Shape（图形）、Chart（图表）对象