想用VBA在自己设计的窗体中实现excel自带的绘制散点光滑曲线图，窗体是excel的VBA设计

阁子226

想用VBA在自己设计的窗体中实现excel自带的绘制散点光滑曲线图，窗体是excel的VBA设计的

qy1219no2

技巧146         在窗体中显示图表
工作表中的图表是不能直接显示在窗体中的，如果需要在窗体上显示图表，除了使用技巧61 介绍的使用ShowWindow属性将工作表中嵌入的图表显示在独立的窗口中，还可以使用以下的方法。
146-1        使用Export方法
可以把图表以图形格式从工作表中导出，再用窗体上的Image控件把图表显示出来，如下面的代码所示。

1. #001  Private Sub UserForm_Initialize()
   
2. #002      Dim Charts As Chart
   
3. #003      Dim cName As String
   
4. #004      Set Charts = Sheets("Sheet2").ChartObjects(1).Chart
   
5. #005      cName = ThisWorkbook.Path & "\Temp.gif"
   
6. #006      Charts.Export Filename:=cName, FilterName:="GIF"
   
7. #007      Image1.Picture = LoadPicture(cName)
   
8. #008    End Sub

复制代码

代码解析：
窗体的初始化事件过程，窗体加载时将工作表中的图表显示在窗体中。
第4行到第6行代码，使用Export方法把Sheet2表中的第一个图表导出到工作簿的同一目录下。
Export方法以图形格式导出图表，语法如下：
expression.Export(Filename, FilterName, Interactive)
参数expression是必需的，一个有效的对象。
参数Filename是必需的，导出的文件的名称。
本例中设置Filename参数时加上了导出路径，将图形导出到同一文件夹下。
参数FilterName是可选的，导出文件的格式。
第7行代码，设置窗体中Image控件的Picture属性为导出文件的完整路径。
Picture 属性指定显示在对象上的位图，语法如下：
object.Picture = LoadPicture( pathname )
参数expression是必需的，一个有效的对象。
参数pathname是必需的，一个图片文件的完整路径。
为了使窗体关闭时删除导出的图片文件，在窗体的QueryClose事件中写入下面的代码。

1. #001  Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
2. #002      Kill ThisWorkbook.Path & "\Temp.gif"
   
3. #003  End Sub

复制代码

代码解析：
窗体关闭时使用Kill方法删除导出的图片文件。Kill方法的语法如下：
Kill pathname
参数Pathname是必需的，用来指定一个文件名的字符串表达式。Pathname参数可以包含目录或文件夹、以及驱动器。
运行窗体，将工作表的图表显示在窗体中

146-2        使用API函数
可以使用API函数把图表从工作表中导出，再用窗体上的Image控件把图表显示出来，如下面的代码所示。

1. #001  Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
   
2. #002  Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As Long, riid As Any, ppvObj As Any) As Long
   
3. ………代码略详见附件
   
4. #012  Private Declare Function GetClipboardFormatName Lib "user32" Alias "GetClipboardFormatNameA" (ByVal wFormat As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long
   
5. #013  Public Function LoadShapePicture(shp As Object) As IPictureDisp
   
6. #014      Dim nClipsize As Long
   
7. #015      Dim hMem As Long
   
8. #016      Dim lpData As Long
   
9. #017      Dim sdata() As Byte
   
10. #018      Dim fmt As Long
    
11. #019      Dim fmtName As String
    
12. #020      Dim iClipBoardFormatNumber As Long
    
13. #021      Dim IID_IPicture(15)
    
14. ……代码略详见附件
    
15. #058      EmptyClipboard
    
16. #059      CloseClipboard
    
17. #060  End Function
    
18. #061   Private Sub UserForm_Initialize()
    
19. #062      Image1.Picture = LoadShapePicture(Sheet1.ChartObjects(1))
    
20. #063  End Sub

复制代码

代码解析：
第1行到第12行代码API函数声明。
第13行到第60行代码LoadShapePicture函数，导出工作表中的图表。
第61行到第63行代码窗体的初始化事件过程，窗体加载时将工作表中的图表显示在窗体中

阁子226

您好，谢谢您！不知道您说的技巧多少是在哪里看的……还有我的本意是想用VBA编程直接在窗口中生成图表或者能用VBA直接在窗体中调用excel自带的画图表功能，不是想现在表格中生成图然后在把图导到窗体中，这个能给解决下吗？现在在做毕业设计需要用到……烦吗您了

hnwxm

你可以研究一下这个文件

qy1219no2

EXCEL窗体上生成图表，上述方法是可行的，也可能是最简单直接的。其他方法，至今还不知道。毕竟EXCEL是一款封装好了的办公软件，不是一款开放的编程语言。

阁子226

嗯，谢谢，我试试

wanghx8866

下来试试谢谢分享

chenjl_1985

我也有这样的问题呀，下来看看！

hoomean

不明觉厉，留存备查

02761752696

学习学习，谢谢