如何在渐变形状上获得色标？VBA

Sub AddGradientStops()
    Dim shp As Shape
    Dim gradFill As GradientFill
    Dim gradStop As GradientStop
    
    ' 获取选定的形状
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    
    ' 检查形状是否支持渐变填充
    If shp.Type = msoShapeRectangle Or shp.Type = msoShapeOval Then
        ' 获取渐变填充对象
        Set gradFill = shp.Fill.Gradient
        
        ' 添加色标
        gradFill.GradientStops.Insert RGB(255, 0, 0), 0 ' 红色
        gradFill.GradientStops.Insert RGB(0, 255, 0), 0.5 ' 绿色
        gradFill.GradientStops.Insert RGB(0, 0, 255), 1 ' 蓝色
        
        ' 设置渐变方向
        gradFill.Angle = 90 ' 垂直渐变
        
        ' 设置渐变样式
        gradFill.Style = msoGradientHorizontal ' 水平渐变
        
        ' 设置渐变填充
        shp.Fill.Gradient = gradFill
    Else
        MsgBox "该形状不支持渐变填充。"
    End If
End Sub