Frame piscar

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Frame piscar

Mensagempor Rinreis » Ter Jun 30, 2020 8:51 pm

Boa noite!
Tem como ao clicar em um botão fazer uma frame piscar?
Rinreis
Membro
Membro
 
Mensagens: 3
Registrado em: Sex Jun 05, 2020 7:26 pm
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Frame piscar

Mensagempor Televisaos » Sex Jul 03, 2020 11:47 pm

Boa noite Rinreis,

Basta adicionar a macro piscaframe() no botão.

Código: Selecionar todos
Sub piscaframe()
ActiveSheet.Shapes(1).Visible = False 'Ao invés de Shapes(1) vc pode escrever o nome da framebox, caso ela nunca mais vá mudar de nome.
Call Application.OnTime(Now + TimeValue("00:00:01"), "pisca") 'Nesse caso ela irá sumir por 1 segundo e reaparecer.
End Sub
Sub pisca()
ActiveSheet.Shapes(1).Visible = True 'Ao invés de Shapes(1) vc pode escrever o nome da framebox, caso ela nunca mais vá mudar de nome.
End Sub


Att, Televisaos
Televisaos
Membro
Membro
 
Mensagens: 15
Registrado em: Qua Jun 17, 2020 8:35 pm
Has thanked: 0 time
Have thanks: 2 times

Re: Frame piscar

Mensagempor Televisaos » Sáb Jul 04, 2020 9:48 pm

Boa noite,

Otimizando o código, ele também pode ser escrito assim:

Código: Selecionar todos
Sub teste()
ActiveWorkbook.ActiveSheet.Shapes(1).Visible = False
Application.ScreenUpdating = True
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWorkbook.ActiveSheet.Shapes(1).Visible = True
End Sub


Att, Televisaos
Televisaos
Membro
Membro
 
Mensagens: 15
Registrado em: Qua Jun 17, 2020 8:35 pm
Has thanked: 0 time
Have thanks: 2 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 7 visitantes