Note: The other languages of the website are Google-translated. Back to English

Jak otočit obrázek na základě hodnoty buňky v aplikaci Excel?

V aplikaci Excel můžeme obrázek otočit přetažením myši, ale zkusili jste někdy obrázek otočit na základě hodnoty buňky. Například bude obrázek otočen o 90 stupňů, pokud je hodnota buňky 90 v buňce A1, jak je uvedeno níže.
doc otočit obrázek o buňku 1

Otočit obrázek na základě hodnoty buňky pomocí kódu makra

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2021 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

Otočit obrázek na základě hodnoty buňky pomocí kódu makra

Pouze kód makra vám může pomoci otočit obrázek na základě hodnoty buňky v aplikaci Excel.

1. Zadejte hodnotu do buňky A1, podle které obrázek otočíte, a poté aktivujte obrázek, který chcete otočit.

2. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno a klikněte na Vložit > Modul vložit prázdné nové Modul. Viz Screenshot:
doc otočit obrázek o buňku 2

3. Vložte níže uvedený kód do Modul skript a stiskněte F5 spustit kód. Viz snímek obrazovky:

VBA: Otočit obrázek podle hodnoty buňky

Sub RotateImage()
Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value
End Sub

doc otočit obrázek o buňku 3
doc otočit obrázek o buňku 1

Poznámka: v kódu je A1 buňka, na které chcete obrázek otočit, podle potřeby jej můžete změnit.


Relativní články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
To je to, co chci udělat s obrázkem, ale chci, aby se pokaždé otočil ze svislé polohy o tolik stupňů, kolik se v buňce uvádí. Řekněme však, že buňka říká 30, otočí se o 30 stupňů, ale pokud se hodnota buňky změní na 15, otočí se o 15 z pozice 30 (45 od svislice). Chci, aby se tentokrát otočil o 15 od svislice. Existuje způsob, jak to udělat?


Díky!
Tento komentář byl moderátorem webu minimalizován
Ahoj, taky mám stejný požadavek. Přišli jste náhodou na to, jak si nechat obrázek pokaždé otočit z "nuly"?
Tento komentář byl moderátorem webu minimalizován
Omlouvám se, že o tomto problému nemám ponětí. Svůj problém můžete umístit do našeho fóra, možná vám někdo pomůže vyřešit jej. https://www.extendoffice.com/forum.html
Tento komentář byl moderátorem webu minimalizován
Vezměte kód shora:

Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

A upravte to takto:

Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
Tento komentář byl moderátorem webu minimalizován
Vezměte kód shora:

Selection.ShapeRange.IncrementRotation ActiveSheet.Range("A1").Value

A upravte to takto:

Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL