Jump to content
Luiz Fabio

Inserir imagens no formulário do word

Recommended Posts

Luiz Fabio

Olá pessoal, bom dia

Necessito de uma ajuda de você.

Estou criando um formulário no word e em quatro campos desse formulário o usuário necessitará inseri quatro imagens, ou seja, uma imagem em cada campo do formulário.

Estou tentando através do controle ActiveX (Imagem) fazer isso, gostaria de uma ajuda ou um tutorial, de como na hora que clicar sobre (imagem) direcione o usuário para a pasta meus documentos e que essa imagem quando inserida no formulário fique compactada.

Seja que tem algum lugar pra baixar um modelo ?

Desde já obrigado pela ajuda.

Share this post


Link to post
Share on other sites
Gnrtuga

Boas, portanto se percebi queres que o utilizador escolha uma imagem guardada no disco. Fiz uma pequena pesquisa  e parece-me que o código seguinte deve servir:

Private Sub CommandButton1_Click()

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Add "Image", "*.gif; *.jpg; *.jpeg", 1
        If .Show = -1 Then
            ' file has been selected

            ' e.g. show path in textbox
            Me.TextBox1.Text = .SelectedItems(1)
			'DESTA PARTE 
            ' e.g. display preview image in an image control
            Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
            Me.Image1.Picture = LoadPicture(.SelectedItems(1))
  			'A ESTA É PARA EXIBIR A IMAGEM NUM IMAGE CONTROL, PODES TIRAR ESTE CÓDIGO SE NÃO QUISERES ISSO
        Else
            ' user aborted the dialog

        End If
    End With

End Sub

o código foi retirado de https://stackoverflow.com/questions/18029222/excel-vba-end-user-select-image-on-computer-and-submit-on-user-form

Espero que sirva para o que queres.

Boa Sorte.

 

Edited by Gnrtuga
erro

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
Gnrtuga

Olá Luiz, desculpa a demora.

Já vi o que queres, pensei que tivesse alguma coisa a ver com código, mas acho que não...Assim sendo, faz o seguinte:

1º - Adicionar o separador Programador à barra de menus, em principio é, Ficheiro, Opções e depois nas opções personalizar friso e depois escolhes a oção programador.

2º No documento do word, vais ao separador Programador, Modo Estrutura.

3º - Escolhes o tipo de objeto, neste caso fotografia, fazes os ajustes e fechas o modo estrutura. 

Penso que é isto que pretendes, também não estou dentro do assunto, mas espero que ajude.


Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
manuel antonio

Se ainda não resolveste tenta isto:

Private Sub Image1_Click() 

Dim NumFiles As Long
Dim iDir As String
Dim SEARCH_PATH As String
Image1.Picture = Nothing

    SEARCH_PATH = ThisWorkbook.Path & "\IMAGENS\FOTOS\" ' ESCREVE O CAMINHO COMPLETO DA FOTO, CADA PASTA SEPARADA PELA BARRA INVERTIDA.

     iDir = Dir(SEARCH_PATH & "*.jp*g") ' substitui o .jp*g pela extensão do ficheiro de imagem. este dá para JPG e JPEG.

            Do While iDir <> ""
                NumFiles = 1  ' para vários arquivos escreve-se NumFiles = NumFiles+1
                ReDim Preserve Images(1 To NumFiles)
                Images(NumFiles) = SEARCH_PATH & iDir
                
                iDir = Dir
            Loop
 End sub           

Isto funciona no Excell, no Word não sei.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.