Página 1 de 1

Código VBA para CommandButton1 Inserir Imagem

Enviado: Dom Ago 07, 2016 9:07 am
por lfabiof
Pessoal, bom dia

Estou criando um formulário no Word onde necessito que o usuário insira a imagem após clicar no Botão de Inserir, ja tenho esse mesmo formulário no Excel e com a rotina abaixo em VBA, porem quando levo esse código por word não funciona. Alguém poderia me ajudar ou me indicar algum tutorial que me ajudasse.

Private Sub CommandButton1_Click()
Foto = Application.GetOpenFilename(FileFilter:="picture file,*.jpg")
Image1.Picture = LoadPicture(Foto)
End Sub


Obrigado e Aguardo uma ajuda.