Перейти к основному содержанию

Как повернуть изображение на основе значения ячейки в Excel?

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

Поворот изображения на основе значения ячейки с помощью кода макроса


Поворот изображения на основе значения ячейки с помощью кода макроса

Только код макроса может помочь вам повернуть изображение на основе значения ячейки в Excel.

1. Введите значение в ячейку A1, на которую вы будете вращать изображение, а затем активируйте изображение, которое вы хотите повернуть.

2. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули вставить новый бланк Модули. См. Снимок экрана:
документ повернуть изображение по ячейке 2

3. Вставьте приведенный ниже код в Модули скрипт, затем нажмите F5 для запуска кода. Смотрите скриншот:

VBA: повернуть изображение по значению ячейки

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

документ повернуть изображение по ячейке 3
документ повернуть изображение по ячейке 1

Примечание: в коде A1 - это ячейка, на основе которой вы хотите повернуть изображение, вы можете изменить ее по своему усмотрению.


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

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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