Coleção 15.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

Excel VBA Shapes Feliz Natal a Todos

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando shapes faz uma intermitencia, 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


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.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
  icon SBL Excel VBA Shapes Feliz Natal a Todos (60.5 kB)