EXCEL
Open a new Excel document
Press Alt + F11 keys at the same time (This opens "Microsoft Visual Basic For Applications")
Copy and paste the following macro code snippet of macro code into new window "Microsoft Visual Basic For Applications"
‘This is the macro code snippet
Sub RandomShape()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 0 ' leave 0
b = 175 ' Adjust how many curves to add
c = 400 ' Adjust how big the shape should be
With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 25, 25)
Do While a < b
.AddNodes msoSegmentCurve, msoEditingAuto, Rnd() * c, _
Rnd() * c, Rnd() * c, Rnd() * c, Rnd() * c, Rnd() * c
a = a + 1
Loop
.AddNodes msoSegmentCurve, msoEditingAuto, Rnd() * c, _
Rnd() * c, Rnd() * c, Rnd() * c, 25, 25
.ConvertToShape.Select
End With
Selection.ShapeRange.ShapeStyle = msoShapeStylePreset11
End Sub
‘This is the end of the macro code snippet
Post too long. Click here to view the full text.