Jump to content
Fórum Script Brasil
  • 0

código em vba


regis jm
 Share

Question

Amigos estou precisando código para enviar uma imagem já carregada numa form para uma determinada planilha, segue meu código de carregamento na formulário...

Obs. Sou iniciante em programação ok!!!

SEGUE CÓDIGO
'Manda a imagem para a planilha imprimir
Private Sub Inserir_Click()
'???????Sues códigos
End Sub
___________________________________________________________________________________________
'Carrega uma imagem para formulário
Private Sub InserirDados_Click()
Dim endedreçoimg As String
On Error GoTo erro
endedreçoimg = Application.GetOpenFilename(filefilter:="picture Filco,*.ico;*.bmp")
Image1.Picture = LoadPicture(endedreçoimg)
Worksheets("Banco_Dados").Range("F16") = endedreçoimg 'Armazena endereço da imagem na celular da plan banco de dados
erro:
End Sub
_____________________________________________________________________________________________
'Retira a imagem inserida anteriormente.
Private Sub Desfazer_Click()
Image1.Picture = LoadPicture("")
End Sub
****Apos o carregamento preciso pegar esta foto e enviar para uma planilha, se alguém puder dar uma ajuda agradeço.

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...