Capítulo 84: Dashboard Inteligente en Excel
Código utilizado:
Private Sub ToggleButton1_Click()
Dim shDashboard As Worksheet
If Me.ToggleButton1.Caption = "Minimizar" Then
ToggleButton1.Caption = "Maximizar"
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Else
ToggleButton1.Caption = "Minimizar"
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = False
End If
End Sub
Responses