Изменение размера всех рисунков в книге - VBA

Формулировка задачи:

Доброе утро. Есть книга в которой много листов. На каждом листе кроме первого содержатся рисунки. Нужно сделать размер всех рисунков одинаковым. Как изменить размеры рисунков на одном листе я представление имею. А вот как сделать перебор листов не представляю. Подскажите пожалуйста.

Решение задачи: «Изменение размера всех рисунков в книге»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Test()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Pictures.Count > 0 Then
           With ws.Pictures.ShapeRange
                .LockAspectRatio = msoFalse
                .Height = 100
                .Width = 100
           End With
        End If
    Next
End Sub

Оцени полезность:

10 голосов , оценка 4.3 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы