Planilha Excel VBA macros Shapes 21 publicidade por 10 segundos

Planilha Excel VBA macros Shapes 21 publicidade por 10 segundos

SHAPES ‘AUTOFORMA’ PUBLICIDADE POR 10 SEGUNDOS
Estes Macro e procediementos do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos usar procedimento Evento Activate, isto é ao ativar a folha de planilha Publicidade, mostrará um Shapes, que é a propaganda do Site por 10 segundos, se nesse intervalo de tempo voce clicar no shapes, vai abrir o site www.saberexcel.com.br depois tempo de 10(dez) segundos, o shapes fechará automaticamente, depois para repetir seu teste, ativa outra folha de planilha e retorne para essa novamente para executar o Evento Activate da folha de planilha

‘//=========NO MODULO DE CÓDIGO DA FOLHA DE PLANILHA PUBLICIDADE
Private Sub Worksheet_Activate()

Saber1.Shapes(“SaberExcelPublicidade”).Visible = True

vFim = Timer + 10

Do While Timer < vFim

DoEvents

Loop

Saber1.Shapes(“SaberExcelPublicidade”).Visible = False

End Sub

//=========INSERIR O MACRO NO MODULO COMUM
Sub sbx_hiperlink_publicidade()

On Error Resume Next

Err = 0

ActiveWorkbook.FollowHyperlink Address:=”http://www.saberexcel.com.br”, NewWindow:=True

If Err <> 0 Then MsgBox “Erreur”

End Sub

/========’
Escola SaberExcel VBA Estudos®
Treinamentos com Macros, Fórmulas e Funções

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.