Sub Test() Dim s As Shape For Each s In ActivePage.Shapes If s.Type = cdrBlendGroupShape Then s.Effect.Blend.StartShape.Fill.UniformColor.RGBAssign 255, 255, 0 s.Effect.Blend.EndShape.Fill.UniformColor.RGBAssign 0, 128, 0 End If Next sEnd Sub