Code snippets feedback 【CorelDRWx4】 "Align Left Top" "Align Top Right" "Align bottom left" "Align Bottom Right" dialog by VBA code?

Developer Area requires membership for participation - click to join

【CorelDRWx4】 "Align Left Top" "Align Top Right" "Align bottom left" "Align Bottom Right" dialog by VBA code?

aimoyang 13 days ago

【CorelDRWx4】 "Align Left Top" "Align Top Right" "Align bottom left" "Align Bottom Right" dialog by VBA code?

If someone knows how, please share.

Thanks in advance.

Aimo

0 Taras.SoftLV 13 days ago

Why do you need Align dialog box in VBA?

It's easier
Dim s As Shape, s1 As Shape
s1.LeftX = s.LeftX
s1.RightX = s.RightX
s1.TopY = s.TopY
s1.BottomY = s.BottomY
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 aimoyang 11 days ago in reply to Taras.SoftLV

Taras.SoftLV

excuse me

Do CorelDRW x4 have a complete example

CorelDRW X8

This code can be run on CorelDRW X8, but X4 failed. Can it be modified to run on X4?

Private Sub Commandbutton1 Click()

Recorded March 24, 2023

Dim OrigSelection As ShapeRange

Set OrigSelection=ActiveSelectionRange

OrigSelection AlignAndDistribution 0, 1, 0, 0, False, 2

OrigSelection AlignAndDistribution 2, 0, 0, 0, False, 2

End Sub
Cancel
Up 0 Down

Reply

Verify Answer

Cancel