Pessoal,

Atraves do código abaixo, eu seleciono uma imagem do C: e a salvo na minha planilha.

Private Sub mudarimagem()
On Error Resume Next


'deleto a imagem anterior
  Dim Shp As Shape, ws As Worksheet

        For Each ws In ActiveWorkbook.Worksheets
            For Each Shp In ws.shapes
               
                  Shp.Delete
               
            Next Shp
        Next ws

    
Dim strCaminhoImagem    As String

strCaminhoImagem = Application.GetOpenFilename("*.jpg,*.jpg,*.bmp,*.bmp")

If strCaminhoImagem = "" Then
    MsgBox "Processo não concluído"
    
    Else
    Dim n
    Dim t
    Dim l
    
Set n = ActiveSheet.Pictures.Insert(strCaminhoImagem)


'verifico se a imagem tem o tamanho ideal para preencher a foto do perfil
If n.Width > 102 And n.Height > 138 Then

Dim response

response = MsgBox("Essa imagem é muito grande. Deseja realmente Continuar?", vbYesNo, "Atenção!")

Select Case response

Case 6
   
'redimensiono o tamanho da foto para 138 x 102
Dim shapes

        For Each ws In ActiveWorkbook.Worksheets
            For Each Shp In ws.shapes
                Shp.Height = 138
                Shp.Width = 102
            Next Shp
        Next ws


    
 MsgBox "Pronto!", vbInformation, "Atenção!"
 

 
    Image5.Visible = False

Image38.Visible = True


Case 7

 
 
 End Select

Exit Sub

End If

End sub

A minha necessidade é fazer com que a image38 dessa userform seja carregada com a image que acabou de ser salva na planilha.

Eu pesquisei aqui no Planilhando e em outro foruns, mas tudo o que encontrei apresentava exemplos que carregava a imagem através de um caminho que ela encontra-se salva, exemplo: L:Avaliacao_de_desempenhoBASE_DE_DADOS

Com isso, caso eu exclui-la ou renomea-la, o controle de imagem não seria gravado.

Por isso, eu quero carregar a imagem que esta salva na Sheets ("dados").

Como faço?