Private Sub UpdateChart()
Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 300
CurrentChart.Parent.Height = 150
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)
End Sub
روش کار به این صورت است که ابتدا نموداری که می خواهید در فرم دیده شود را به صورت یک تصویر با نام temp.gif درون پوشه محل خود فایل اکسل ذخیره می شود و سپس برای نمایش آن در فرم از یک کنترل Image استفاده شده است و شما در واقع عکس نمودار را بر روی فرم مشاهده می کنید !
