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,