Ir para conteúdo
Fórum Script Brasil

regis jm

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que regis jm postou

  1. 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.
×
×
  • Criar Novo...