| Вопрос: Определение высоты ячейки с верт. текстом (Word) | Добавлено: 03.07.08 18:51 |
Автор вопроса:  maya
|
| Возникла следующая проблема: Есть таблица с горизонтальным текстом (в Word'е), я меняю расположение текста в ячейках на вертикальное и получается что часть текста скрыта в ячейке (т.е. высота ячейки не определяется автоматически). Можно ли как-то используя VBA автоматически выравнять высоту ячейки? (AutoFit to Contents для вертикального текста не работает(((). |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  bi-lya Вопросов: 1 Ответов: 125 |
Профиль | | #1 | Добавлено: 04.07.08 17:00 |
|
Ну а если вычислять самый широкий столбец и по его ширине делать высоту?
With ActiveDocument.Tables(1)
For i = 1 To .Columns.Count If .Cell(Row:=1, Column:=i).Width > a Then a = .Cell(Row:=1, Column:=i).Width Next ActiveDocument.Tables(1).Cell(Row:=1, Column:=2).Height = a a = 0 End With |
||
|
Номер ответа: 2 Автор ответа: ADSemenov.ruВопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #2 | Добавлено: 04.07.08 17:22 |
Проблема ещё в том, что в Excel единица ширины столбца привязана к ширине символа, который стоит (кажется) по умолчанию в Параметрах. У разных клиентов этот шрифт разный. Чтобы получить переносимость приходится "чесать левой рукой правое ухо".  ))
|
||
Страница: 1 |