eu tive a pesquisar e da para fazr o que eu quero se eu gravar o caminho em que a imagem e guardada e o nome dela numa celula .....

Dim lÁreaTransferência As Long
    
    'Define o local para salvar a Figura
    'Altere para o seu caminho
    PicPath = "C:UsersgonçaloDesktopIMAGENS"
    
    'Atribui a Variavel o Caminho e Nome da Figura
    ffname = PicPath & txtref & ".jpg"
    
    OpenClipboard 0
    EmptyClipboard
    
    'Coloca a Imagem na Area de Transferencia
    lÁreaTransferência = SetClipboardData(2, form1.Image_Produto.Picture.Handle)
    
    CloseClipboard
    
    If lÁreaTransferência Then
        'Salva a Figura
        SavePicture Image_Produto.Picture, ffname
        
        MsgBox "Imagem salva em " & ffname & " com sucesso!" _
          , vbInformation _
          , "Informação"
    End If
    
    'Limpa a área de Transferencia
    DestroyIcon Image_Produto.Picture.Handle

este e codigo que eu uso para gravar a imagem queria ao mesmo tempo gravar o caminho dela numa celula ...
Agradeço kk tipo de AJuda

Gonçalo, entendemos a sua urgência, vou tentar te ajudar, mas você precisa me ajudar a te ajudar.

Você pode por favor compactar a sua pasta de trabalho (seu arquivo XLS/XLSX/XLSM) e fazer o upload dele para este tópico?
A razão porque sua dúvida ainda nao foi resolvida ou não tem respostas, é que está bem difícil entender qual exatamente é o seu problema.

Claro que entendemos a barreira do idioma (vc é português), mas você precisa nos dar o máximo possível de detalhes, para que possamos ir direto ao ponto.

Fico no aguardo,

F.F.

NO FORM 1 VOCE VE QUE EU TENHO UMA PLANILHA DE IMPRESSAO QUE QUUANDO VOCE CARREGA NO BOTAO IMPRIMIR ELE E PRENNCHIDO ... EUQ UERIA QUE NA PLANILHA
FOLHA 1 QUANDO TODOS OS DADOS FOSSEM PREENCHIDOS A IMAGEM TAMBEM FOSSE PARA LA ... PARA O CONTROLE ACTIVEX

Entendi que deseja salvar o Caminho onde estão a imagem (string) ;e não a imagem; em uma celula.

Então use

Dim lÁreaTransferência As Long
 lRow = ActiveCell.Row 'Seleciona na memoria a linha onde está o registro
    'Define o local para salvar a Figura
    'Altere para o seu caminho
    PicPath = "C:UsersgonçaloDesktopIMAGENS"
    
    'Atribui a Variavel o Caminho e Nome da Figura
    ffname = PicPath & txtref & ".jpg"
    
    OpenClipboard 0
    EmptyClipboard
    
    'Coloca a Imagem na Area de Transferencia
    lÁreaTransferência = SetClipboardData(2, form1.Image_Produto.Picture.Handle)
    
    CloseClipboard
    
    If lÁreaTransferência Then
        'Salva a Figura
        SavePicture Image_Produto.Picture, ffname
        'Salva a informação docaminho da figura na celula AJ + numero dalinha (lRow)
        Cells(lRow, 36).Value = ffname
        MsgBox "Imagem salva em " & ffname & " com sucesso!" _
          , vbInformation _
          , "Informação"
    End If

mas eu preciso que depois ao imprimir o formulario ele me imprima a figura

e ja agora se eu quiser gravar o caminho nhuma celula especifica

so agora pude testar e da-me um erro variavel nao dfenida referente a lrow

Defina:
Dim lRow as integer

Aparentemente, sua duvida não estão em salvar o caminho em uma celula, mas sim, mostrar uma imagem em uma celula.
Até onde conheco, no excel não aceita exibir uma imagem em uma celula, porem é possivel "mostrar" a imagem em uma região proxima à um endereço de celula.
Alterei o codigo de seu botão imprimir, para carregar a imagem (que está mostrada no form), na região da celula E3 de sua planilha "Folha1).
Tb tem uma laternativa inserindo na planilha um objeto Imagem.
Veja se é isso, porem ainda e necessario, retirar as imagens, depois da impressão.

ra a segunda alternativa .... mesmo ... era isso mesmo que eu queria .... depois de imprimir usava o comando empty poara limpar tudo
inclusive o objecto iamge

da o mesmo erro com pitch path....
reinaldo de nao se importa eu vou carregar uma nova planilha onde da mesmo para visualizar o que quero
no user form 1 eu quero com o segundo botao carregar a imagem para o user form e para a planilha etiqutas

Faltou o anexo, veja se está OK

Private Sub CommandButton2_Click()
Dim Title As String

    ' Titulo da Caixa de Dialogo
    Title = "Selecione a Figura"
    
    ' Seleciona o Drive & Path Inicial onde estão as figuras
    'Altere a Localização
    'ChDrive ("c")
    'Define o Novo Diretório
    'ChDir ("C:UsersgonçaloDesktopIMAGENS")
    
    With Application
        
        ' Caixa de Dialogo para  Selecionar o arquivo
        'Ira abrir no Diretório atribuido acima em ChDrive e ChDir
        Filename = .GetOpenFilename("Picture(*.jpg;*.gif;*.bmp),*.*;", , Title, "False")
        
            ' Sair ou Cabncelar
            If Filename = False Then
                MsgBox "Nenhum Arquivo Selecionado !!!"
                
                ' Redefine o Drive/Path Padrão (C:MeusDocumentos)
                ChDrive (Left(.DefaultFilePath, 1))
                ChDir (.DefaultFilePath)
                
                Exit Sub
            End If
            
           'Coloca a Imagem no Form e define a propriedade
           Image_Produto.Picture = LoadPicture(Filename)
           Image_Produto.PictureSizeMode = fmPictureSizeModeStretch 'fmPictureSizeModeZoom
        
    End With

Private Sub UserForm_Click()

End Sub

bem eu estou tentando adaptar noutro formulario ams da-me um erro neste codigo

da Filename variante nao defenida ... ;S

resolvi o problema anteriro apareceu um novo

.Image1.Picture = LoadPicture(filename)
oao carregr no botao para "imprimir " da o erro
o objecto nao aceita essa propriedade ou esse metodo

E que mudei a definição da variavel Filename, para fora do modulo,
deve ficar junto com a declaração do sLocaliza , logo no inicio do modulo do form1

Dim sLocaliza As Boolean, Filename As Variant

O erro do objeto, provavelmente é porque o mesmo não foi inserido na planilha