Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 256.5, 252.75, 86.25, 31.5). _
Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
End Sub
追问您好,谢谢您的回答,我引用了你的代码,但是就是画不出来,没有显示,是不是有些控件没有引入啊?
追答这是excel 的 VBA 代码!
请在 excel 里面用!
哦,原来如此!谢谢