Create a shape and set its color : Shape « Excel « VBA / Excel / Access / Word

Create a shape and set its color


Sub SetShapeColor()
       StarWidth = 25
       StarHeight = 25
       Set NewStar = ActiveSheet.Shapes.AddShape(msoShape4pointStar, LeftPos, TopPos, StarWidth, StarHeight)
       NewStar.Fill.ForeColor.SchemeColor = Int(Rnd() * 56)
       Application.Wait Now + TimeValue("00:00:01")
       Application.Wait Now + TimeValue("00:00:02")

End Sub


Related examples in the same category

1.Get shape and output its z order
2.Draw a star
3.Delete a shape
4.Looping through a Collection of Shapes
5.The OLEObjects Collection