Sub 宏1() Dim Sh As Shape Set Sh = ActiveSheet.Shapes.AddShape(msoShapeOval, 60, 60, 90, 90) Sh.Fill.ForeColor.RGB = RGB(255, 0, 0) Set Sh = NothingEnd Sub
把代码中的数字换成sheet2的单元格数据就可以了
