Plein écran

Le
Guy72
Bonjour,
Pourquoi, quand je fait plein écran, il n'a que la barre de titre du fichier
qui est masquer et pas les autres ?
--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #5242601
Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Pourquoi, quand je fait plein écran, il n'a que la barre de titre du
fichier qui est masquer et pas les autres ?


Deux procs indispensables à mettre dans ton perso.xls
en y associant un raccourci clavier

'===========Pour cacher
Sub incognito()
Dim rep As Variant
Dim cmdB As CommandBar
Application.ScreenUpdating = False
For Each cmdB In Application.CommandBars
cmdB.Enabled = False
Next cmdB
' si tu veux masquer en plus la barre d'état
' la barre de formule
' les onglets...
With Application
.DisplayFullScreen = True
.DisplayStatusBar = False
.DisplayFormulaBar = False
End With
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
End With
'
Application.ScreenUpdating = True
rep = MsgBox("pour retrouver les menus " _
& Chr(10) & "Ctrl+Maj+G" _
& Chr(10) & "pour cacher les menus" _
& Chr(10) & "Ctrl+Maj+H" _
, vbInformation _
, "GD_Plein Ecran")
End Sub
'===========pour révéler
Sub Sesame()
Dim cmdB As CommandBar
For Each cmdB In Application.CommandBars
cmdB.Enabled = True
Next cmdB

With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayHeadings = True
.DisplayVerticalScrollBar = True
.DisplayHorizontalScrollBar = True
End With
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
DoEvents
End Sub


--
@+
;o)))

Publicité
Poster une réponse
Anonyme