OberonPlace.com Forums  

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

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

Hello
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
  #2  
Old 04-12-2016, 00:19
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
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:

Code:
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
-Shelby
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
Unable to change font kortshop Calendar Wizard 0 14-11-2014 05:21
The name of the font when you change the curves grzjanik Macros/Add-ons 2 19-09-2011 10:53
Font style Keefster CorelDRAW/Corel DESIGNER VBA 0 16-12-2009 14:43
Change font Manuel CorelDRAW/Corel DESIGNER VBA 5 16-07-2009 04:40
Change Font Newbie Help FilmLadd Macros/Add-ons 2 23-11-2008 18:52


All times are GMT -5. The time now is 01:28.


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