Sub main() Call ExportGraphs("Заголовок") End Sub Sub ExportGraphs(TitleStart As String) ' Скрипт заимствован из справки SPSS ' Объявление переменных. Dim objOutputDoc As ISpssOutputDoc Dim objOutputItems As ISpssItems Dim objOutputItem As ISpssItem Dim objSPSSIGraph As ISpssIGraph Dim intItemCount As Integer 'число элементов окна результатов Dim intItemType As Integer 'тип элемента (см. свойство SpssType) Dim strLabel As String 'метка элемента ' Устанавливаем ссылку на рабочее окно результатов. Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc ' Устанавливаем ссылку на коллекцию всех элементов окна результатов (Output Items). Set objOutputItems = objOutputDoc.Items() ' пробегаемся по всем элементам. intItemCount = objOutputItems.Count() For Index = 0 To intItemCount - 1 Set objOutputItem = objOutputItems.GetItem(Index) intItemType = objOutputItem.SPSSType() strLabel = objOutputItem.Label ' Если текущий элементы - выделенный пользователем интерактивный график, активируем его ' изменяем его заголовок, подзаголовок, подпись и сохраняем. If intItemType = SPSSIGraph And objOutputItem.Selected Then Set objSPSSIGraph = objOutputItem.GetIGraphOleObject objSPSSIGraph.DeleteSubtitle objSPSSIGraph.DeleteCaption objSPSSIGraph.Title = TitleStart & " " & Index + 1 objSPSSIGraph.Redraw objSPSSIGraph.ExportChart "c:\\temp\\mychart100.jpg", "JPEG File", 300, 300, 1, 0 Exit For End If Next Index End Sub