Center application window
Hi
Trying to center the Excel application. Screen resalution is 1280 x 1024 newWidth is a long and set to 800 newHeight is a long and set to 600 maxWidth is a long and set to 1280 maxHeight is a long and set to 1024 The following code moves the to far left and to far from the top. Application.WindowState = xlNormal Application.Width = newWidth Application.Height = newHeight Application.Left = (maxWidth - newWidth) / 2 Application.Top = (maxHeight - newHeight) / 2 Thanks Harold |
Center application window
The screen res' is measured in pixels but the application dimensions are in
points. In most systems to convert it's typically 96 pixels per 72 points. Simplest way to correct your routine is probably just to do this - newWidth = 800 * 0.75 newHeight = 600 * 0.75 maxWidth = 1024 * 0.75 maxHeight = 768 * 0.75 If you are distributing to unknown users best to get the screen res and "points to pixels" using APIs. Regards, Peter T |
Center application window
"Peter T" wrote in message ... The screen res' is measured in pixels but the application dimensions are in points. In most systems to convert it's typically 96 pixels per 72 points. Simplest way to correct your routine is probably just to do this - newWidth = 800 * 0.75 newHeight = 600 * 0.75 maxWidth = 1024 * 0.75 maxHeight = 768 * 0.75 If you are distributing to unknown users best to get the screen res and "points to pixels" using APIs. Regards, Peter T Hi Peter I have not been online for a few days. Thanks so much for your help. Harold |
All times are GMT +1. The time now is 08:29 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com