Adobe 26001360 Scripting Guide - Page 461
TextFrames, Table 5.167, Properties
UPC - 718659321840
View all Adobe 26001360 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 461 highlights
Adobe Illustrator CS Scripting Guide 461 Dim textArtGroup As Illustrator.TextFrames 'First check the selection of the application 'It has to be a text art item in order for this script to run selection = appRef.selection If (IsEmpty(selection)) Then MsgBox "Select a text item before running this script" Exit Sub End If If (TypeName(selection(0)) "TextFrame") Then MsgBox "Select a text item before running this script" Exit Sub End If Set frontDocument = appRef.ActiveDocument Set sourceTextArt = selection(0) 'Get the parent of the text art so new text art items can be inserted 'in the same group or layer as the selected text art is in Set textArtGroup = sourceTextArt.Parent.TextFrames 'Create 5 new versions of the text art each rotated a bit Dim i As Integer For i = 1 To 5 Set newTextArt = textArtGroup.Add newTextArt.Position = sourceTextArt.Position newTextArt.Contents = sourceTextArt.Contents newTextArt.Rotate 180 * i / 6 TextFrames A collection of text frames. Table 5.167 TextFrames - Properties Property R/O Value type Application Count Parent R/O Application R/O Long R/O Object What it is Application that the collection belongs to Number of elements in the collection The object's container 12 Aug 03