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

Вход

Регистрация

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

 

= Мир MS Excel/Сменить размер в активном листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сменить размер в активном листе (Макросы/Sub)
Сменить размер в активном листе
NemoSUN Дата: Четверг, 17.09.2020, 17:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код

Sub Size107()
        Dim ws As Worksheet
        For Each ws In Worksheets
            If ws.Pictures.Count > 0 Then
               With ws.Pictures.ShapeRange
                    .LockAspectRatio = msoTrue
                    .Height = 107
               End With
            End If
        Next
    End Sub
[/vba]

Нужно чтобы картинки менялись не во всём документе, а только в активном, открытом листе. Что дописать к Worksheets непонимаю.

Помогите пожалуйста ))))
 
Ответить
Сообщение[vba]
Код

Sub Size107()
        Dim ws As Worksheet
        For Each ws In Worksheets
            If ws.Pictures.Count > 0 Then
               With ws.Pictures.ShapeRange
                    .LockAspectRatio = msoTrue
                    .Height = 107
               End With
            End If
        Next
    End Sub
[/vba]

Нужно чтобы картинки менялись не во всём документе, а только в активном, открытом листе. Что дописать к Worksheets непонимаю.

Помогите пожалуйста ))))

Автор - NemoSUN
Дата добавления - 17.09.2020 в 17:05
Pelena Дата: Четверг, 17.09.2020, 17:30 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16646
Репутация: 3599 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Цикл по листам убрать, видимо
[vba]
Код
Sub Size107()
        Dim ws As Worksheet
        Set ws = Activesheet
        If ws.Pictures.Count > 0 Then
            With ws.Pictures.ShapeRange
                    .LockAspectRatio = msoTrue
                    .Height = 107
            End With
        End If
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЦикл по листам убрать, видимо
[vba]
Код
Sub Size107()
        Dim ws As Worksheet
        Set ws = Activesheet
        If ws.Pictures.Count > 0 Then
            With ws.Pictures.ShapeRange
                    .LockAspectRatio = msoTrue
                    .Height = 107
            End With
        End If
End Sub
[/vba]

Автор - Pelena
Дата добавления - 17.09.2020 в 17:30
krosav4ig Дата: Четверг, 17.09.2020, 22:23 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2323
Репутация: 976 ±
Замечаний: 0% ±

Excel 2007,2010,2013
или заменить [vba]
Код
Worksheets
[/vba] на [vba]
Код
ActiveWindow.SelectedSheets
[/vba], если нужно выполнить код на всех выделенных листах


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеили заменить [vba]
Код
Worksheets
[/vba] на [vba]
Код
ActiveWindow.SelectedSheets
[/vba], если нужно выполнить код на всех выделенных листах

Автор - krosav4ig
Дата добавления - 17.09.2020 в 22:23
NemoSUN Дата: Пятница, 18.09.2020, 14:09 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
или заменить

Worksheets
на

ActiveWindow.SelectedSheets
, если нужно выполнить код на всех выделенных листах


Спасибо )
 
Ответить
Сообщение
или заменить

Worksheets
на

ActiveWindow.SelectedSheets
, если нужно выполнить код на всех выделенных листах


Спасибо )

Автор - NemoSUN
Дата добавления - 18.09.2020 в 14:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сменить размер в активном листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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