Как вставить диаграмму из листа на форму? - VB

Формулировка задачи:

Здравствуйте!
Подскажите, пожалуйста, как вставить диаграмму из листа ActiveSheet на форму UserForm1 в элемент управления, например, Image1?
Или, может быть, какие-нибудь другие, более удобные элементы управления посоветуете?
Спасибо!

Решение задачи: «Как вставить диаграмму из листа на форму?»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> UpdateChart()
    <font color="blue">Set</font> CurrentChart = Ëèñò<font color="darkblue"><b>1</b></font>.ChartObjects(<font color="darkblue"><b>1</b></font>).Chart
    CurrentChart.Parent.<font color="blue">Width</font> = <font color="darkblue"><b>300</b></font>
    CurrentChart.Parent.Height = <font color="darkblue"><b>150</b></font>

<font color="00AA00">'   Сохранение графика картинкой GIF</font>
    Fname = ThisWorkbook.Path & Application.PathSeparator & <font color="teal">"temp.gif"</font>
    CurrentChart.Export Filename:=Fname, FilterName:=<font color="teal">"GIF"</font>

<font color="00AA00">'   Отображение картинки chart в контрол Image1</font>
    Image1.Picture = LoadPicture(Fname)
<font color="blue">End</font> <font color="blue">Sub</font>

                        