Forums Neueste Beiträge
 

"MSGraph.Chart.8"

29/05/2012 - 13:25 von Helmut Elzer | Report spam
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
 

Lesen sie die antworten

#1 Martin KoWi
30/05/2012 - 10:02 | Warnen spam
Hast du schon versucht mit:
Application.ScreenUpdating = false
... Chart einfügen, visible = false
Application.ScreenUpdating = true

ansonsten findest du in Office/Word-Gruppen sicher besser Hilfe.
gruß, martin.


Am 29.05.2012 13:25, schrieb 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







Ähnliche fragen