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
Muchas gracias, muy valiosas tus enseñanzas, porque son muy didaticos, y sobre todo los ejercios para practicar. Mil bendiciones