Inserir Imagem dentro de uma Forma

Boa Tarde,
Alguém pode me ajudar com uma VBA para inserir imagem dentro de uma Forma Excel?
Tenho uma VBA mais ela insere dentro de uma célula.

Código:

Sub Imagem_Foto_01A()
Dim sPathFigura As String
Dim sNomeFig As String
Dim sArrayRange
Dim sRgAddPic As Range
Dim sValor
Dim I As Integer
Dim arqAAbrir
Dim Msg, Style, Title, Response, MyString
Msg = “Deseja realmente limpar o formulário?” ’ Define a mensagem.
Style = vbYesNo + vbCritical + vbDefaultButton1 ’ Define o botão NÃO como padrão.
Title = “LIMPAR FORMULARIO” ’ Define o título.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ’ O usuário escolheu Sim.
’ Executa alguma ação
'Abre a caixa para selecionar e pegar o Endereço (Caminho) onde estão as figuras
sPathFigura = Application.GetOpenFilename(“Arquivos de imagens (.jpg;.jpeg;.png;.bmp, .jpg;.jpeg;.png;.bmp”)
’ sPathFigura = Application.GetOpenFilename(“Arquivos de imagens (.jpg;.jpeg), .jpg;.jpeg”)
'Definimos o Range Nomeado onde será inserido a Imagem
Set sRgAddPic = ActiveSheet.Range(“Foto_01A”)
Application.ScreenUpdating = False

'Chamamos a função para inserção da figura
AddPicOverCell sPathFigura, sRgAddPic
Else ’ O usuário escolheu Não.

Exit Sub
End If

Call Formatar_Imagens

End Sub

Desculpa ter colocados fora dos padrões do forum.
Segue planilha em anexo para me ajudarem a solucionar o problema.
Gostaria que quando executar a VBA inserir uma imagem em uma forma.
Obrigado

Please Login or Register  to view this content.