Страницы: 1
RSS
поворачивание схему по условию, можно ли повернут схему по условию на 90,180 и 270 градусов
 
Добрый день. Иногда в конце расчета зависимая от значение ячейки требуется повернуть картинку (в нашем примере стрелку) на 90,180 и 270 градусов. Как это можно делать? Заранее спасибо.
 
В модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0, xlA1) = "G2" Then
        With Shapes(1)
            .Rotation = 90 * Target.Value
        End With
    End If
End Sub
 
Спасибо, МатросНаЗебре.
Только я в VBA не очень. Без макроса нельзя?  Стрелку надо поворачивать если в желтом ячейке 1-на 90,  2- на 180,  3-на 270 градусов.
 
Цитата
написал:
Только я в VBA не очень.
Ctrl+C Ctrl+V умеете?
Правый клик на ярлычке листа - Исходный текст
В появившемся редакторе кода пишете текст с форума. Желательно не весь, а только с Private Sub до End Sub.
 
bahruzbahruz,  если вместо стрелки использовать символ стрелки.
 
Код
=ВЫБОР(A2;ЮНИСИМВ(11014);ЮНИСИМВ(10145);ЮНИСИМВ(11015))
=ВЫБОР(A2;ЮНИСИМВ(9757);ЮНИСИМВ(9758);ЮНИСИМВ(9759))
Изменено: Тимофеев - 03.07.2024 14:18:33
 
Всем спасибо, что откликнулись. В самом деле не символ надо поворачивать, а картинку. Тогда как быть? Стрелку я для примера взял, чтобы место меньше занимал).  
 
Цитата
bahruzbahruz написал:
Тогда как быть?
тогда только макрос
 
в теории изображений должно быть 3 повернутые в нужных ракурсах (загрузить можно на япикс допустим)
и при наличии офиса 2021 и 365
Код
=ИЗОБРАЖЕНИЕ(ИНДЕКС(B4:B6;ПОИСКПОЗ(A1;A4:A6;0)))
Где B4:B6 - URL крученных фото
Код
=ИЗОБРАЖЕНИЕ("https://i.yapx.ru/XqFTg.jpg")
Изменено: Тимофеев - 03.07.2024 16:20:03
 
Спасибо всем. Я это делал без макроса и очень просто. Если кому интересно смотрите.
 
Кстати кто сталкивался у меня в 2021 вместо изображений в чужих файлах начало недавно появляться
#НЕИЗВЕСТНО!
на примере из поста №10
хотя в папке медиа эти фото лежат
Кто в курсе из-за чего
Страницы: 1
Наверх