How to get Gradient Path or Redial Fill

[Dossfm0q]

In this I have Gradient Rectangular how to get Path or Redial Types ?

Sub FillGradientRedial()    
 Dim Shp As Shape
 Dim MyShp  As Shape


    For Each Shp In ActiveSheet.Shapes
    Shp.Delete
    Next
 
    Set MyShp = ActiveSheet.Shapes.AddShape(msoShapeOval, 200, 200, 200, 200)
    With MyShp
        With .Fill
            
            .Visible = msoTrue
            .TwoColorGradient msoGradientFromCenter, 1
            '.OneColorGradient msoGradientFromCenter, 1, 1
            
            .GradientStops(1).Color = RGB(0, 0, 0)
            .GradientStops(1).Position = 0#
            
            .GradientStops(2).Color = RGB(255, 192, 0)
            .GradientStops(2).Position = 0.75
            
            .GradientStops.Insert RGB(197, 90, 17), 1
        End With
        With .Line
            .Visible = msoFalse
        End With
        
    End With




End Sub