[victor21043]

Run time error 445-Объект не поддерживает такого действия

Код:

Sub style()
Dim objShape As Shape

     For Each objShape In ThisDocument.Shapes
        With objShape
            .BackgroundStyle = msoBackgroundStylePreset10     
            With .Reflection
                .Type = msoReflectionType1
                .Transparency = 0.5
                .Size = 22
                .Offset = 0
            End With
        End With
    Next objShape
End Sub

 Public Sub ButtonN_click()
ActiveDocument.Shapes(N).Visible = msoTriStateToggle
Call style
end sub