ideas to create childrens dot to dot drawing pictures

Thankyou clever kind people..

Both methods are extremely handy for what I am doing now....

I would also love to know how you get the macro window to show on the desktop in Corel (using x5) at the moment- have to keep going back to the dropdown.

Adding the macro window to the toolbar does not show the macros..

Great, Pranderson. Congrats.

Hi.

That's excellent Patti. You are the blend master, of course.

Here's a macro to accent Patti's method. It will auto-number all points on your blend. Use before breaking apart blend, select blend and run. Enjoy!

~John

Sub blendNumber()
    Dim sr As ShapeRange, sText As Shape, s As Shape
    Dim i&, dSize#, x#, y#, j&, xOffset#, yOffset#
   
    ActiveDocument.ReferencePoint = cdrTopLeft
    dSize = 9 'font size
    xOffset = -0.1
    yOffset = 0.1
    i = 1
   
    ActiveDocument.BeginCommandGroup "Number Blend"
    For Each s In ActivePage.Shapes
        If s.Type = cdrBlendGroupShape Then
            If i = 1 Then
                s.Effect.Blend.StartShape.GetPosition x, y
                Set sText = ActiveLayer.CreateArtisticText(x + xOffset, y + yOffset, CStr(i), , , , dSize)
                i = i + 1
            End If
            For j = s.Effect.Blend.BlendGroup.Shapes.count To 1 Step -1
                s.Effect.Blend.BlendGroup.Shapes(j).GetPosition x, y
                Set sText = ActiveLayer.CreateArtisticText(x + xOffset, y + yOffset, CStr(i), , , , dSize)
                i = i + 1
            Next j
            s.Effect.Blend.EndShape.GetPosition x, y
            Set sText = ActiveLayer.CreateArtisticText(x + xOffset, y + yOffset, CStr(i), , , , dSize)
        End If
    Next s
    ActiveDocument.EndCommandGroup
End Sub