MS Excel

Ukázka kodu, kde nejdřív graf převedu na obrázek a ten následně umístím do ovládacího prvku "image" v userformu.

Private Sub ZobrazitGraf()
Dim Dateiname As String, Graf As Chart
Sheets("graf").Visible = -1
Sheets("graf").Activate
Set Graf = Sheets("graf").ChartObjects(1).Chart
Dateiname = "graf.gif"
Graf.Export Filename:=Dateiname, FilterName:="GIF"
Image1.Picture = LoadPicture(Dateiname)
End Subcitovat

Obávám se, že jinak než přes dočasné uložení souboru s obrázkem na disk to nepůjde.

M@citovat

Tomu asi moc nerozumím :-).
Do userform lze načíst obrázek ze souboru na disku, tento ovšem opět ze souboru lze načíst i do listu.
Určitě to lze i nějakým způsobem přes schránku, ale to už hodně složitě.

M@citovat