OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > General

Thread Tools Search this Thread Display Modes
Old 17-09-2016, 08:32
JacquesCHENU JacquesCHENU is offline
Junior Member
Join Date: Oct 2008
Posts: 12
Default VBA Change Font and Style

I need help

i have a macro change Font and Size

Sub Change_Police_Altà()
' Recorded 21/03/2016
' Changement de Police de la Partie de Texte Sélectionné

ActiveShape.Text.Selection.Font = "Lucida Bright"
ActiveShape.Text.Selection.Size = 7

End Sub

How change Style ... Normal Italic

Many thanks for your help
Reply With Quote
Old 03-12-2016, 23:19
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,791
Blog Entries: 15
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default Text Italic

Hopefully this helps:

Sub Change_Police_Altà()
    Dim tr As TextRange
    Set tr = ActiveShape.Text.Selection

    tr.Font = "Lucida Bright"
    tr.Size = 7
    tr.Italic = True
End Sub
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
Unable to change font kortshop Calendar Wizard 0 14-11-2014 04:21
The name of the font when you change the curves grzjanik Macros/Add-ons 2 19-09-2011 09:53
Font style Keefster CorelDRAW/Corel DESIGNER VBA 0 16-12-2009 13:43
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

All times are GMT -5. The time now is 00:48.

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