Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос для добавление тени для всех картинок в Power Point
 
Здравствуйте!

Подскажите, пожалуйста, как изменить следующий макрос, чтобы можно были добавлять тень не  для исключительно выделенных картинок, но для всех картинок в презентации:

Sub MakeShadow()
   Dim i As Integer
   With ActiveWindow.Selection.ShapeRange.shadow
       For i = 1 To 2
           .ForeColor.RGB = RGB(220, 220, 220)
           .Transparency = 0.35
           .Visible = True
           .Blur = 10
           .OffsetX = 5
           .OffsetY = 5
       Next i
   End With
End Sub

Заранее спасибо!
Страницы: 1
Наверх