Dalši pokus
Zkus to
Poki, děkuji moc.
Prosím o radu. Potřeboval bych měnit obrázek ve formulářovém prvku Image na základě procedury, ale nevím jestli je to možné. Kdyby to šlo, aby obrázky mohly byt uloženy přímo v sešitě, kde je UserForm.
První problém jsem vyřešil, ten druhy nevím.
Tak jsem vytvořil další vzorečky.
Omlouvám se, ale zase se vloudila chybička.
Tady ještě kontingenční tabulka
Omlouvám se, ale nějak se mi nepovedlo připojit soubor, tak znovu.
Tady je malá ukázka.
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 Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.