OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Thread Tools Search this Thread Display Modes
Old 15-11-2008, 05:33
Posts: n/a
Exclamation Find Group ungroup it then process and again group

Hi friends,

Private Sub ConvertToOutline()
Dim p As Page
Dim s As Shape
For Each p In ActiveDocument.Pages
For Each s In p.Shapes
If s.Type = cdrTextShape Then
End If
Next s
Next p
End Sub

currently i am using above code to find the text and convert it to curve, but this code not works with a group of shapes (text within a group), so i want to find a text in group's convert it in a curve and group them again.

please guide me with this.

Reply With Quote
Old 15-11-2008, 11:44
Joe Joe is offline
Join Date: Nov 2008
Location: Latvia
Posts: 92
Send a message via Skype™ to Joe

I'll give a hint instead of a straight up solution - make a new ShapeRange, use Findshapes(Type:=cdrTextShape) to add to it and then process it - should have all the text shapes in there, both grouped and not.
Reply With Quote
Old 19-11-2008, 04:04
Posts: n/a
Talking Solved

Thanks Joe,

It works
my Final Code is
Private Sub ConvertToOutline()
Dim p As Page
Dim s As Shape
For Each p In ActiveDocument.Pages 'Loop each page
If ActiveDocument.Selection.Shapes.Count > 0 Then p.Shapes.All.Group
Next p
End Sub
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
how can it run in the group. engandy CorelDRAW/Corel DESIGNER VBA 3 30-09-2008 02:40
Group as CD9 then import engandy CorelDRAW/Corel DESIGNER VBA 1 26-09-2008 22:05
Delete A Group ProofingGuy CorelDRAW/Corel DESIGNER VBA 2 20-06-2008 16:43
Group Names? knowbodynow CorelDRAW/Corel DESIGNER VBA 1 03-04-2007 08:15
Create a Group shelbym CorelDRAW/Corel DESIGNER VBA 1 18-03-2004 19:12

All times are GMT -5. The time now is 12:45.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com