Adobe 26001360 Scripting Guide - Page 344

344 Visual Basic Reference ' 90 degrees. ' Dim appRef As New Illustrator.Application Dim ok As Boolean ok = True ' verify a document with graph item is open If (appRef.Documents.Count < 1) Then ok = False ElseIf (appRef.ActiveDocument.GraphItems.Count < 1) Then ok = False End If If (ok = False) Then MsgBox "Open a document with graph items before running this sample." Exit Sub End If ' Rotate each graph item 90 degrees Dim graphRef As Illustrator.graphItem For Each graphRef In appRef.ActiveDocument.GraphItems graphRef.Rotate 90 Next graphRef appRef.Redraw GraphItems A collection of GraphItems. Table 5.50 GraphItems - Properties Property R/O Value type What it is Application Count Parent R/O Application object The Illustrator Application object R/O Long The number of objects in the collection R/O Document object The document that contains this GraphItem Table 5.51 GraphItems - Methods Method Returns What it does Index(item As GraphItem) Item(itemKey) Long GraphItem object Returns the index position of the object within the collection Returns an object reference to the object identified by itemKey; by name or index 12 Aug 03