|
Digitall
Russia
389 Posts |
 Posted - 11/06/2003 : 10:40:22
|
quote:
Originally posted by lantari
Подскажите как определить размер (длину в мм) текстовой строки, а не размер шейпа в котором она написна.
Нужно для функции на VBA.
На основе примера из документации:
Sub Text_width()
Dim shpObj As Visio.Shape
Set pagsObj = ThisDocument.Pages
Set pagObj = pagsObj.Item(1)
Set selectObj = ActiveWindow.Selection
Set shpObj = ActiveWindow.Selection.Item(1)
shpObj.Text = "Text here" 'пишем текст в фигуру или оставляем
shpObj.AddSection visSectionUser 'добавляем раздел
shpObj.AddRow visSectionUser, visRowUser + 0, 0 'добавляем строку
Set celObj = shpObj.Cells("User.Row_1") 'назначаем ячейку
celObj.Formula = "TEXTWIDTH(TheText)" 'забиваем формулу
TextWTH = celObj.Result(visMillimeters) 'забираем результат
MsgBox TextWTH, , "Text width" 'показываем результат
End Sub
Из DVS p.334-338
Проверен на Visio 2000. |
 |
|
All Forums
Как определить длину (в мм) текстовой строки
