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.