MS Excel

Téma: scan v okně

Zaslal/a george 16.2.2011 17:09

zdravím,
narazil jsem na problém, který zatím neumím rozumně vyřešit.
potřebuji z nascanovaných dokumentů (formát tif) vypsat (samozřejmě ručně) základní data. Umím si vytvořit seznam obrázků a otevřít jej. Ale nevím jak na to, abych to mohl udělat pomocí VBA v okně listu, kde by byl i horní řádek na vyplnění dat. Pak odeslat do seznamu a otevřít další obrázek. Jde to v EXCELu? Nevím jak na to., Moc děkuji za radu.

Zaslat odpověď >

RomanNTA(16.2.2011 23:14)#004128

Myslím, že stačí se nejdříve postavit na buňku níže a pak vložit obrázek. On se vloží podle levého horního rohu aktivní buňky a levého horního rohu obrázku.
Zkus se raději podívat na OMNIPAGE 17 nebo podobný soft. R.citovat

George(16.2.2011 23:46)#004129

dík za radu. Co je omnipage17?
Já to potřebuji vkládat ve VBA. V buňce mám název souboru podle výběru, Adresář také znám. Tak "jen" otevřít náhled v okně na stránce.citovat

George(16.2.2011 23:52)#004130

mě pod omnipage17 vyskakuje OCR software. To nepotřebuji.
Tady se jedná o různé doklady, kde mají data na různých místech a v různé formě. Tady to bez lidského zásahu nepůjde. Jen to chci zjednodušit. Tj. obrázek ze kterého se bude čerpat i buňky kam se to vyplní chci na jedné obrazovce. Jinak nepotřebuji žádnou spojitost.citovat

Poki(17.2.2011 9:00)#004133

vlozeni lze provest takto:
ActiveSheet.Pictures.Insert "C:\Obrázky\doklad.jpg", Range("D10")citovat

George(17.2.2011 11:01)#004134

To je přesně ono. Super. Funguje.
Jen dotaz - kde bych našel nějý popis parametrů jak s tím pracovat?

Zatím se mi to zobrazuje na středu stránky bez ohledu jakou buňku v příkazu vyberu. Ale to bych asi uměl obejít rozložením prvků.
Jak se prosím programem tento obrázek zavře? Ručně to jde, ale když se jich otevře víc nad sebou je to pomalé.

Strašně moc děkuji. Mohu se nějak revažovat?citovat

Poki(18.2.2011 9:19)#004145

tady jsou nejake vlastnosti obrazku:
'nastavení pozice zhora a zleva
ActiveSheet.Pictures(1).Top = 200
ActiveSheet.Pictures(1).Left = 200

'nastavení velikosti sirky a vysky
ActiveSheet.Pictures(1).Width = 200
ActiveSheet.Pictures(1).Height = 100

'odstraneni obrazku
ActiveSheet.Pictures(1).Deletecitovat

George(18.2.2011 9:52)#004146

Díky moooc. Na zavření obrázku jsem metodou pokus - omyl přišel. Ty rozměry a umístění se mi hodí. Krásný den a velký dík.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.