Planilha Excel VBA Shapes 25 imagem deslizando
Este Macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz com que uma shapes(imagem) deslize na folha de planilha até o termino do contador, isto é, usando uma Instrução For Next e Do While Loop e também a Função Timer, as imagens desloca um espaço a cada (0.2) milésimos de segundos, dando o efeito
de deslizamento da imagem pela folha de planilha. Bons Estudos, Fiquem com Deus, Expedito Marcondes.
‘//=======’
Sub sbx_chamar_macro()
Call Worksheet_Deactivate
Call Worksheet_Activate
End Sub
‘//=======‘
Private Sub Worksheet_Activate()
On Error Resume Next
ActiveSheet.Shapes(“sbx_anjo”).Visible = True
ActiveSheet.Shapes(“einstein”).Visible = False
ActiveSheet.Shapes(“simao”).Visible = False
For x = 1 To 300
Shapes(“sbx_anjo”).Left = x
Shapes(“sbx_anjo”).Top = x
w = 0.02
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
If x = 100 Then
ActiveSheet.Shapes(“indiana”).Visible = True
End If
If x = 200 Then
ActiveSheet.Shapes(“simao”).Visible = True
End If
Next x
ActiveSheet.Shapes(“einstein”).Visible = True
On Error GoTo 0
End Sub
‘//=======’
Private Sub Worksheet_Deactivate()
On Error Resume Next
Shapes(“sbx_anjo”).Left = 0
Shapes(“sbx_anjo”).Top = 0
Shapes(“einstein”).Visible = False
Shapes(“Indiana”).Visible = False
Shapes(“simao”).Visible = False
On Error GoTo 0
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.
Baixe o exemplo de planilha contendo os macros acima:
Planilha Excel VBA Shapes 25 imagem deslizando planilha
