Przejdź do głównej zawartości

Jak obrócić obraz na podstawie wartości komórki w programie Excel?

W programie Excel możemy obrócić obraz, przeciągając myszą, ale czy kiedykolwiek próbowałeś obrócić obraz na podstawie wartości komórki. Na przykład obraz zostanie obrócony o 90 stopni, jeśli wartość komórki wynosi 90 w komórce A1, jak pokazano poniżej.
doc obróć obraz według komórki 1

Obróć obraz na podstawie wartości komórki z kodem makra


Obróć obraz na podstawie wartości komórki z kodem makra

Tylko kod makra może pomóc w obróceniu obrazu na podstawie wartości komórki w programie Excel.

1. Wpisz wartość do komórki A1, o którą będziesz obracać obraz, a następnie aktywuj obraz, który chcesz obrócić.

2. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno i kliknij wstawka > Moduł wstaw nowe puste miejsce Moduł. Zobacz zrzut ekranu:
doc obróć obraz według komórki 2

3. Wklej poniższy kod do pliku Moduł skrypt, a następnie naciśnij F5 uruchomić kod. Zobacz zrzut ekranu:

VBA: Obróć obraz według wartości komórki

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

doc obróć obraz według komórki 3
doc obróć obraz według komórki 1

Uwaga: w kodzie A1 to komórka, na podstawie której chcesz obrócić obraz, możesz ją zmienić według potrzeb.


Względne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is what I want to do to an image, but I want it to rotate from the vertical position by however many degrees the cell states each time. However, say the cell says 30, it will rotate 30 degrees, but then if the cell value changes to 15, it will rotate 15 from the 30 position (45 from the vertical). I want it to rotate 15 from the vertical this time. Is there a way to do this?


Thanks!
This comment was minimized by the moderator on the site
Take the code from above:

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

And modify it like so:

Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
This comment was minimized by the moderator on the site
Hey there, I have the same requirement too. Have you by chance figured out how to have the image rotate from "zero" every time?
This comment was minimized by the moderator on the site
Sorry I have no idea about this problem. You can place your prolem in out forum, maybe someone can help you solve it. https://www.extendoffice.com/forum.html
This comment was minimized by the moderator on the site
Take the code from above:

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

And modify it like so:

Selection.ShapeRange.Rotation = ActiveSheet.Range("A1").Value
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations