Спасибо за тест.
Действительно, данная проблема существовала и связана была с тем, что масштабирование было привязано к масштабу листа, а не к масштабу активного вида.
Исправленный скрипт уже размещён на сайте.
Если нет возможности скачать его, можно исправить одну строку в методе CATInit() в разделе OVERRIDE STATIC VALUES FOR SHEETSCALE:
Вместо
- Код: Выделить всё
dScale = oSheet.Scale
Записать
- Код: Выделить всё
dScale = oView.Scale