Excel VBA高级编程:用VBA复制图片到word中

高级编程:用VBA复制图片到中

Dim objWordApp As Word.Application
    Dim objWord As Word.Document
    Range(Cells(3, 2), Cells(11, 11)).Select
    Selection.CopyPicture
    Set objWordApp = CreateObject("Word.Application")
    Set objWord = objWordApp.Documents.Add
    objWord.Application.Visible = True
    objWord.Application.Selection.Paste
    Set objWord = Nothing
    Set objWordApp = Nothing