Visual Basic Erro ao inserir imagem com VBA

[Paulo Victor Oliveira]

Bom dia alguém poderia me ajudar com uma dúvida sobre VBA!!

Tenho uma planilha que ao clicar em um botão ela adiciona uma imagem! porém eu quero que essa imagem seja adicionada na célula selecionada! 

Sempre que eu clicar no botão a célula que estiver selecionada receberá a imagem!

ainda pretendo colocar um If para critério de qual imagem selecionar para a determinada célula!!

Código atual!

lin = ActiveCell.Row
col = ActiveCell.Column

   Dim plan As Worksheet, Imagem As Shape
 
Set plan = ActiveSheet
Set Imagem = plan.Shapes.AddPicture("\\localdoarquivo\IMG\22.png", msoFalse, msoCTrue, lin, col, 25, 25)

 

Se alguém puder me ajudar por gentileza!!

 

Att,

 

 

[Midori]

Tente ActiveSheet.Pictures.Insert "\\localdoarquivo\IMG\22.png"

 

Este comando já adiciona a imagem na célula selecionada.