VBA Excel - komprese obrázku

[MK_Vs]

Dobrý den,

v rámci VBA v Excel 2010 upravuji velkost obrázku dle potřeby. Po jeho zmenšení bych však uvítal i možnost komprese a odstranění ořezaných části na 200dpi.
Pokud použiji záznam, VBA pro tyto kroky není zaznamenáno.

Jaké je prosím syntaxe pro zmenšení obrázku,

Děkuji.

[Reklama]

[guest]

Zkuste něco ve smyslu:

Kód: Vybrat vše

Application.SendKeys "%(oe)~{TAB}~"
Application.CommandBars.ExecuteMso "PicturesCompress"

Dialog je jasný, klávesová sekvence SendKeys se prostě zpravidla dává před příkaz pro zobrazení dialogu a "něco s ním dělá". A to něco si budete muset vyzkoušet (kombinace CTRL+ALT+TAB apod. aby nafintilo chování uživatele při práci s volbami dialogu a ovládacími prvky.

Jinak viz Google: "excel vba compress picture"