Ir ao conteúdo
  • Cadastre-se

Nadjala

Membro Júnior
  • Posts

    8
  • Cadastrado em

  • Última visita

Tudo que Nadjala postou

  1. @Basole, Bom dia, Como inserir uma restrição para que, ao clicar em salvar, apareça uma mensagem dizendo que deve anexar uma imagem no formulário? Segue o codigo que carrega a imagem do userform no controle activex presente na planilha, obrigada: Private Sub nova_imagem1() Dim suaImagem1 As String With ThisWorkbook .Activate With .Worksheets("MANUTENÇÃO") .Activate suaImagem1 = ThisWorkbook.Path & "\" & "ImageFoto1" & ".jpg" SavePicture UserForm2.Image1.Picture, suaImagem1 .OLEObjects("ImageFoto1").Object.Picture = LoadPicture(suaImagem1) VBA.Kill suaImagem1 End With End With End Sub
  2. @Basole o erro foi: adicionado 5 minutos depois @Basole, não consegui entender, pois o caminho é genérico, a imagem pode estar em qualquer pasta.
  3. @Basole É possível deixar um caminho genérico? Pois ele será usado em outros computadores. Está dando erro nessa linha: SavePicture UserForm2.Controls("Image" & i).Picture, suaImagem(i)
  4. @Basole Bom dia, segue em anexo o arquivo. Grata! Formulario Planejamento de Manutenção.rar
  5. @Basole Muito obrigada por responder! Mas não rodou aqui, não consigo identificar meu erro. Eu adaptei ao meu arquivo, porém apresenta o seguinte erro de compilação: Uso inválido da palavra-chave Me Os dados carregados no formulário são carregados numa aba da planilha, e no userform eu coloquei um controle de imagem que carrega a imagem no formulário para visualização, o botão salvar tem a função de salvar todos os dados do formulário na aba da planilha1, porém, apenas os textbox e combobox carregam na planilha1, as imagens não carregam na planilha1. Meu objetivo é fazer com que essa imagem também seja carregada na planilha1, dentro de um controle de imagem do activex (ImageFoto1), esse controle fica dentro da célula C85. Eu criei um módulo com esse código, e no comandbutton que está no formulário eu coloquei: Run "nova_imagem" Segue a adaptação que fiz: Private Sub nova_imagem() Planilha1.Activate 'Altere o caminho e nome da imagem de acordo com seus dados Const suaImagem As String = "C:\Temp\" & "Image" & ".jpg" SavePicture Me.Image1.Picture, suaImagem 'Altere de acordo c/ seus dados? ThisWorkbook.Worksheets(1).ImageFoto1.Picture = LoadPicture(suaImagem) VBA.Kill suaImagem End Sub
  6. @Basole, Tudo bem? É possível salvar uma imagem, que foi carregada em um formulário, e quando apertar no botão salvar, essa imagem é salva em um controle de imagem activex dentro de uma das abas da planilha? grata!!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...