1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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