Nadjala

@Basole Muito obrigada!! Deu certo!

@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

@Basole Funcionou!! Obrigada!

@Basole o erro foi:

@Basole, não consegui entender, pois o caminho é genérico, a imagem pode estar em qualquer pasta.

@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)

@Basole Bom dia, segue em anexo o arquivo. Grata!

Formulario Planejamento de Manutenção.rar

@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

@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!!