Страницы: 1
RSS
Макрос для добавление тени для всех картинок в 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

Заранее спасибо!
 
А причём тут  Power Point? У нас форум по Excel.
И код следует оформлять соответствующим тегом. Ищите такую кнопку.
Страницы: 1
Наверх