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 *

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.