Uma guambiarra se quiser experimentar
crie um arquivo no word o meu nomeei "bord.doc"
no vba do documento inseri
Private Sub Document_Open()
ActiveDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 500, 600
ActiveDocument.Shapes(1).Select
Selection.CopyAsPicture
End Sub
aqui segue código no visual basic
Screen.MousePointer = vbHourglass
Set objword = CreateObject("Word.Application")
Set objdocument = objword.Documents
Clipboard.Clear
Set Document = objdocument.Open(App.Path & "ord.doc")
objword.Visible = False
'fecha aplicativo e limpa memoria
Set Document = Nothing
Set objdocument = Nothing
objword.Quit wdDoNotSaveChanges
Set objword = Nothing
Screen.MousePointer = vbDefault
RicTxt.SetFocus
Clipboard.GetData (3)
SendKeys "^(V)"
é só encontrar valores de largura e altura que te atendam
