To fill a rectangle with circles randomly with VBA code

[aakkaarr]

code to fill a rectangle with circles with random sizing and spacing
Please see the attached jpg to clearly follow my point
In the image I have placed red circles of various size and placed it randomly without overlapping
I have done it manually. Can it be done by vba code by just one red circle

[shark]

It's not difficult to fill rectangle with circles. It's harder to check that the circles do not intersect

[aakkaarr]

I am having the same problem of checking circles for intersection
Can you help me code circles to fill rectangle with various size, I think the intersecting problem can be manually corrected

[shark]

Sub FillRandomCircles()
Const MaxSize = 15 'max radius of ellipse, i.e. MinSize + MaxSize
Const MinSize = 5  'min radius
Dim s As Shape, x#, y#, w#, h#, z&
    ActiveDocument.Unit = cdrMillimeter
    ActivePage.GetBoundingBox x, y, w, h
    Randomize
    For z = 1 To 100
        Set s = ActiveLayer.CreateEllipse2(x + Rnd * w, y + Rnd * h, Rnd * MaxSize + MinSize)
    Next
End Sub

[shark]

in theory, you can add each created ellipse to the group and check the intersection with this shape-group, using Shape.Intersect. If the function returns an object, then delete the ellipse and create a new one

[aakkaarr]

Thanks Shark
Now if I have a Star shape or any custom shape and i want to fill rectangle with this shape with random sizes
Help me do this

[aakkaarr]

Like this Image

[shark]

You may change
Set s = ActiveLayer.CreateEllipse2(x + Rnd * w, y + Rnd * h, Rnd * MaxSize + MinSize)
to
Set s = ActiveLayer.CreatePolygon2(x + Rnd * w, y + Rnd * h, Rnd * MaxSize + MinSize, NSide, , , true)
where NSide = number of sides (5 for star)
or use function CreatePolygon

[aakkaarr]

Thanks Shark,
But if it is not a polygon that fills the rectangle, it is some bitmap or a random shape.
It is to be filled with a sample shape as in the image
May be moving and resizing duplicates of sample shape to random location in the rectangle
What is your theory about this

[shark]

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 100
        Set s = s.Duplicate
        s.SetPosition X + Rnd * w, Y + Rnd * h
        s.SetSize Rnd * MaxSize + MinSize
    Next
End Sub

this code duplicates any selected shape and scatter it inside page