OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Feature requests/wishlist

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 16-11-2010, 11:04
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default Feature request for BreakApartEx

Hi.
Feature request for BreakApartEx.

I would like this to work on lines of artistic text. If the selection is artistic text and you use this it would be able to put each line of text as a shape in the range.
Similarly on the words in a single line too maybe...
-John
Reply With Quote
  #2  
Old 07-05-2011, 08:51
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

Hi.
What's the fastest way to add text lines to a shape range.
Here's one way although I don't think it's best.

~John

Code:
Dim s As Shape, s1 As Shape, sr As New ShapeRange, sr2 As New ShapeRange
    Dim i As Long, l As Layer
    Dim x1#, x2
    
    If ActiveShape.Type <> cdrTextShape Then MsgBox "Select a single Paragraph Text Shape": Exit Sub
    ActiveDocument.ReferencePoint = cdrBottomLeft
    
    Set s = ActiveShape
    If s.text.Story.Lines.count < 2 Then MsgBox "Only 1 text line!": Exit Sub
    Set l = ActivePage.CreateLayer("__temp1a")
    s.MoveToLayer l
    s.BreakApart
    For i = 1 To l.Shapes.count
        sr.Add l.Shapes(i)
    Next i
    l.Shapes.All.MoveToLayer ActivePage.Layers(l.Index + 1)
    l.Delete
Reply With Quote
  #3  
Old 09-05-2011, 14:35
shark shark is offline
Senior Member
 
Join Date: Aug 2010
Location: Russia, Belgorod
Posts: 145
Default another way

Hi
In one of my macros i have used this code

Code:
Sub BreakTextLine()
Dim s As Shape
Dim n&, L&
    Set s = ActiveShape
    If s Is Nothing Then Exit Sub
    If s.Type <> cdrTextShape Then Exit Sub
    L = s.Text.Story.Lines.Count
    s.BreakApart
    For n = 1 To L - 1
        Set s = s.Previous
        s.AddToSelection
    Next n
End Sub
Reply With Quote
  #4  
Old 09-05-2011, 14:44
runflacruiser's Avatar
runflacruiser runflacruiser is offline
Senior Member
 
Join Date: Jun 2009
Location: Pigeon Forge, TN USA
Posts: 811
Default

hi.
I like it.
Much better than using a temp layer like I did.

Thanks,
~John
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
Re-registration Request Gary Allred Jigsaw Puzzle Creator 0 10-06-2009 10:54
Uniform Resize Feature excessiveforce Macros/Add-ons 4 30-09-2005 09:14
DRAW 13 Request... ddonnahoe CorelDRAW/Corel DESIGNER VBA 5 11-04-2005 08:25
CW 4.1 features request Denis Korotkov Calendar Wizard 3 13-09-2004 08:44
Undocumented Feature(?) RobC CorelDRAW/Corel DESIGNER VBA 3 05-03-2004 08:03


All times are GMT -5. The time now is 03:44.


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