Excel VBA Shapes Feliz Natal a Todos
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando shapes faz uma intermitência, isto é, fica piscando algumas luzes (Autoformas) na arvore de natal na folha de planilha do Excel.
Mensagem de feliz natal no Excel.
Desejo a todos um feliz e Santo Natal, Paz e Saúde.
//================’
Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Sub sbx_feliz_natal_a_todos()
Application.EnableCancelKey = xlErrorHandler
MsgBox “Click esck para sair do loop.” & vbNewLine & vbNewLine & _
“Aguarde 12 segundos para Finalizar.”, , “Animação da Arvore”
Dim i As Long, shp As Shape, j As Long
On Error GoTo ExitLoop
For i = 1 To 12
Sleep 1000
For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 5) = “Light” Then
j = shp.DrawingObject.ShapeRange.Fill.ForeColor.SchemeColor
If j = 13 Then
j = 10
Else
j = j + 1
End If
shp.DrawingObject.ShapeRange.Fill.ForeColor.SchemeColor = j
End If
Next shp
DoEvents
Next i
ExitLoop:
MsgBox “E também um Feliz Ano Novo! ;-)”, , “Feliz Natal!!! – Escola Saberexcel VBA Estudos®”
End Sub
Faça o download do exemplo de planilha no final do Post
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 Feliz Natal a Todos |
| <<< verifique em sua caixa de email, em itens excluidos, se não tiver na caixa de entrada >>> |
Planilha Excel VBA Shapes Feliz Natal a Todos
