Прескочи на основното съдържание

Как да завъртя изображение въз основа на стойност на клетка в Excel?

Автор: Слънце Последна промяна: 2017-08-23

В Excel можем да завъртим изображението чрез плъзгане на мишката, но опитвали ли сте някога да завъртите изображение въз основа на стойност на клетка. Например, изображението ще бъде завъртяно на 90 градуса, ако стойността на клетката е 90 в клетка A1, както е показано на екранната снимка по-долу.
doc завъртане на изображението по клетка 1

Завъртете изображение въз основа на стойността на клетката с макро код


Завъртете изображение въз основа на стойността на клетката с макро код

Само макро код може да ви помогне да завъртите изображение въз основа на стойност на клетка в Excel.

1. Въведете стойност в клетка A1, по която ще завъртите изображението, и след това активирайте изображението, което искате да завъртите.

2. Натиснете Alt + F11 клавиши за активиране на Microsoft Visual Basic за приложения прозорец и щракнете Поставете > Модули за да вмъкнете празен нов Модули. Вижте екранна снимка:
doc завъртане на изображението по клетка 2

3. Поставете кода по-долу към Модули скрипт, след което натиснете F5 за да стартирате кода. Вижте екранна снимка:

VBA: Завъртане на изображението по стойност на клетка

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

doc завъртане на изображението по клетка 3
doc завъртане на изображението по клетка 1

Забележка: в кода A1 е клетката, въз основа на която искате да завъртите изображението, можете да го промените според нуждите си.


Относителни статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
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