Planilha Excel VBA Shapes 31 intermitente
Planilha Excel VBA Shapes 31 intermitente
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), inserirá um shapes intermitente ‘piscando’ de acordo com a condição escolhida, usamos uma condição IF Then Else, para entrar em uma condição ou em outra
de acordo com a escolha.
Sub sbx_intertencia_shapes()
ActiveSheet.Shapes(“Intermitencia”).Visible = False
ActiveSheet.Shapes(“Intermitencia2”).Visible = False
If Cells(2, “b”).Value = 1 Then
n = 0
Do While n < 10
ActiveSheet.Shapes(“Intermitencia”).Visible = True
vFim = Timer + 0.4
Do While Timer < vFim
DoEvents
Loop
ActiveSheet.Shapes(“Intermitencia”).Visible = False
vFim = Timer + 0.2
Do While Timer < vFim
DoEvents
Loop
n = n + 1
Loop
‘//=============’ para o segundo shapes
Else
n = 0
Do While n < 10
ActiveSheet.Shapes(“Intermitencia2”).Visible = True
vFim = Timer + 0.4
Do While Timer < vFim
DoEvents
Loop
ActiveSheet.Shapes(“Intermitencia2”).Visible = False
vFim = Timer + 0.2
Do While Timer < vFim
DoEvents
Loop
n = n + 1
Loop
End If
End Sub
‘caso precise mostrar um shape
Sub xb()
ActiveSheet.Shapes(“Intermitencia”).Visible = True
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Planilha Excel VBA Shapes 31 shapes intermitente |
| << Download: Verifique a Caixa de Itens Excluídos Também >> |
Excel Shapes 31 shapes intermitente Planilha
