Shapes.AddShape(msoShapeRectangle, shl, Sht, shw, pt + ph - Sht).Select 'Color Bottom half of Rectangle Call ColorShape(mycolor, ...
確定! 回上一頁