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

brace

Russia
358 Posts
Posted - 10/23/2006 :  13:26:54

Получил из другого отдела файл визио. Но текст сделан настолько мелким шрифтом что читать трудно. На одном шейпе изменить размер шрифта не трудно а если шейпов 80 штук ???
Подумал : наверняка есть такой макрос !!!

Public Sub FontChange()
' Change the font of all shapes to 12pt
Dim shpObjs As Visio.Shapes, shpObj As Visio.Shape
Dim i As Integer
Set shpObjs = ActivePage.Shapes
For i = 1 To shpObjs.Count
Set shpObj = shpObjs(i)
Set celObj = shpObj.Cells("Char.Size")
celObj.Formula = "=12 pt."
' or
' shapeObj.Cells("Char.Size[1] ").Formula = "= 12 pt."
Next
End Sub

если кто знает более простой способ -- поделитесь плиз.

immortal

Russia
391 Posts
Posted - 10/23/2006 :  18:22:28  Visit immortal's Homepage
дак выделить все шейпы на странице, им установить размер шрифта руками

визио 2003 форэвер

...а вобще-то я белый и пушистый.
Go to Top of Page

brace

Russia
358 Posts
Posted - 10/24/2006 :  09:37:47
2immortal
спасибо - гениальное всегда просто !!!
наверное "понедельник день тяжелый" сказалось
однако и макрос пригодится когда нить...
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)