CorelDRAW Graphics Suite X6

Corel PHOTO-PAINT X6 how to find a particular size shapes in a document and make their outline none?

how to find a particular size shapes in a document and make their outline none?

paraggoyal over 3 years ago

for example i need to find all 11X8.5 inch boxes in a document and make their outline none?

0 Myron over 3 years ago

Sub FindShapes()
Dim S As Shape, sr As ShapeRange, p As Page
For Each p In ActiveDocument.Pages
p.Activate
Set sr = ActivePage.Shapes.FindShapes

For Each S In sr
If S.SizeHeight = 11 Then

S.outline.SetNoOutline
End If
Next S
Next p
End Sub
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 paraggoyal over 3 years ago in reply to Myron

am sorry but its corel draw not corel photo paint. by mistake i post in corel photo paint.
and if possible then i need exact height and width to find the shapes
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Myron over 3 years ago in reply to paraggoyal

take the code above and build on it to suit your needs
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 paraggoyal over 3 years ago in reply to Myron

dont know much about proper arguments in corel draw its giving me error 13
this was also not working in corel draw x6.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel
0 Myron over 3 years ago in reply to paraggoyal

Yes, made for X7 or above. Wasn't sure if would work in X6.
Cancel
Up 0 Down

Reply

Verify Answer

Cancel