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

Related Articles

Responses

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

  1. Muchas gracias, muy valiosas tus enseñanzas, porque son muy didaticos, y sobre todo los ejercios para practicar. Mil bendiciones

El Tío Tech
Resumen de privacidad

Esta web utiliza cookies para que podamos ofrecerte la mejor experiencia de usuario posible. La información de las cookies se almacena en tu navegador y realiza funciones tales como reconocerte cuando vuelves a nuestra web o ayudar a nuestro equipo a comprender qué secciones de la web encuentras más interesantes y útiles.