[Iska]

несколько форм(shape 1,2,3 итд) »

Рисунков?

к ним хочется применить единые правила оформления »

Так?

Скрытый текст

Код:

Sub Sample()
    Dim objShape As Shape
    
    For Each objShape In ThisDocument.Shapes
        With objShape
            .Visible = msoTriStateToggle
            .BackgroundStyle = msoBackgroundStylePreset10
            
            With .Reflection
                .Type = msoReflectionType1
                .Transparency = 0.5
                .Size = 22
                .Offset = 0
            End With
        End With
    Next objShape
End Sub

Не получается вынести повторяющиеся участки кода в отдельную процедуру-подпрограмму-ошибка компилятора,при инициализации кода макроса. »

Не могу понять вопроса. Возможно ещё и потому, что у меня более ранняя версия Microsoft Office.