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
![](https://escola.saberexcel.com.br/wp-content/uploads/2013/08/linazul.jpg)
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 |
![]() |
![]() |
![]() |
<< Email: Verifica itens Excluídos – Caso o Link do Download não esteja na Caixa de Entrada >>> |
Planilha Excel VBA shapes mover reposicionar A1