Radial Color Gradient

[Dossfm0q]

Below code fill liner I need to fill Radial Color Gradient

THX

Public Sub RadialColorGradient()


    Dim Shp As Shape
    With ActiveSheet
            For Each Shp In .Shapes
                If Shp.Name = "MyShape" Then Shp.Delete
            Next
            
            .Shapes.AddShape(msoShapeRectangle, 50, 50, 72, 72).Name = "MyShape"
            
            With .Shapes("MyShape").Fill
                .ForeColor.RGB = RGB(0, 128, 128)
                .OneColorGradient msoGradientHorizontal, 1, 1
                .GradientStops.Insert RGB(255, 0, 0), 0.25
                .GradientStops.Insert RGB(0, 255, 0), 0.5
                .GradientStops.Insert RGB(0, 0, 255), 0.75
            End With
    End With
        


End Sub