simba24
10-03-2011, 14:31
Salve a tutti,
non riesco a copiare un'immagine jpg presente in uno sheet di un documento excel all'interno di un documento word.
Quanto sotto riportato funziona con i grafici:
With ActiveSheet.ChartObjects(1).Chart
.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Paste chart
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
End With
Grazie per l'aiuto.
;)
non riesco a copiare un'immagine jpg presente in uno sheet di un documento excel all'interno di un documento word.
Quanto sotto riportato funziona con i grafici:
With ActiveSheet.ChartObjects(1).Chart
.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Paste chart
wrdDoc.Paragraphs(wrdDoc.Paragraphs.Count).Range.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
End With
Grazie per l'aiuto.
;)