Hey guys,
So I am trying to copy a range from an excel sheet and paste it as a picture in another word document. The issue is, I already have a picture on that document. I was wondering how I can copy paste without losing the picture I already had on the word document. I have attached my code.
>>> use code - tags <<<
So I am trying to copy a range from an excel sheet and paste it as a picture in another word document. The issue is, I already have a picture on that document. I was wondering how I can copy paste without losing the picture I already had on the word document. I have attached my code.
>>> use code - tags <<<
Code:
Option Explicit
Dim ws1 As Worksheet
Dim DailyReportrange As Range
Dim wordapp As Object 'Word.Application'
Dim worddoc As Variant 'Word.Document'
Dim wordrange As Range
Sub DailyReport()
Set ws1 = ActiveWorkbook.Worksheets("Sheet4")
Set DailyReportrange = ws1.Range("A2:Q40")
'Copy Daily Report'
DailyReportrange.Copy
'Open Word Document'
Set wordapp = CreateObject("Word.Application")
wordapp.Visible = True
Set worddoc = wordapp.Documents.Open("C:\Desktop\Ken Tobiko\Project\DocKenya.docx")
worddoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
End Sub
Last edited by a moderator: