Macro com funcionamento diferente ( acionando por botão x evento em Caixa de listagem )

Tenho um arquivo de dados de frota de veículos.

Estou montando um formulário para consulta dos dados por Placa ou Renavam, com foto do veículo, quando faço a seleção pela validação (1) e aciono o botão (2) é executado perfeito, a macro deleta a imagem antiga e coloca a nova, ou seja na planilha não sobrepõem as imagens (3)(4).

Porém quando faço a seleção pela caixa de listagem(1), com a macro ( a mesma do botão 2), ligada a evento “Executar ação” a imagem antiga não é deletada (3)(4).

Arquivo do teste

Imagens de carros usados para teste: Dropbox - File Deleted

Alguém tem explicação ou é algum bug ?

Cadê o arquivo para eu dar uma olhada Gilberto?

@schiavinatto Tente alterar para evento “Alterado” ou “Mudança no status do item”

@Conras, Ok tentei, continua o problema.

A macro é executada, porem a parte de deletar a imagem é que não tem efeito.

Mas se executo a mesma macro macro pelo botão redondo, funciona…

E a macro é simples:

Sub ApagarFoto
	GoToCel "fotoo" : Wait 300 REM vai para a área fotoo
	Execute "Cut" : Wait 300 REM recorta ( qdo recorta desfaz o Mesclar da área )
	GoToCel "fotoo" : Wait 300 REM vai para a área fotoo
	Execute "ToggleMergeCells" : Wait 300 REM mesclar.
End Sub

Até coloquei tempo (Wait 300) para executar mais devagar, mas não resolveu.

GoToCel é uma SubMacro.

Sub GoToCel ( xLocal$ ) 
dim args1(0) as new com.sun.star.beans.PropertyValue : args1(0).Name = "ToPoint" : args1(0).Value = xLocal
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:GoToCell", "", 0, args1())
End Sub

Neste caso acredito que tenha que vincular a macro para evento

Ola @Conras, a macro já esta vinculada em Eventos na Caixa de listagem.

@schiavinatto, caso não tenha resolvido, acredito que esteja sobrescrevendo as imagens porque a imagem anterior fica retida na memória da caixa de listagem. Para resolver basta limpar os itens da caixa de listagem ao inicializar a mesma:

Sub AlimentarCombo ()
    'Declara as variáveis
    suaListBox.Model.removeAllItems
    'Alimenta a listBox
End Sub