GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

Sub space()

Dim s As Shape
Dim sr As ShapeRange
Dim i As Integer
Dim x#, y#, w#, h#
Dim x1#, y1#, w1#, h1#
Dim addup As Double
Dim space As Double

space = 0.5

Set sr = ActiveSelectionRange
sr(1).GetBoundingBox x, y, w, h

ActiveDocument.ReferencePoint = cdrBottomRight

addup = w
For i = 1 To sr.Count
    If i > 1 Then
        sr(i).GetBoundingBox x1, y1, w1, h1
        sr(i).SetPosition x + w1 + addup, y
        addup = addup + w1 + space
    Else
        sr(i).Move -space, 0
    End If
    
Next i

End Sub

Hello,

I have been trying to create my own, however I have not been successful yet.

I record, and run the macro, but it only repeats what I did to the same objects, not sure how to have the actions continue with the other objects.

I greatly appreciate your time to post these.

SUBSCRIBE to Email List

My Account

Policy
and
Terms

Upgrades?

Need a Custom Macro?
NO LONGER AVAILABLE