0

This is the coding i have done in vb illustrator file is loading and we can make changes
CODING
---------
Private Sub Command1_Click()
Set appRef = New Illustrator.Application
Set fol = fso.GetFolder("C:\ChemDraw\StePHOXTetrahedronRevised\Eps")
Dim charStyle As Illustrator.CharacterStyle
For Each fil In fol.Files
Set docref = appRef.Open(fil)
appRef.ActiveDocument.ActiveLayer.HasSelectedArtwork = True
appRef.ActiveDocument.ActiveLayer.Opacity = 10
'appRef.ActiveDocument.CharacterStyles.Item
docref.CharacterStyles.Application.TextFonts.Item
appRef.ActiveDocument.Close
docref.Activate
Next


'Set charStyle = docref.CharacterStyles.Add("BigRed")
'' Create a red color
'Dim colorRed As New Illustrator.RGBColor
'Dim font As New Illustrator.PrintFontOptions
'colorRed.Red = 255
'
'' Set character attributes of the new style
'With charStyle.CharacterAttributes
'.Size = 7
''.TextFont
'End With
End Sub

SOLUTION NEEDED
----------------------
1) change the font in illuustrator file through vb coding
2) change the size also

WHAT I HAVE DONE:
-------------------------
1) LOADED A EPS FILE IN ILLUSTRATOR THROUGH VB CODING


waiting for ur reply ASAP

1
Contributor
1
Reply
2
Views
10 Years
Discussion Span
Last Post by arunprabhakar
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.