VBA: Excel grafiek plakken als enhanced metafile afbeelding naar Word

[sabine]

Wie oh wie heeft een makkelijke code voor het simpelweg selecteren van een
grafiek in Excel, en het plakken (in tekstline, als enhanced metafile (dus
afbeelding zonder links)) naar een gedefinieerde bladwijzer in een Word
template (of bestaand document, maakt niet uit)? Heb er al zoveel tijd
ingestopt maar kom er niet uit!

Alvast bedankt! (heb dit ook in de Word nieuwsgroep geplaatst maar wil de
aansturing van de macro vanuit Excel laten verlopen!)

Sabine

[jan]

Sabine,

Zo zou dat denk ik moeten lukken:

Sub GrafiekNaarWord()
Const cstWordDoc As String = "D:\Data\Discussieforum\PlakGrafiek.doc"
Const cstBookMark As String = "Grafiekje"
Const cstWerkblad As String = "Blad1"
Dim appWrd As New Word.Application
Dim wrdDoc As Word.Document
Set wrdDoc = appWrd.Documents.Open(cstWordDoc)
Worksheets(cstWerkblad).ChartObjects(1).Copy
wrdDoc.Bookmarks(cstBookMark).Range.PasteSpecial _
Placement:=wdInLine, DataType:=wdPasteMetafilePicture
appWrd.Visible = True
End Sub

De drie constanten bovenaan even aanpassen aan je situatie.
In de code wordt ervan uitgegaan dat het eerste chartobject (ChartObjects(1)) op
het werkblad moet worden gekopieerd.

Jan

[jan]

Sabine,

Nou is er dus nog meer tijd in gestopt.
Lukt het hiermee?

Jan

[sabine]

"jan" <j...@releerf.nl> schreef in bericht
news:Otjd%230LDI...@TK2MSFTNGP05.phx.gbl...

Beste Jan,

ik ben nu pas terug van een paar dagen werk/offline, vandaar mijn late
reactie. Eerst hartelijke dank, de code ziet er duidelijk en voor mij
begrijpelijk uit, heb hem getest. Ik krijg eerst een foutmelding bij de
regel

Dim appWrd As New Word.Application

maar nadat ik bij verwijzingen in Excel VBA een vinkje bij Microsoft Word
11 Object library had gezet werkte het wel. HEEL ERG BEDANKT, ik ben er écht
super blij mee.

Sabine