< návrat zpět

MS Excel

Téma: Velikost obrázku podle velikosti buňky. rss

Zaslal/a Martin_P 5.1.2021 12:25

Dobrý den, prosím o radu. Chtěl bych změnit velikost obrázku v závislosti na velikosti buňky, ta se bude zvětšovat díky funkci zalomení textu; obrázek je na stejném řádku jako text. Našel jsem spoustu postupů jak to udělat, ale obrázek se deformuje (nezachovává si původní poměr, i když je v nastavení zaškrtnuto ZAMKNOUT POMĚR STRAN), roztahuje se pouze do výšky. Používám MS Office 2016. Předem děkuji za radu. Martin

Zaslat odpověď >
Milan-158(12.1.2021 13:14)#049442
avatar
Posílám kus kódu, kde vkládám obrázek (shPodpis As Shape) do buňky (rBunka as Range), a to tak, aby obrázek nepřesahoval velikost buňky ani do výšky ani do šířky:
Zamknutí poměru výška/šířka mám úmyslně zakomentované, ale fungovalo to

Set shPodpis = Worksheets("podpisy").Shapes(strJmeno)
Set rBunka = Worksheets("KryciList").Range("E10")

With shPodpis
.Name = strNazev
' .ShapeRange.LockAspectRatio = msoTrue 'uzamknout poměr šířky a výšky
.Top = rBunka.Top + 2
.Width = rBunka.Width - 2 'roztáhni podpis na šířku buňky
If .Height > rBunka.Height Then
.Height = rBunka.Height - 2 'pokud je vyšší než buňka, tak ten podpis zmenši
Else
.Top = rBunka.Top + (rBunka.Height - .Height) / 2
End If
.Left = rBunka.Left + (rBunka.Width - .Width) / 2 'vycentruj to v buňce vodorovně
End Withcitovat

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