All Forums
 Категория Visio
 Форум Вопросы и ответы
 Свойства Shape
Author Previous Topic Topic Next Topic  

StasSoft

Russia
3 Posts
Posted - 09/10/2003 :  20:11:57
Подскажите pls как программно изменить размер и выравнивание шрифта в шейпе и как пользоваться стилями?
Пишу

Set shpObj = pagObj.DrawRectangle(2, 8, 6, 9)
shpObj.Text = "Hello World!"
shpObj.TextStyle = "Arial 24pt centered"

Ошибка: стиль задан неверно!

Tumanov

Russia
1198 Posts
Posted - 09/10/2003 :  21:22:05
А Вы создали предварительно стиль с таким названием? Этот способ работает с уже имеющимися стилями.
Go to Top of Page

StasSoft

Russia
3 Posts
Posted - 09/11/2003 :  05:05:26
Нет, вот я и спрашиваю как программно создать и использовать новый стиль (изменить шрифт и положение шрифта на шейпе).
Go to Top of Page

Tumanov

Russia
1198 Posts
Posted - 09/11/2003 :  18:05:01
Создать новый стиль и изменить шрифт - это совершенно разные вещи.
Изменить шрифт легко. Вот эти две строчки сделают размер шрифта 6 pt и выравняют параграф по центру. Для этого стилей создавать не нужно.

Sub tty()
ActivePage.Shapes(1).Cells("Char.Size").Formula = "=6 pt."
ActivePage.Shapes(1).Cells("Para.HorzAlign") = 1
End Sub

А создавать новый стиль лучше все-таки вручную, а программно его только применять. То, что Вы пытались показать в примере, это только применение стиля.
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)