Home Excel - Dicas Microsoft Excel VBA Excel VBA - API Excel VBA - api macros e declarações fazem a tela piscar

Excel VBA - api macros e declarações fazem a tela piscar

E-mail Imprimir PDF

SaberExcel - o site das macros
Estas macros e declarações do Aplicativo Microsoft Excel VBA(Visual Basic Application), .


'piscar tela do excel

Public Const R2_XORPEN = 7
 
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function SetROP2 Lib "gdi32" (ByVal hdc As Long, ByVal nDrawMode As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Sub Piscar_Tela()
Dim hwnd, DC As Long
Dim Pos As RECT
Dim I As Integer
 
hwnd = FindWindow("xlmain", Application.Caption)
DC = GetWindowDC(hwnd)
GetWindowRect hwnd, Pos
SetROP2 DC, R2_XORPEN
 
For I = 1 To 5
    Rectangle DC, 0, 0, Pos.Right, Pos.Bottom
    Sleep (100)
    Rectangle DC, 0, 0, Pos.Right, Pos.Bottom
    If I <> 5 Then
        Sleep (100)
    Else
        Exit Sub
    End If
Next I
 
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Última atualização em Qui, 18 de Agosto de 2011 11:55  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3990
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30513
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17719
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440548
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA