• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

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

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse