Excel planilha vba usf commandbton altera medidas ao clicar toggle

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), aumenta e diminui as medidas do Objeto CommandButton(Botão)
observe que a instrução IF, faz com que os eventos de clicar retorna a ação, fucionando como se fosse um botao de ativacao(Toggle)
feito pela aluna Celeste (TR-SP)

Private Sub CommandButton1_Click()
      With CommandButton1
            .Height = 20
            .Width = 80
            If .Caption = "Sô tiancinha!!!" Then
               .Width = 300
               .Font.Bold = True
               .Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
               .ForeColor = &HFFFFFF
               .BackColor = &H80FF&
             Else
               .Width = 80
               .Font.Bold = False
               .Caption = "Sô tiancinha!!!"
               .ForeColor = &H4000&
               .BackColor = &HC0FFFF
            End If
      End With
End Sub

'procedimento no módulo de edição do objeto Workbook, evento Auto_Open
Private Sub Workbook_Open()
      With Saber1.CommandButton1
            .Height = 20
            .Width = 90
            .Left = 150
            .Top = 80
            .Caption = "Sô tiancinha!!!"
      End With
End Sub

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

Baixe o exemplo de planilha contendo os procedimentos acima
Excel planilha ba usf commandbutton altera medidas (23.24 KB)

Tags: