Изменение размера всех рисунков в книге - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д