Velikost objektu/obrazku v XLS pomocí VBA Vyřešeno

[MK_Vs]

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

[Reklama]

[cmuch]

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

[MK_Vs]

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

[cmuch]

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

Kód: Vybrat vše

On Error GoTo preskoc
Selection.ShapeRange.Height = 226.7716535433
GoTo zmeneno

preskoc:
MsgBox "Nic nevybrano"

zmeneno:
MsgBox "Objekty upraveny"


[MK_Vs]

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?

[cmuch]

Smažeš toto:

Kód: Vybrat vše

GoTo zmeneno

zmeneno:
MsgBox "Objekty upraveny"

[MK_Vs]

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é.

[cmuch]

Mělo se smazat jen toto:

Kód: Vybrat vše

MsgBox "Objekty upraveny"

[MK_Vs]

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

[guest]

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