MSGraph.Chart

[Helmut Elzer]

Hallo,

ich benutze "MSGraph.Chart.8" um mir in einem Worddokument einige Grafiken
einfügen zu lassen.
Funktioniert auch alles prächtig.
Nur eins stört mich noch, dass die Grafiken während des Einfügens kurz am
Monitor zu sehen sind.
Sobald das Objekt
----oShape =
oWDoc.Bookmarks.Item(Bookmark).Range.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8",
FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

erzeugt wird erscheint auch die Grafik auf dem Monitor

ich kann zwar dann die Grafik ausblenden mit
----oChart.Application.Visible = False

aber das ist mir zu spät

kann hierzu jemand eine Lösung geben

Das ist mein Code in Auszügen

Word.Visible = False

Dim oShape As Word.InlineShape
Dim oChart As Graph.Chart

oShape =
oWDoc.Bookmarks.Item(Bookmark).Range.InlineShapes.AddOLEObject(ClassType:="MSGraph.Chart.8",
FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
oChart = oShape.OLEFormat.Object

oChart.Application.Visible = False
.
.
.
.
oChart.Application.Update()
oChart.Application.Quit()




mit freundlichen Grüßen

Helmut



mit freundlichen Grüßen


www.stm-individuell.de