объект

[Dmitriy Solomnikov]

есть код
Dim appGraph As Object
appGraph = CreateObject("MSGraph.Chart")

with appGrath.Application
...
end with

когда дело доходит до with возникает исключение:
"В экземпляре объекта не задана ссылка на объект."

Как с этим бороться.

[Ronin]

Сейчас проверять не могу, не дома. Но по-моему надо сдалать примерно так:

Dim appGraph As New Object
appGraph = CreateObject("MSGraph.Chart")

[GSerg]

Раз доходит аж до туда, то, имхо, нулю равно не appGrath, а его application...

[Dmitriy Solomnikov]

мне казалось, что createObject выделяет память(создает экземпляр)

[Dmitriy Solomnikov]

Вот готовый код для вставки диаграмм в лист MSWord:
Private Sub insertChart(ByRef oWord As Word.Application, ByRef oDoc As Word.Document, ByVal data() As Single, ByVal legend() As String)
Dim oShape As Word.InlineShape
Dim oChart As Object
Dim i As Integer 'счетчик

'------------создаем OLE-объект и присваиваем inlineShape--------------
'объект, который представляет наш OLE-объект, переменной(объекту) oShape.
'Вставляем его(OLE-объект) в конец документа ( \endofdoc - предопределенная звкладка)
'oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject( _
' ClassType:="MSGraph.Chart", FileName _
' :="", LinkToFile:=False, DisplayAsIcon:=False)
oShape = oDoc.Bookmarks.Item("\endofdoc").Range.InlineShapes.AddOLEObject( _
ClassType:="MSGraph.Chart", FileName _
:="", LinkToFile:=False, DisplayAsIcon:=False)
'----------------------------------------------------

oChart = oShape.OLEFormat.Object 'создаем объект chart
oChart.charttype = 5 'xlLine = 4 'задаем тип диаграммы

'--------задаем размеры диаграммы--------
oShape.Width = oWord.InchesToPoints(6.25)
oShape.Height = oWord.InchesToPoints(3.57)
'----------------------------------------

With oChart
.PlotArea.Fill.ForeColor.SchemeColor = 2
.PlotArea.Border.LineStyle = 0
With .Application.DataSheet
.activate()
.cells.delete()
For i = 1 To data.Length
Try
.cells(1, i + 1) = legend(i - 1)
.cells(2, i + 1) = data(i - 1)
Catch
End Try
Next
End With
End With
oChart.Application.Update()
oChart.Application.Quit()

End Sub