OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 15-11-2008, 05:33
derasje
Guest
 
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
s.ConvertToCurves
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.

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

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
  #3  
Old 19-11-2008, 04:04
derasje
Guest
 
Posts: n/a
Talking Solved

Thanks Joe,

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


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 15:06.


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