[求助]柱状图能显示在窗体上吗

zbs112 · 发表于 2006-5-19 15:40

DxzMYFlz.rar (19.64 KB, 下载次数: 175)

wclaw · 发表于 2006-5-23 05:15

FormChart Example

VTO7cCMT.rar (11.22 KB, 下载次数: 231)

zbs112 · 发表于 2006-5-23 08:49

谢谢wclaw提供相似的例子! 现在这个时间段营业柱状图不知道要怎么加上？请各位帮忙。

hz7WKLu5.rar (18.99 KB, 下载次数: 29) Private Sub UserForm_Initialize() UpdateChart End Sub Private Sub UpdateChart() Set CurrentChart = Sheets("sheet1").ChartObjects(营业收入).Chart CurrentChart.Parent.Width = 410 CurrentChart.Parent.Height = 192 Fname = ThisWorkbook.Path & Application.PathSeparator & "Temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" Image1.Picture = LoadPicture(Fname) End Sub

[此贴子已经被作者于2006-5-23 8:57:11编辑过]

qee用 · 发表于 2006-5-23 08:49

以下引用wclaw在2006-5-23 5:15:17提供的实例:
Private Sub UpdateChart()
Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 300
CurrentChart.Parent.Height = 150
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub

谢谢,好办法!

qee用 · 发表于 2006-5-23 08:59

Set CurrentChart = Sheets("Sheet1").ChartObjects("Chart 14").Chart
或
Set CurrentChart = Sheets("Sheet1").ChartObjects(1).Chart

zbs112 · 发表于 2006-5-23 09:14

KrPVjfq2.rar (20.4 KB, 下载次数: 614) 真是绝！

jdmlw · 发表于 2010-10-26 00:49

谢谢了，夜深了

pan1255 · 发表于 2010-10-26 08:37

学习了，呵呵好方法啊

田野上的白杨树 · 发表于 2012-7-27 21:56

好的思路得出好的显示效果，谢谢了

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

[求助]柱状图能显示在窗体上吗

[求助]这个时间段营业柱状图不知要怎么加上？

加载营业柱状图成功

浏览过的版块