Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Использование функции "отразить слева направо" в макросе. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование функции "отразить слева направо" в макросе. (Макросы/Sub)
Использование функции "отразить слева направо" в макросе.
Glass4217 Дата: Вторник, 28.05.2019, 14:17 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, ребята.
У меня есть вопрос по программе Excel 2013.

Суть вопроса такова:
Есть группа фигур "Группа 4"
И в экселе есть такая функция во вкладке Формат - "отразить слева направо" (я привел скриншот этой функции)

Как макросом - сделать отобразить эту группу - по горизонтали (не удаляя при этом основную группу, а расположив ее рядом) ?
То есть как макросом - создать такую же группу, но отображенную слева направо - и расположить ее рядом - по правую сторону.
К сообщению приложен файл: 2544507.xls (58.0 Kb)
 
Ответить
СообщениеЗдравствуйте, ребята.
У меня есть вопрос по программе Excel 2013.

Суть вопроса такова:
Есть группа фигур "Группа 4"
И в экселе есть такая функция во вкладке Формат - "отразить слева направо" (я привел скриншот этой функции)

Как макросом - сделать отобразить эту группу - по горизонтали (не удаляя при этом основную группу, а расположив ее рядом) ?
То есть как макросом - создать такую же группу, но отображенную слева направо - и расположить ее рядом - по правую сторону.
Автор - Glass4217
Дата добавления - 28.05.2019 в 14:17
sboy Дата: Вторник, 28.05.2019, 14:37 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Выделяете нужную группу, запускаете макрос
[vba]
Код
Sub flip_sh()
    Set sh1 = Selection
    Set sh2 = sh1.Duplicate
    With sh2
        .ShapeRange.Flip msoFlipHorizontal
        .Top = sh1.Top
        .Left = sh1.Left + sh1.Width
    End With
End Sub
[/vba]
К сообщению приложен файл: 6146188.xls (66.5 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Выделяете нужную группу, запускаете макрос
[vba]
Код
Sub flip_sh()
    Set sh1 = Selection
    Set sh2 = sh1.Duplicate
    With sh2
        .ShapeRange.Flip msoFlipHorizontal
        .Top = sh1.Top
        .Left = sh1.Left + sh1.Width
    End With
End Sub
[/vba]
Автор - sboy
Дата добавления - 28.05.2019 в 14:37
krosav4ig Дата: Вторник, 28.05.2019, 14:38 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Sub xx()
    With [Группа 4].ShapeRange.Duplicate
        .Left = .Left + .Width - 12
        .Top = .Top - 12
        .Flip 0
    End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 28.05.2019, 14:38
 
Ответить
Сообщение[vba]
Код
Sub xx()
    With [Группа 4].ShapeRange.Duplicate
        .Left = .Left + .Width - 12
        .Top = .Top - 12
        .Flip 0
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 28.05.2019 в 14:38
Glass4217 Дата: Среда, 29.05.2019, 14:36 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
krosav4ig, sboy, спасибо за ответы.
Оба варианта - работают.
 
Ответить
Сообщениеkrosav4ig, sboy, спасибо за ответы.
Оба варианта - работают.
Автор - Glass4217
Дата добавления - 29.05.2019 в 14:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Использование функции "отразить слева направо" в макросе. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!