Как сделать эту PDF-копию более эффективной, вставьте ее в код Excel

Question

Моя рабочая книга Excel открывает PDF-файл в диапазоне, открывая его словом, копируя все и вставляя изображение в моем диапазоне Excel. Затем я использую Excel для отметки текстовых полей в документе и экспортирую диапазон в виде PDF с именем файла и изменением местоположения на основе введенной информации. Причина, по которой я пошел в этом направлении, в том, что качество объектов Adobe плохое. Однако время загрузки изображения длиннее, чем хотелось бы. Любые советы приветствуются

'select file to open
myfile = Application.GetOpenFilename(, , "get file")

'check if valid
If IsFileOpen(myfile) = True Then
    MsgBox "File already in use!"
    Exit Sub
    End If
If myfile = "False" Then
Exit Sub
End If

'open and copy 
Dim objWord As Object
 Set objWord = CreateObject("Word.Application")
 objWord.Visible = False

objWord.Documents.Open (myfile)

With objWord
.Selection.wholestory
 .Selection.Copy
End With

'paste
ThisWorkbook.Sheets("Sheet1").Range("A1").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", 
Link:=False, DisplayAsIcon:=False
objWord.Quit
Set objWord = Nothing