[已解决]怎么在窗体中添加excel工作表中的图表？

roy_1000

怎样在vba窗体中添加excel工作表中的图表？

最佳答案

月排行榜 / 总排行榜

happym8888

2012-1-19 19:32

给你网上找了一些资料，供参考。其原理是把图表转换成GIF图片，再加载。关键代码是下面几句：

1. Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
   
2. CurrentChart.Export FileName:=Fname, FilterName:="GIF"
   
3. Image1.Picture = LoadPicture(Fname)

复制代码

详细见附件：
EXCEL图表嵌入窗体.rar (11.83 KB, 下载次数: 327)

2012-1-19 19:32 上传

点击文件名下载附件

跳转到最佳答案楼层

happym8888

给你网上找了一些资料，供参考。其原理是把图表转换成GIF图片，再加载。关键代码是下面几句：

1. Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
   
2. CurrentChart.Export FileName:=Fname, FilterName:="GIF"
   
3. Image1.Picture = LoadPicture(Fname)

复制代码

详细见附件：
EXCEL图表嵌入窗体.rar (11.83 KB, 下载次数: 327)

2012-1-19 19:32 上传

点击文件名下载附件

wenchduan

图表功能基本不会，看看怎么解决的学习一下！

ztccsj

wenchduan 发表于 2012-1-20 13:42
图表功能基本不会，看看怎么解决的学习一下！

谦虚会让你升入大学的

hzg303

从上往下找出A列中和6最接近的3个数，设置为红色字体