| Вопрос: Задать ширину столбца Excel в нормальных единицах | Добавлено: 25.01.08 15:57 |
Автор вопроса:  LonerWanderer
|
| Ну собственно вопрос. Тут покопался по и-нету и выяснил, что единицей измерения ширины столбцов является значение, ​равное ширине символа стандартного шрифта листа. А чему равна ширина символа стандартного шрифта (в милиметрах)? Просто нужно на бумаге вывести столбцы строго определенной ширины (в настройках масштаб печати листа = 100%). |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 25.01.08 20:26 |
|
Я бы на твоём месте сделал так:
Option Explicit
Function CentimetersToUnits(ByVal Centimeters As Double) As Double CentimetersToUnits = Centimeters * Excel.Application.CentimetersToPoints(1) * 255 / 1342.5 End Function Function UnitsToCentimeters(ByVal Units As Double) As Double UnitsToCentimeters = Units * 1342.5 / (Excel.Application.CentimetersToPoints(1) * 255) End Function Sub Test() ThisWorkbook.Sheets(1).Columns(16).ColumnWidth = CentimetersToUnits(1) End Sub Но абсолютной точности не достигнешь, т.к. ширина ячеек кратная ширине пикселов. |
||
Страница: 1 |