PC-HELP.CZ

Dobrý den,

jak mohu pomocí VBA upravit rozněr aktuálně vybraného/ných objektu/ů nebo obrázku/ů.

Do XLS vložím libovolný obrázek z externího souboru a ten potřebuji upravit na výšku např. 7,2cm se zachováním proporcí.
Ideálně umístit na určitou pozici. Toto ale není nutné.

Myslel jsem si, že lze řečit záznamem makra. Každý obrázek má po vložení vlastní pojmenování, pořadové číslo. Tudy tedy cesta nevedla.

Makro by mělo fungovat na tlačítko ve verzi 2003 i 2010. Prioritně však 2010

Děkuji. MK

Ahoj,
zkus kouknout do posledniho priloženého souboru
http://www.pc-help.cz/viewtopic.php?f=35&t=75936&p=567412&hilit=fotka#p567412

Dobrý den,

odkazovaný skript by měl vložit z určitého místa obrázek.

Já bych spíše potřeboval vybraný obrázek nebo obrázky jen upravit rozměrově při zachování poměru stran.
Např.: vybraný obrázek/y - klik tlačítko - upraví výšku na 10cm - když nic nebybráno, chybová hláška - konec

Nebo jsem špatně četl.

Použil jsem toto, ale bez výběru hde do chyby, což není uživatelsky dobré:

Selection.ShapeRange.Height = 226.7716535433

MK

Ahoj,
ano ten předchozí příspěvek vloží obrázek do požadovaného místa s požadovanou velikostí.
(bylo psáno Ideálně umístit na určitou pozici. Toto ale není nutné.)

Tak to vyřeš třeba takto

Děkuji, pokud budu chtít odstranit hlášku o provedeném OK změnšení, nedaří se mit o pouhým smazáním
GoTo zmeneno
a
zmeneno:
MsgBox "Objekty upraveny".

Jak lze udělat jinak?

Smažeš toto:

To jsem provedl:
On Error GoTo preskoc
Selection.ShapeRange.Height = 235.2755905512

preskoc:
MsgBox "Nic nevybrano"
End Sub

pote vykakuje hlaska nic nevybrano i když je vybrany objekt. K úpravě dojde. Hlášení je ale zbytečné.

Mělo se smazat jen toto:

Ok, toto je v pořádku. Děkuji

Jelikož se téma v poslední době objevilo na různých místech, zpracoval jsem vlastní článek:

http://excelplus.net/news.php?readmore=143