Изменить положение всех текстовых полей на странице заметок (powerpoint)

Question

Я учусь создавать небольшие макросы для powerpoint.

Я бы хотел изменить положение слайдов на странице заметок.Я создал этот небольшой макрос:

Sub Macro_resize ()
  With ActiveWindow.Selection.ShapeRange
    .Height = 450
    .Width = 510
    .Left = 30
    .Top = 290
  End With
End Sub

Я хотел бы применить его ко всем слайдам, как я могу это сделать?

Answer 1

Я бы порекомендовал вам не работать с функцией Select..Вам лучше Dim ваш диапазон (все слайды) и обратиться к этому диапазону.

Sub macro_resize()
Dim sld As Object
Dim shp As Object

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        With shp.Range
            .Height = 450
            .Width = 510
            .Left = 30
            .Top = 290
        End With
    Next
Next
End Sub