Позиционировать форму при изменении размера

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Позиционировать форму при изменении размера (Макросы/Sub)

Сергей13

Дата: Пятница, 17.05.2019, 21:50 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Здравствуйте!
Ребята каким образом при программном изменении размера формы также программно позиционировать формы по центру.
Свойство StartUpPosition не дает нужный результат.
[vba]

Код

Sub FormWidth()
    If FormBD.Width = 330.2 Then
        FormBD.Width = 800
        FormBD.StartUpPosition = 1
        FormBD.CommandButton5.Caption = "<< Список <<"
    Else
        FormBD.Width = 330.2
        FormBD.StartUpPosition = 1
        FormBD.CommandButton5.Caption = ">> Список >>"
    End If
End Sub

[/vba]

Сообщение отредактировал Сергей13 - Пятница, 17.05.2019, 22:29

Ответить

Roman777

Дата: Суббота, 18.05.2019, 14:13 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Сергей13, добрый день!
Попробуйте что-то типа такого
[vba]

Код

lastW = FormBD.With
lastH = FormBD.Heigth
... изменяем размеры формы
FormBD.Left = FormBD.Left+(lastW-FormBD.Width)/2
FormBD.Heigth = FormBD.Top+(lastH-FormBD.Heigth)/2

[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Суббота, 18.05.2019, 14:13

Ответить

Сергей13

Дата: Суббота, 18.05.2019, 20:12 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 344

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016

Roman777, Может, что не так делаю, но не пошло.
Пересмотрел некоторые моменты, не стал углубляться в данную тему.
Спасибо!

Ответить

Позиционировать форму при изменении размера (Макросы/Sub)

Страница 1 из 1
1