Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Transparency.Type = cdrFountainTransparency Then s.Transparency.Fountain.SetAngle 45 End If Next sEnd Sub