Planilha Excel VBA Shapes mover reposicionar A1
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),usando shapes que ao acionar o macro verifica a localização [.Top] e [.Left], e move o botão para outra posição. veja o macro abaixo.
‘PODERÁ FAZER COM QUALQUER AUTOFORMA (SHAPES)
‘//=================’
Sub sbx_mover_botao()
With ActiveSheet.Shapes(“sbx_01”)
If .Top = 0 Then
.Top = [h1].Value ‘150
.Left = [H2].Value ‘ 567
[E3].Value = “Botão Posição Top: ” & ActiveSheet.Shapes(“sbx_01”).Top
[E4].Value = “Botão Posição Left: ” & ActiveSheet.Shapes(“sbx_01”).Left
Else
.Left = 0
.Top = 0
[E3].Value = “Botão Posição Top: ” & ActiveSheet.Shapes(“sbx_01”).Top
[E4].Value = “Botão Posição Left: ” & ActiveSheet.Shapes(“sbx_01”).Left
End If
End With
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.
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 mover reposicionar A1 |
<< Email: Verifica itens Excluídos – Caso o Link do Download não esteja na Caixa de Entrada >>> |
Planilha Excel VBA shapes mover reposicionar A1