MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Imagens Access X Word

    Compartilhe

    joao batista
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 17/11/2011

    Imagens Access X Word

    Mensagem  joao batista em Sab 15 Abr 2017, 18:12

    Senhores, 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

      Data/hora atual: Ter 19 Set 2017, 12:45