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