Доброго времени, господа знатоки VBA ! Суть одной насущной проблемы: есть папка excel 2007 со множестовм листов, все - альбомной ориентации. Хотелось бы каким-нибудь образом получить значение правой границы печатного листа, т.е. речь идет не о позиции вертикальной разбивки страницы. Собственно моя задача - как можно более точно рассчитать ширину пустых столбцов, попарно чередующихся на листе со столбцами, заполненными данными. Посчитать общую ширину заполненных столбцов не проблема, но хотелось бы знать эту границу, чтобы можно было из чего-то вычитать. Мои собственные манипуляции с макросами не дали сколь-нибудь подходящих результатов, поэтому очень рассчитываю на мудый совет с вашей стороны.

Уже смотрел. Если Вы имеете в виду комбинацию свойств Zoom=false и FitToPagesWide=1, то ничего хорошего из этого не вышло. Да, столбцы умещаются все целиком, но таблица на печати выглядит уменьшенной и съеженной.

ПЕНСИОНЕРКАПолуламер,

вы используете автоподгонку ширины столбца или вывод в масштабе ....

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

Shocker.Pro , Такую возможность и я не исключал :) Но вот как? Потому и решился на создание новой темы.

ПЕНСИОНЕРКА, возможно, это работает в определенных случаях, но по-моему выглядит слишком уж искусственно. К тому же мне заранее неизвестно, сколько должно быть столбцов.
Ладно, тогда другой вопрос к знатокам: есть ли какая-то функция по пересчету пикселей в символы? Все в курсе, полагаю, что супер-разработчики Excel задают ширину столбцов именно в символах и эта ширина загадочным образом переводится в пиксели, если потянуть мышью за заголовок столбца. Связь единиц измерения - сантиметров, дюймов, пунктов, пикселей - абсолютно ясна и прозрачна, но хоть кто-нибудь когда-нибудь кроме разрабов переводил из пикселей в символы? Потому что искомую ширину листа я знаю в чем угодно, кроме символов. А без этого опять получается замкнутый круг.

Shocker.ProПолуламер,

Как можно задавать ширину в символах, если ширина разных символов разная?
Спросите об этом у разработчиков Excel - как они сумели до такого додуматься и задавать ширину столбцов исключительно в символах . Я не собираюсь переводить все земные меры в символы, мне интересно, как это происходит конкретно в Excel 2007, где в качестве стандарта для измерения ширины столбцов используется шрифт Calibri 11. Был бы он пропорциональный, я бы сейчас не задавал таких вопросов.

Ладно, уже нашел что хотел, во всяком случае для Excel 2007 это работает. Может кому-то и пригодится.

Из пикселей в количество символов (свойство ColumnWidth столбца):

Truncate(({pixels}-5)/{Maximum Digit Width} * 100+0.5)/100

Из количества символов в пойнты (свойство Width столбца):

Truncate([{Number of Characters} * {Maximum Digit Width} + {5 pixel padding}]/{Maximum Digit Width}*256)/256

Maximum Digit Width - естественно максимальная ширина символа шрифта Calibri размера 11, его значение 7. Первая формула для узких столбцов начиная с ширины pixsels=11 пикселей не работает, но это не так принципиально. Дополнительную информацию можно посмотреть здесь:

http://us.generation-nt.com/answer/excel-column-width-question-again-help-36317212.html

Вот, кстати, хитрая формула для перевода в символьные величины узких столбцов Excel 2007 с шириною от 0 до 12 пикселей.:


где px - число пиксейлей (от 0 до 12). Кому интересно, можете проверить.