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 05-02-2008, 09:56
xombie
Guest
 
Posts: n/a
Default recently moved to x3

Hi all. I wrote a small script to place some text on a page. I created this in v12 of corels vba. now Ive moved upto 13 (and regret it) When ever I place a cusor to type it starts out at 270 deg. When I run my lil script it does the same. Have the methods etc changed so much between 12 & 13????
btw the macro worked fine in 12.
Code:
Sub ProdDrawing()
    ActiveDocument.BeginCommandGroup "Production Drawing"
    ActiveDocument.Unit = cdrInch
    Set My_Item = ActiveLayer.CreateArtisticText(10, 1.75, "Production Drawing " & Date & " (101)")
    Set txt = ActiveShape.Text.Story.Paragraphs(1)
    With txt
        .ChangeCase cdrTextUpperCase
        .Font = "Arial Black"
        .Size = 12
        .Bold = True
        .Underline = cdrSingleThickFontLine
        .Fill.UniformColor.RGBAssign 255, 0, 0
        End With
     ActiveDocument.EndCommandGroup
End Sub
As far as i can tell there is nothing in there that dictates rotation.
Im stumped.
Thanx all
Reply With Quote
  #2  
Old 05-02-2008, 12:33
Gadget
Guest
 
Posts: n/a
Default

This works for me...
Code:
Sub ProdDrawing()
    Dim My_Item As Shape
    Dim txt As Text
    ActiveDocument.BeginCommandGroup "Production Drawing"
    ActiveDocument.Unit = cdrInch
    Set My_Item = ActiveLayer.CreateArtisticText(10, 1.75, "Production Drawing " & Date & " (101)")
    Set txt = ActiveShape.Text
    With txt.Story.Paragraphs(1)
        .ChangeCase cdrTextUpperCase
        .Font = "Arial Black"
        .Size = 12
        .Bold = True
        .Underline = cdrSingleThickFontLine
        .Fill.UniformColor.RGBAssign 255, 0, 0
        End With
     ActiveDocument.EndCommandGroup
End Sub
You had set txt to the paragraph level, and then said with.... that's the only thing I had to change (and added in Dim statements)

No rotation at all.
~G~
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
Australia Day moved! GordonG Calendar Wizard 2 25-11-2006 19:47
Forum moved Alex Site News 0 27-04-2005 02:52


All times are GMT -5. The time now is 16:39.


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