Microsoft 365 Menu Démarrer hauteur

[Simply]

Hi

Comment ajuster la hauteur de l'application Excel 2560 x 1440

Hauteur des pixels Menu Démarrer Windows 10
je ne connais pas de solution

 

[TooFatBoy]

Bonjour,

Je pense qu'il faut utiliser Application.Width = XXX (pour la largeur) et Application.Height = YYY (pour la hauteur).

Mais ces deux instructions demandent des valeurs XXX et YYY en "points".
Il faut donc arriver à convertir le nombre de pixels en "points", et là c'est un vaste sujet, auquel certains spécialistes de la question sur ce forum pourront te dire plein de choses.

 

[Simply]

Bonjour,

Ok j'ai le résultat de la hauteur totale, je dois réduire la hauteur d'une valeur comme 53 pixels pour supprimer la barre des Menu

 

[patricktoulon]

re
bonjour je pige pas
si tu met l'application en xlmaximized ça s'arrête a la barre des tache non?

 

[Simply]

Hi

j'utilise

Application.WindowState = xlNormal

Je peux obtenir sans maximiser la taille d'Excel
Il s'agit d'obtenir une valeur valide avec toutes les résolutions de moniteur

 

[patricktoulon]

Bonjour
allez a la fraiche je fait ca vite fait
met ça dans un module et lance la sub test

Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As Rect) As Long
Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As LongPtr, ByVal nIndex As Long) As Long
Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Type Rect: Left As Long: Top As Long: Right As Long: Bottom As Long: End Type
Type donne: HeightTaskBar As Long: WidthTaskbar As Long: ScreenHeight As Long: ScreenWidth As Long: PointToPixel As Double: End Type
Function dimWindow() As donne
Dim R1 As Rect, R2 As Rect, M As donne
PtPx = GetDeviceCaps(GetDC(0), 88): PtPx = 1 / (PtPx / 72)
HwnDTaskB = FindWindow("Shell_TrayWnd", vbNullString)
HwnDDescktop = GetDesktopWindow
GetWindowRect HwnDDescktop, R1: GetWindowRect HwnDTaskB, R2
M.ScreenWidth = R1.Right: M.ScreenHeight = R1.Bottom: M.HeightTaskBar = (R2.Bottom - R2.Top): M.WidthTaskbar = R2.Right: M.PointToPixel = PtPx
dimWindow = M
End Function

Sub test()
Dim mesure As donne
mesure = dimWindow
MsgBox mesure.ScreenWidth & " x " & mesure.ScreenHeight
MsgBox "Hauteur barre des taches : " & mesure.HeightTaskBar & " pixel"
MsgBox "Largeur barre des taches : " & mesure.WidthTaskbar & " pixel "
MsgBox " coefficient point to pixel : " & mesure.PointToPixel
End Sub

 

[Simply]

Bonjour



Merci pour le code, faux si le menu est à droite