Вопрос по Excel из Delphi.

← →
Тимохов (2003-09-24 16:49) [0]

Уважаемые коллеги!
Имел ли кто-нибудь опыт в установке ширины колонки в excel"е в миллиметрах из Delphi через OLE?

Заранее благодарен за ответ.

Ответы типа "Да там есть свойство width" не предлагать, т.к. там не совсем все очевидно, как кажется на первый взгляд. Хотелось бы услышать ответ от тех, кто это успешно делал, а не просто предполагает как это делается.

← →
Alexander_K (2003-09-24 16:56) [1]

Дык начни запись макроса в екселе, измени размер ячейки или чего тебе там надо и посмотри как там это на васике делается, и перепиши на делфях (очень похоже).

← →
Тимохов (2003-09-24 17:05) [2]

Именно так я это и делаю всегда, когда нужно что-то от excel получить.
Проблема заключена в том, что у range есть свойство ColumnWidth (read/wright), с помощью которого можно задавать ширину... внимание ... в символах "0" стадартного шрифта. Есть свойтво Width, которое можно только читать. Оно содержит ширину в points (это 1/72 дюйма). Изменять явно это свойство нельзя.

Пока я решил эту проблему так, что перебираю различные значения ColumnWIdth и просаматриваю Width на предмет соответсвия требуемому зачению. Такой вот изврат. Есть наверное еше способ получения этого стандартного шрифта и анализа ширины символа "0" в нем. Но это все какой-то изврат.... :(((

← →
Alex_Raider (2003-09-24 19:50) [3]

Можно еще дергать VBS макросы из своего кода, это удобно тем что можно применять апи доступный из макросов (хбз как он называется).

← →
Кулюкин Олег (2003-09-25 10:14) [4]

> Ответы типа "Да там есть свойство width" не предлагать
Да там есть свойство ColumnWidth.
В каких единицах оно - не помню.

← →
Murad (2003-09-25 11:34) [5]

Может так
Sgn0W_MM := измеряешь ширину символа "0" стадартного шрифта
NeedW_MM := требуемый размер
ColumnWidth := Ceil(NeedW_MM/Sgn0W_MM )

← →
Тимохов (2003-09-25 11:43) [6]

На самом деле я изучил интернет по этому вопросу. Самое интересное, что стандартное решение, которое предлагается, это действовать перебором ColumnWidth (В символах "0"), до тех пор пока значение Width (в points) не станет нужного значение. Я пока собственно так и сделал...

Да... интересно какому умному человеку в MS пришло решение задавать ширину в символах "0".

То Murad>> не очень понятно что подразумевается стандартным шрифтом. Там есть свойство StandardFontName и StandardFontSize. Наверное это, то что нужно... только это какое-то очень рискованное решение...

← →
Murad (2003-09-25 12:02) [7]

2Тимохов (25.09.03 11:43) [6]
Не знаю, чем оно рискованное... мне в нем не нравится только
то, что приходится округлять функцией Ceil, да и то, это
необходимо только если ColumnWidth целочисленное поле...

← →
FOX (2003-09-25 12:03) [8]

Стандартный шрифт - шрифт указанный в настройках Excel

← →
Тимохов (2003-09-25 16:50) [9]

>> fox Где взять имя и размер стандартного шрифта я знаю (application.standardfont и application.standardfontsize). Не знаю где взять стандартный стиль. Или стиль (ну там, жирность, италик) не влияют на размер шрифта? Вообще параметры стиля нельзя менять из интерфейса excel. Наверное из этого следует, что свойств application.standardfont и application.standardfontsize достаточно для определения ширины символа "0".

Спасибо всем...
Буду продолжать тра...ся с нелюбимым мной продуктом MS.

← →
Тимохов (2003-09-25 16:52) [10]

Тогда попутно скажите, пожалуйста, как узнать в миллиметрах ширину символа "0". Как это узнать в точках понятно. Как это перевести в любую метрическую единицу измерения?

Вопрос по Excel из Delphi. Найти похожие ветки