Связь ActiveX-объектов в форме

02.04.2005
170
1
#1
Добрый день.

Возник вот такой вопрос, на который хотелось бы получить подробный ответ:)
На форме есть 2 ActiveX объекта: Microsoft Office PivotTable 10.0 и Microsoft Office Chart 10.0. Как мне связать 2 этих компонента что бы при изменении данных в таблице изменялся график. Подскажите на конкретном примере кода пожалуйста. Заранее благодарен
 
02.04.2005
170
1
#2
Все оказалось намного проще чем я думал. Вот что у меня получилось:

Sub Postopen(Source As Notesuidocument)
Source.EditMode = True
Set Obj = Source.GetObject ("OC")
Obj.Clear
Set Obj2=Source.GetObject ("PT")
Set Obj.DataSource = Source.GetObject("PT")
Obj.DisplayFieldButtons=False
Obj.HasChartSpaceLegend = True
End Sub