Pergunte aqui
1

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

perguntadas 2020-08-02 20:07:27 +0200

imagem do gravatar de Schiavinatto

updated 2020-08-03 16:16:54 +0200

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).

Descrição da imagem

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: https://www.dropbox.com/s/72ywfk1egjq...

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

Descrição da imagem

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

1

Cadê o arquivo para eu dar uma olhada Gilberto?

imagem do gravatar de BetoBeto ( 2020-08-04 17:56:27 +0200 )editar

1 Resposta

0

respondidas 2020-08-04 16:56:17 +0200

imagem do gravatar de Conrado

@Schiavinatto Tente alterar para evento "Alterado" ou "Mudança no status do item"

editar assinalar como ofensivo Excluir Link mais

Comentários

@Conrado, 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
imagem do gravatar de SchiavinattoSchiavinatto ( 2020-08-04 17:26:04 +0200 )editar

Neste caso acredito que tenha que vincular a macro para evento

imagem do gravatar de ConradoConrado ( 2020-08-04 17:52:30 +0200 )editar

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

imagem do gravatar de SchiavinattoSchiavinatto ( 2020-08-07 16:31:51 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

2 seguidores

Estatísticas

Perguntadas: 2020-08-02 20:07:27 +0200

Lidas: 23 vezes

Última atualização: Aug 04