< návrat zpět

MS Excel


Téma: Otevření Corelu rss

Zaslal/a 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ěď >

#034161
avatar
Zmatenost je to správné slovo.citovat
#034226
Jeza.m
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@citovat
#034285
avatar
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.citovat
#034355
Jeza.m
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@citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje