Excel2010中VBA的ShapeRange问题

5、6两行调换一下即可：
ActiveSheetShapesAddShape(msoShapeRectangle, 19875, 8025, 72, 72)Select
With SelectionShapeRangeFill
Visible = msoTrue
ForeColorRGB = RGB(255, 0, 0)
TwoColorGradient msoGradientVertical, 1
BackColorRGB = RGB(255, 255, 0)
End With

---