![]() |
#1
|
|||
|
|||
![]()
Hi all,
i have a problem with changing fonts (fontnames) by VBA scripts. (CorelDraw X4, WinXP) The following works as expected: Code:
Dim d As Document Dim s As Shape Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, "This is an example.", , , "LM Roman 8", 8) Set t = s.Text Code:
Dim d As Document Dim s As Shape Dim t As Text Set d = CreateDocument Set s = d.ActiveLayer.CreateParagraphText(3, 3, 5, 5, "This is an example.") Set t = s.Text t.Story.Font = "LM Roman 8" t.Story.Size = 8 The Font "LM Roman 8" is an open type font (postscript outline, single master) and available here: http://www.gust.org.pl/projects/e-fo...odern/download. Can you reproduce this? Is it a special problem connected with this kind of opentype font? Best regards, marvin Last edited by marvin; 15-10-2009 at 04:00. Reason: added program version information |
#2
|
||||
|
||||
![]()
I can confirm it does not work with that font. I don't think it is an OpenType issue as I am using Windows 7 and almost all my fonts are OpenType and the code works fine. I just seems to be that series of fonts.
If I get a few more minutes, I will try and dig into it a little deeper. -Shelby |
#3
|
|||
|
|||
![]()
OK. I did some testing too.
No other Font on my sytem showed this problem. marvin |
#4
|
||||
|
||||
![]()
Hi Marvin.
Have you tried to recreate/regenerate the font (like with fontlab or something). -John |
#5
|
|||
|
|||
![]() Quote:
However, in the meantime I figured out that the described problem does not exist in CorelDraw X3! Both code snippets work perfectly well in X3 on the same system. I believe the creators of the Latin Modern OpenType fonts know exactly what they are doing. So the font handling in X4 seems to be faulty. Moritz |
![]() |
Tags |
corel, font names, opentype, vba |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Change font | Manuel | CorelDRAW/Corel DESIGNER VBA | 5 | 16-07-2009 03:40 |
Change Font Newbie Help | FilmLadd | Macros/Add-ons | 2 | 23-11-2008 17:52 |
Select specified text, change font size? | fiddler2b | CorelDRAW/Corel DESIGNER VBA | 3 | 23-04-2006 08:11 |
Font Problem | excessiveforce | General | 5 | 24-10-2005 21:14 |
Bitstream Font Nav Problem | ddonnahoe | General | 0 | 16-12-2004 08:25 |