Início
joao batista 15/4/2017, 18:12Senhores, boa tarde.
Preciso inserir imagem de um formulário para o Word.
A rotina está pronta e funcionando.
O problema é que a imagem no meu banco de dados nem sempre possui o mesmo tamanho, e o meu campo no word tem espaço limitado e pré-definido.
como faço para padronizar o tamanho da imagem antes de enviar para o word?
ou ainda, é possível, mesmo que a imagem tenha 10cm x 15cm, no momento em que envio para o word, ela ficar no tamanho 3cm x 4cm?
Segue a rotina que estou utilizando:
.ActiveDocument.Bookmarks("fotoCapa").Select
If Not IsNull(Me.txFotoCad) Then
.Selection.InlineShapes.AddPicture FileName:=Me.txFotoCad, LinkToFile:=False, SaveWithDocument:=True
Else
.Selection.InlineShapes.AddPicture FileName:=TPPastaInicialF, LinkToFile:=False, SaveWithDocument:=True
End If
Preciso inserir imagem de um formulário para o Word.
A rotina está pronta e funcionando.
O problema é que a imagem no meu banco de dados nem sempre possui o mesmo tamanho, e o meu campo no word tem espaço limitado e pré-definido.
como faço para padronizar o tamanho da imagem antes de enviar para o word?
ou ainda, é possível, mesmo que a imagem tenha 10cm x 15cm, no momento em que envio para o word, ela ficar no tamanho 3cm x 4cm?
Segue a rotina que estou utilizando:
.ActiveDocument.Bookmarks("fotoCapa").Select
If Not IsNull(Me.txFotoCad) Then
.Selection.InlineShapes.AddPicture FileName:=Me.txFotoCad, LinkToFile:=False, SaveWithDocument:=True
Else
.Selection.InlineShapes.AddPicture FileName:=TPPastaInicialF, LinkToFile:=False, SaveWithDocument:=True
End If