EXCEL VBAでグラデーション付図形を作成したい

Excel2010で試していますが、2007以降ならできるかと思います。

Sub macro()
    Dim sp As Shape
    Set sp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80)
    With sp.Fill
        .ForeColor.RGB = RGB(0, 128, 128)
        .OneColorGradient msoGradientHorizontal, 1, 1
        .GradientStops.Insert RGB(255, 0, 0), 0
        .GradientStops.Insert RGB(0, 255, 0), 0.5
        .GradientStops.Insert RGB(0, 0, 255), 0.99
    End With
End Sub

※ わざわざShapeオブジェクトに代入してるのはインテリセンスを使う為で特に意味はありません。

GradientStopsというのが分岐点で分岐点１ならGradientStops.Items(1)で取得できるかと思います。
引数の１番目が色で、２番めが位置なのですが、1だとうまくいかなかったので0.99にしています。
　
http://msdn.microsoft.com/en-us/library/ff863159.aspx