VBA auto masquer le ruban dans Excel 2013

Comment Auto-hide Ribbon dans Excel 2013 VBA? J'aimerais réaliser exactement ce que j'obtiens en cliquant sur la flèche supérieure de l'icône en haut à droite de menu Excel marqués en bleu dans l'image ci-dessous, puis cliquez sur la première option marqué avec orange:

VBA auto masquer le ruban dans Excel 2013

Je serais également intéressé par VBA afin de revenir à la troisième option Show Tabs and Commands. Chose importante pour moi est de garder dans le menu Excel, la supérieure de l'icône en forme de flèche (marqué en bleu).

J'ai essayé les indications affichées dans ce fil: VBA réduire le ruban dans Excel
mais je ne suis pas satisfait avec les résultats.

Tentative 1

Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)

C'est bon, mais cache l'icône bleue.

Tentative 2

CommandBars.ExecuteMso "MinimizeRibbon"

C'est proche de ce que je veux. Cela permet de maintenir l'icône bleue mais ne cache pas l'ensemble du menu. Il passe à la deuxième option apparaît dans l'image Show Tabs.

Tentative 3

SendKeys "^{F1}"

La attampt ne fonctionne pas du tout. En outre, il est censé imiter la tentative 2. Donc même ce ne serait pas me satisfaire.

OriginalL'auteur Przemyslaw Remin | 2016-08-29

  1. 11

    Je ne peux pas voir que quelqu'un d'autre a dit cela... Ce n'est pas une solution, c'est la idMSO pour ce que je pense que vous êtes la recherche pour. Ce code permet de ma fenêtre excel ressembler, tout est parti de la même manière que la première option n'est pour Auto-Hide Ribbon.

    Avant l'exécution du code, de ma fenêtre ressemble à ceci, dans la "Restauration" de taille:

    VBA auto masquer le ruban dans Excel 2013

    Exécutant le code suivant:

    Sub HideTheRibbon()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

    Fera de votre fenêtre ressemble à ceci, dans le maxamized la taille de la fenêtre (tout comme ce qui se passerait si vous deviez appuyer sur la Auto-Hide Ribbon bouton manuellement):

    VBA auto masquer le ruban dans Excel 2013

    Si vous voulez le ruban automatiquement masquée lorsque le classeur s'ouvre, mettez ceci dans le classeur code:

    Sub Workbook_Open()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

    Sinon, pour réaliser la même chose, vous pouvez mettre ce code dans un module:

    Sub Auto_Open()
    CommandBars.ExecuteMso "HideRibbon"
End Sub

    Si vous voulez que la fenêtre pour revenir à la normale, vous exécuter exactement le même code. En d'autres termes, le code suivant n'aurait aucun changement visuel quand couru car la idMSO "HideRibbon" est un toggleButton:

    Sub HideTheRibbon()
    CommandBars.ExecuteMso "HideRibbon"
    CommandBars.ExecuteMso "HideRibbon"
End Sub

    Si vous voulez une liste complète de tous les idMSO dans excel, cliquez sur les éléments qui s'appliquent à vous: Excel 2013+, Excel 2010, Excel 2007

    Je suis heureux que vous avez venir avec cette solution. Simple et fonctionne:-)
    Excellente solution.
    S'est avéré que (au moins Excel 2016) besoins Application.CommandBars.ExecuteMso "HideRibbon" si le code n'est pas utilisé dans un module.

    OriginalL'auteur Tyeler

  2. 4

    Vous devriez probablement faire quelque chose d'un peu plus compliquée:

    Utilisation CommandBars.ExecuteMso "MinimizeRibbon" pour afficher/masquer le ruban.
    Selon ce que vous voulez, vous pouvez afficher/masquer tous les autres onglets du ruban. E. g. quelque chose de l'utilisation du code -> Excel Masquer/Afficher tous les onglets sur le Ruban à l'exception onglet personnalisé

    Donc 2 étapes:

    Étape 1 - afficher ou masquer les barres de commande.ExecuteMso

    Étape 2 - afficher ou de masquer le reste des onglets à l'aide de macros à partir du lien.

    Un peu gros de solution de contournement, mais vous obtiendrez ce que vous voulez.

    Pouvez vous s'il vous plaît point à n'importe quel exemple de l'étape 2?
    Dans le lien il y en a assez. Mais encore, de manière explicite - ici -> rondebruin.nl/win/s2/win012.htm. L'idée est de faire en sorte, que chaque fois que le "CommandBars.ExecuteMso MinimizeRibbon" est appelé, vous appelez pour plus d'macro (etape 2), qui masque ou affiche tous les onglets. M. De Bruin a expliquée, c'est vraiment bien. Espère avoir aider à vous 🙂
    Votre réponse est très utile pour la construction de ruban personnalisé et peut conduire à l'objectif. Bien que des liens expliquer ruban bâtiment clairement, je suis heureux qu'il y est une solution simple, mentionné par Tyeler. Si Tyeler n'avait pas révélé sa solution, la prime serait la vôtre. Je vous remercie.

    OriginalL'auteur Vityata

  3. 4

    - Je l'utiliser pour des fins de présentation

    ActiveWindow.DisplayGridlines = False

    ActiveWindow.DisplayHeadings = False

    Application.DisplayFormulaBar = False

    Application.DisplayFullScreen = True C'est ce que j'ai utilisé pour masquer le ruban

    Instread accepté de répondre à stackoverflow.com/a/39310260/375368 la DisplayFullScreen paramètre de travail sans changer le réel MainWindow. Cette réponse est de travailler plus approprié pour moi. Travailler dans le Bureau de 16 ans avec Excel.

    OriginalL'auteur Olandu17

  4. 2

    D'abord, allez dans les Options Excel, puis aller à "une Action Rapide de la Barre d'outils".

    À partir de là, de la recherche pour "Masquer le Ruban" et ajouter à la barre d'outils. Après c'est sur la barre accès rapide, vous pouvez appeler rapidement avec ALT+# (sur mon ordinateur c'est le 8e chose, donc ALT+8 auto-cacher).

    VBA auto masquer le ruban dans Excel 2013

    Puis il suffit d'ajouter un sub qui ne SendKeys ALT puis 8:

    Sub Macro1()
ActiveSheet.Activate
'Cells(1, 1).Select
SendKeys "%0", True
SendKeys "8", True

End Sub

    Note: je sais que c'est ridicule d'avoir ActiveSheet.Activate, j'ai juste ajouté que pour tester la macro. Selon la façon dont on l'appelle, vous pouvez supprimer/commentez cette ligne. Le % est équivalent à ALT, et techniquement, je dois appuyer sur la touche 0 puis 8, donc les deux lignes.

    Merci pour cette idée. Étant donné qu'il existe un natif "bouton" dans Excel commandes - n'est-il pas possible de l'appeler sans envoyer les clés? Votre idée est bonne astuce, mais il ne peut pas être fait par envoyer les clés sur les autres utilisateurs à comps - non, à moins qu'ils modifient leur Action Rapide de la Barre d'outils.
    Hm, bon point sur les autres utilisateurs. Je suis sûr qu'il ya une certaine façon de l'obtenir, mais vous avez raison, le couple de VBA commandes vous ne trouvez n'est pas tout à fait le faire. Pour ce que ça vaut, en utilisant la MacroRecorder n'aide pas - il ne suit pas vous cacher le ruban :/
    Juste au sujet de tout sur la liste des commandes que vous avez montré à votre image, utiliser les mêmes mots et le format (sans les espaces) comme leur idMSO. Reportez-vous aux liens en bas de ma réponse et vous pouvez obtenir la liste complète de les comparer si vous le souhaitez.

    OriginalL'auteur BruceWayne

  5. 2

    Donner à ceci un essai:

    Sub ShowHideRibbon()

If CommandBars("Ribbon").Controls(1).Height < 100 Then
    CommandBars.ExecuteMso ("MinimizeRibbon")
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If

End Sub

    Ou ceci:

    Sub ShowHideRibbon1()

If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If

End Sub
    Pas de cette façon. La première Sous conduit exactement aux résultats de Tenter 2 et le deuxième Sous conduit exactement aux résultats de Tentative 1. Je n'ai pas été heureux avec l'un d'eux.

    OriginalL'auteur Brian

  6. 2

    - Je appeler cette macro sur "Workbook_Open" pour vérifier le ruban et si pas caché, il permet de masquer le ruban (en fait, je l'ai trouve dans un autre Sous qui supprime également la barre de formule, la barre d'état, des titres et de quadrillage à "Workbook_Open")...

    Sub HideRibbon()
If CommandBars("Ribbon").Controls(1).Height < 100 Then
Exit Sub
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If
End Sub

    Puis-je appeler cette macro sur Workbook_BeforeClose pour vérifier le ruban et si elle n'est pas montré, il va montrer le ruban pour la prochaine feuille de calcul excel qui s'ouvre. 

    Sub ShowRibbon()
If CommandBars("Ribbon").Controls(1).Height > 100 Then
Exit Sub
Else
    CommandBars.ExecuteMso ("MinimizeRibbon")
End If
End Sub

    Ce qui élimine la possibilité de cacher le ruban lorsque le classeur est ouvert et qu'un utilisateur manuellement puis montrant le ruban qui à son tour permettrait d'inverser le spectacle sur la proximité et le fait de masquer le ruban. À l'ouverture, le ruban sera ensuite affiché à nouveau. Cela permettra de garder le même à chaque fois sur ouvrir et fermer le classeur.

    OriginalL'auteur Miller

  7. 0

    Pour obtenir ce code pour travailler dans excel 2016, vous devrez le code suivant dans le "ThisWorkbook" mode.

    De crédit va à BigBen - pas moi 

    Private Sub Workbook_Open()
application.CommandBars.ExecuteMso "HideRibbon"
End Sub

    OriginalL'auteur PGD15