MS Excel

Téma: Otevření Corelu

Zaslal/a Zbynek77 3.1.2017 16:39

Dobrý den,
mám makro v excelu, kterým po kliknutí na obrázek vytvořený v Corelu otevírám program CorelDraw
(kreslící program). Vždy se mně ale otevře v malém okně. Jak předám parametr aby se okno Corelu maximalizovalo. Děkuji.

Sub OtevreCorel()

Selection.Verb Verb:=xlOpen

End Sub

Zaslat odpověď >

xlnc(3.1.2017 18:10)citovat#034161

Zmatenost je to správné slovo.

Jeza.m(5.1.2017 16:08)citovat#034226

Odpovím otázkou.
Cílem je spustit vložený OLE objekt (nějaký soubor Corelu), nebo spustit čistě Aplikaci Corel?

Vzhledem k verbu to vypadá na OLE, s čímž neporadím.
Pokud bych ale chtěl pustit Corel jako takový, tak použiji příkaz Shell, jehož parametrem je i styl okna.

M@

Zbynek77(6.1.2017 19:22)citovat#034285

V excelu mám obrázek, který jsem vytvořil v corelu. Pokud na obrázek kliknu pravým tlačítkem,nabídne excel "corel open" Aplikaci Corel takto spustím bez problému, ale vždy je corel minimalizován. Potřebuji aby se corel automaticky maximalizoval na celou obrazovku.
Pokud spouštím corel jako samostatný program bez excelu je okno vždy na celou obrazovku.

Jeza.m(9.1.2017 16:21)citovat#034355

S OLE objekty je to složitější.
krom xlOpen, může být i xlPrimary, což asi nepomůže.

Pak je otázka, jestli se Corel otevírá opravdu minimalizovaný, nebo jen na pozadí (pod Excelem), což se mi jeví pravděpodobnější a pak by mohlo stačit po tom Verbu minimalizovat okno excelu. Případně vyzkoušet přidat příkaz
AppActivate "Corel"
ten "Corel" jen tipuju :-)

Jiank se obávám, že žádná jiná jednoduchá cesta skrze OLE objekt nevede.

M@

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.