To fill a rectangle with circles randomly with VBA code

[aakkaarr]

Thanks Shark

[dungbtl]

Sub FillRandShapes()
Const MaxSize = 15
Const MinSize = 5
Dim s As Shape, X#, Y#, w#, h#, z&
    ActiveDocument.Unit = cdrMillimeter
    ActivePage.GetBoundingBox X, Y, w, h
    Randomize
    Set s = ActiveShape: If s Is Nothing Then Exit Sub
    
    For z = 1 To 1000
        Set s = s.Duplicate
        s.SetPosition X + Rnd * w, Y + Rnd * h
        s.SetSize Rnd * MaxSize + MinSize
        randomAngle = Int((360 * Rnd) + 1.5)
        s.Rotate randomAngle
    Next

Woooo .... random angle added

Seems this forum is slowly fading