[请教] VBA shape用颜色填充部分图形

[north00]

请教高手，想利用矩形框的背景颜色填充来实现进度条：

请教如何用一种颜色填充部分矩形框？下面代码是我用VBA生成矩形框的代码，但是只知道完全填充矩形块，不知道可不可以部分填充？？

谢谢～

Sheets("Result").Shapes.AddShape(msoShapeRectangle, progressLeft1, progressTop1, progressLen#, 6#). _
        Select

    progName_1 = Selection.Name

    Selection.ShapeRange.ThreeD.Visible = msoFalse

    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle

    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 4, 0.23

[东方之珠]

部分填充，最好用Picture控件。参考一下我写的这个，会对你有帮助：
http://blog.csdn.net/chenjl1031/archive/2007/12/24/1964909.aspxe控件。