[英]How to copy a range in excel and then resize and paste in word with a macro
Sub CopyToWord()
Dim objWord As New Word.Application
'copying the range that I want to paste in Word
With ThisWorkbook.Worksheets("grid_copy")
.Range("b1:AA42").CopyPicture xlScreen
End With
'pasting the picture in a new Word document
With objWord
.Documents.Add
.Selection.Paste
.Selection.ShapeRange.Height = 651
.Selection.ShapeRange.Width = 500
'Those two lines don't work to resize the picture that i'm pasting in word
.Visible = True
End With
End Sub
該代碼實際上是有效的,但我無法應用我想要的圖像大小。 你們知道一種方法可以調整我在 Word 中粘貼的圖片的大小,形成 Excel 的范圍嗎?
嘗試:
Sub CopyToWord()
'copying the range that I want to paste in Word
ThisWorkbook.Worksheets("grid_copy").Range("b1:AA42").CopyPicture xlScreen
'pasting the picture in a new Word document
Dim wdApp As New Word.Application, wdDoc As Word.Document, wdImg As Word.InlineShape
With wdApp
.Visible = True
.ScreenUpdating = False
Set wdDoc = .Documents.Add
With wdDoc
.Range.Paste
Set wdImg = .InlineShapes(1)
With wdImg
.Height = 651
.Width = 500
End With
End With
.ScreenUpdating = True
End With
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.