VBA常用技巧代码解析

lvxuehai

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

liucs1983

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

wellda

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

yuanzhuping

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

1. #001  Sub ChartShow()
   
2. #002      With Sheet1.ChartObjects(1)
   
3. #003          .Activate
   
4. #004          .Chart.ShowWindow = True
   
5. #005      End With
   
6. #006      With ActiveWindow
   
7. #007          .Top = 50
   
8. #008          .Left = 50
   
9. #009          .Width = 400
   
10. #010          .Height = 280
    
11. #011          .Caption = ThisWorkbook.Name
    
12. #012      End With
    
13. #013  End Sub

复制代码

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

yuanzhuping

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

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

987654321

学习了......

987654321

如果有WORD版下载就好

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

liechun1983

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

yuanzhuping

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

1. #001  Sub ExportChart()
   
2. #002      Dim myChart As Chart
   
3. #003      Dim myFileName As String
   
4. #004      Set myChart = Sheet1.ChartObjects(1).Chart
   
5. #005      myFileName = "myChart.jpg"
   
6. #006      On Error Resume Next
   
7. #007      Kill ThisWorkbook.Path & "" & myFileName
   
8. #008      myChart.Export Filename:=ThisWorkbook.Path _
   
9. #009          & "" & myFileName, Filtername:="JPG"
   
10. #010      MsgBox "图表已保存在[" & ThisWorkbook.Path & "]文件夹中!"
    
11. #011      Set myChart = Nothing
    
12. #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

谢谢yuanzhuping 版主的无私奉献!