Cells (2, "F").Value Set newShape = sht.Shapes.Range(Array(shapeName)) With newShape.Fill .Visible = msoTrue .ForeColor.RGB = RGB(fillColorR, fillColorG, ...
確定! 回上一頁