Добрый день!
Есть задача сделать размер окна максимально возможным в соответствии с заданной пропорцией W=1,6 H. Затем разместить в нем диапазон Range("A1:AW19") так, чтобы только он в окне и отражался.
Однако, работает это так, как будто команда .Width = Application.UsableWidth не дает максимального увеличения ширины окна (аналогично с Height = Application.UsableHeight). Т.е.на разных устройствах разное отображение - где то правильно, где то перекос идет.
Код:
Есть задача сделать размер окна максимально возможным в соответствии с заданной пропорцией W=1,6 H. Затем разместить в нем диапазон Range("A1:AW19") так, чтобы только он в окне и отражался.
Однако, работает это так, как будто команда .Width = Application.UsableWidth не дает максимального увеличения ширины окна (аналогично с Height = Application.UsableHeight). Т.е.на разных устройствах разное отображение - где то правильно, где то перекос идет.
Код:
| Код |
|---|
Sub window_adjustment() 'sets excel window according to the master ratio proportion
Dim MasteRatio As Single
MasteRatio = 1440 / 900
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.left = 1
If (Application.UsableWidth / MasteRatio <= Application.UsableHeight) Then
.Width = Application.UsableWidth 'width mastered
.Height = .Width / MasteRatio
Else
.Height = Application.UsableHeight 'height mastered
.Width = .Height * MasteRatio
End If
End With
Range("A1:AW19").Select 'set range to fill the entire screen out
ActiveWindow.Zoom = True
Range("a3").Select
End Sub |
Изменено: - 30.10.2018 10:48:08
