Изменение размеров бегунка в полосе прокрутки

[Vlad77]

Добрый день.
Столкнулся с такой проблемой.
У меня отчет перестраивается в зависимости от выбранных фильтров пользователем и может быть как в 30 столбцов так и в 300.
Я вычисляю последний столбец
   

Код: (vb)

last_col=cells(1, Columns.Count).end(xltoLeft).Column+1

Далее ограничиваю полосу прокрутки
 

Код: (vb)

ThisWorkbook.ActiveSheet.ScrollArea="A1"+Cells(20,last_col).Address

Да все бы хорошо, вот только размер "ползунка" не меняется от выбранного ограничения прокрутки.
И получается, что ползунок имеет один и тот же размер, что на 30 столбцов, что на 300. А хочется каким-либо способом изменять его ширину.
Может кто-то сталкивался с такой проблемой и уже имеет готовое решение.

[vikttur]

Проблема непонятна. Если фильтруете  (скрываете) столбцы, полоса прокрутки подстраивается под видимый диапазон.
Опишите задачу полнее. Покажите небольшой пример

[Vlad77]

Попробую приложить файл с примером. Тут конечно просто набросок. Нету всего нагромождения кода, который формирует таблицу
Но и на нем видно, что область прокрутки заблокирована до конца таблицы, а сам ползунок ведет себя как-то странно, он маленький и перемещается только вначале полосы.

[vikttur]

Потому что задействованы все столбцы листа!
Используемый диапазон захватывает все строки и столбцы, в которых есть не только данные, но и примечания, стили, форматы... Что там было, неведомо. Возможно, копировали откуда-то целые строки.

Выделить заголовок первого столбца псправа от таблицы. Ctrl+Shift+стрелка вправо - будут выделены все "пустые" столбцы. Удалить столбцы, обязательно сохранить.

[Дмитрий Щербаков(The_Prist)]

ограничиваю полосу прокрутки

не совсем. Так Вы ограничиваете доступную для прокрутки и выделения область листа. Полоса прокрутки при этом никак не меняется.

[Vlad77]

Так вот я и хотел на эту полосу как-то повлиять программно, чтобы подстроить ее под залоченную область листа.
Не очень понятно зачем вообще тогда добавлена возможность ограничения по листу ScrollArea, если ползунок живет в своем мире.

[vikttur]

Зачем пользовательский диапазон на все столбцы листа - вот это непонятно

[Vlad77]

Зачем пользовательский диапазон на все столбцы листа - вот это непонятно

Что вы имеете ввиду? Покажите, что я делаю не так и как сделать правильно

[vikttur]

В четвертом сообщении описано.

[Дмитрий Щербаков(The_Prist)]

Не очень понятно зачем вообще тогда добавлена возможность ограничения по листу ScrollArea, если ползунок живет в своем мире

затем, что она не для ползунка Она сделана, чтобы ограничить пользователю область доступности листа любым способом. Вы просто не можете выйти за пределы ScrollArea, вот и все. А размер ползунка зависит от другого. Каждый инструмент выполняет свою роль и далеко не всегда ту, которую ожидаете Вы  

[Vlad77]

Хорошо.
Так можно как-то программно добраться до настроек полосы прокрутки и ползунка?
Или есть только единственный способ - удалять все столбцы и все строки находящихся за пределами отчета и сохранять файл.

[vikttur]

Ну Вы даете!
Вместо того, чтобы привести в порядк лист, ищете обходные пути...Лечим не причину, а последствия...

Размер ползунка зависит от используемой области. А у Вас используемый диапазон - 16 384 столбца.
Если диапазон расширяется в результате каких-то часто выполняемых действий (копирование данных извне, например) и избавиться от расширения диапазона проблематично,  пропишите в макросе удаление столбцов.

[Vlad77]

Спасибо за ответы.
Буду удалять. Хоть мне этот способ и не нравится. Но вариантов не много.

[vikttur]

И мне не нравится )
Правильнее и гораздо лучше - исключить  появление такого диапазона

[Дмитрий Щербаков(The_Prist)]

Но вариантов не много

я бы сказал вменяемых больше и нет - только избавляться от лишнего. Это в любом случае правильнее, т.к. файл станет весить меньше, работать быстрее. Все остальные методы уменьшить ползунок сравнимы с удалением гланд через задний проход. Серьезно.