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
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)
