Resizing autoshapes to fit different monitors

hugletank · May 11th 2017

I have a sheet set up with three autoshapes that act as buttons. I've disabled all the scrollbars, tabs etc so the buttons are the only thing visible on a blank white sheet.

The people using this can have varying monitor sizes, so is there a way to resize the 3 shapes if they dont fit on the screen?

**Carim** · May 12th 2017

Re: Resizing autoshapes to fit different monitors

Hello,

The initial step is to get the basic monitor infos ...

see macro below

Code

Public ScrWidth As Long, ScrHeight As Long
Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Long
 
Sub MonitorInfo()
    ScrWidth = GetSystemMetrics32(0) '< in pixels
    ScrHeight = GetSystemMetrics32(1)
    
    MsgBox ScrWidth
    MsgBox ScrHeight
End Sub

Display More

Hope this will help ...

M40wen · May 12th 2017

Re: Resizing autoshapes to fit different monitors

I do something similar and use this in workbook open

Code

On Error Resume Next
ThisWorkbook.Sheets("Home").Activate
Range(Cells(1, 1), Cells(37, 26)).Select
ActiveWindow.Zoom = True
On Error GoTo 0

Idea being it will select where the range of buttons you want to see is, and adjust the zoom so its all visible for you

Resizing autoshapes to fit different monitors

Participate now!

Share