Здравствуйте!
Подскажите, пожалуйста, как изменить следующий макрос, чтобы можно были добавлять тень не для исключительно выделенных картинок, но для всех картинок в презентации:
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
Заранее спасибо!
Подскажите, пожалуйста, как изменить следующий макрос, чтобы можно были добавлять тень не для исключительно выделенных картинок, но для всех картинок в презентации:
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
Заранее спасибо!