OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
Old 03-07-2010, 21:01
ager ager is offline
Join Date: Jul 2010
Location: Russia
Posts: 45
Default Superscript and Subscript

Don't work text position option in VBA code. For example, if I try to execute this code in VBA (CorelDraw X4):

Sub Test()
Dim d As Document
Dim s As Shape
Dim t As Text
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an example.")
Set t = s.Text
t.Story.Words.First.Position = cdrSuperscriptFontPosition
End Sub

Run-time error appear, but if I write t.Story.Words.First.Position = cdrSubscriptFontPosition
(instead Superscript, like in VBA help) i have no error.
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
Superscript and Subscript JudyHNM CorelDRAW/Corel DESIGNER VBA 1 13-11-2007 16:45

All times are GMT -5. The time now is 06:26.

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