Сменить размер в активном листе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сменить размер в активном листе (Макросы/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 непонимаю.

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

Ответить

Pelena

Дата: Четверг, 17.09.2020, 17:30 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & 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]