VBA: Динамическая панель прокрутки Adapting

Question

У меня есть пользовательская форма, содержащая рамку. Во время выполнения пользователь может добавлять элементы управления к этому фрейму. В конечном счете, добавленные элементы управления могут превышать размер рамки. В этом случае я хотел бы увеличить insideheight кадра. Таким образом, моя вертикальная полоса прокрутки покрывает всю область.

frm.ScrollHeight = .InsideHeight 

Как это сделать?

Answer 1

.InsideHeight не несет ответственности за полосу прокрутки. Однако, .ScrollHeight есть. При добавлении новых элементов управления эта высота должна быть увеличена.

При добавлении нового набора элементов управления выполните это: Обмен 50 с высотой вашего контроля.

Dim scrHeight As Integer 
With frm 
    scrHeight = .ScrollHeight 
    .ScrollHeight = scrHeight + 50 
End With