как вставить в userform график из excel ?

[Danilka]

Добрый день всем !
пишу программульку в excel - после диалогового окна с выбором параметров должен появиться график в новом окне -
пока это удалось сделать так
создаем график в отдельном листе,
сохраняем этот лист виде веб страницы
загружаем в окно gif из веб страницы ...
этож геморрой ... как бы это по уму сделать ?
C уважением,
Danilka

[GSerg]

Я делал так.

Код: Выделить всё

Chart.CopyPicture xlScreen, xlBitmap, xlScreen
OpenClipboard 0
h = CopyImage(GetClipboardData(2), 0, 0, 0, 0) 'vbcfbitmap
CloseClipboard
Me.Picture = GetPicture(h)

...
Private Function GetPicture(ByVal hPic As Long) As IPictureDisp
  Dim p As PicBmp, g As GUID
 
  With p
    .hBmp = hPic
    .Size = Len(p)
    .Type = 1 'vbpictypebitmap
  End With
 
  'IDispatch
  With g
    .Data1 = &H20400
    .Data4(0) = &HC0
    .Data4(7) = &H46
  End With
 
  OleCreatePictureIndirect p, g, 1, GetPicture
End Function