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

MyAccount

Helpful VBA Code

<<Back to helpful code list

Space apart shapes

Decription: This will get you started if you need to space apart shapes on the page.

Date: 2010-05-04 Author: John

Code:

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

Add Comment, Question, Discussion...

Title: Also need vertically space apart shapes
Comment left by: Rajan Dhiman
Date: 2022-05-20

Comment left:

Please also send code vertically space apart shapes

Title: Group understanding
Comment left by: Pandavan
Date: 2020-08-18

Comment left:

I hawe group of objects, i select one fo object in group, how to know that you working with group when you hawe selected only one object from group?

Title: I thing you need "Align and Distribute" tool
Comment left by: bo_phi_yen
Date: 2015-05-26

Comment left:

it is "Align and Distribute" tool (hotkey is Ctr+Shift+A in X7, you can config for another version)
In VBA code (X7)

ActiveSelectionRange.AlignAndDistribute 7, 0, 0, 0, False, 2