Для русскоязычных пользователей Visio. Начинающих и профессионалов. Где взять, как сделать, что купить и т.д.

Цвет

Перечень литературы

14.05.2010  Get Web Hex Color Values from Visio Shapes   Chris Roth    

22.04.2010  Displaying the RGB values of Shapes   David Parker    

Ответы на вопросы

Цвет и толщина Network connector

Еще один вопрос: как программно можно изменить цвет и толщину Network connector который находится в Stencil Logical Symbols?  

Цвет линии программно меняется в ячейке LineColor. В простейшем случае туда подставляются номера цветов из палитры, которая высвечивается в меню Format/Line/Color. Например, красный цвет имеет индекс 2. Толщина меняется в ячейке LineWeight. По умолчанию она устанавливается в дюймах (0,01 in - примерно 3 pt). Применительно к предыдущему примеру для утолщения коннектора в три раза и окраски его в красный цвет нужно добавить shpObjConnector.Cells("LineColor") = 2 shpObjConnector.Cells("LineWeight") = 0.01 Примечание. Если этот коннектор вам всегда будет нужен какой-то определенной толщины, может проще изменить его прямо в трафарете, тогда не нужно будет делать это для каждого экземпляра программно. Для этого трафарет открывается для редактирования, выполняется Edit Master, устанавливается нужная толщина и цвет или только толщина и сохраняется. Теперь этот коннектор будет перетаскиваться уже в нужном виде. Если нужно установить толщину в других единицах измерения, то используется конструкция shpObjConnector.Cells("LineWeight").Formula = "2 pt"  

Как VB закрасить прямоугольник?

Подскажите, как VB нарисовать прямоугольник и закрасить его, допустим, красным цветом. MyObj = ActivePage.DrawRectangle(5, 5, 6, 6) а дальше?  

Нажимаете Format/Fill/Color. Видите, слева красного цвета стоит цифра 2. Это номер цвета в палитре Visio. Красить шейпы можно цветами из палитры от 0 до 23 (туда можно включать и свои цвета). Делается это так: Рисуем шейп прямоугольник  

Set MyObj = ActivePage.DrawRectangle(5, 5, 6, 6)  

Определяем ячейку, отвечающую за цвет  

Set cellObj = MyObj.Cells("FillForegnd")  

Говорим, что шейп должен быть красным cellObj.Formula = 2 Вместо прямого указания индекса палитры можно использовать функцию rgb(), например rgb(255, 0, 0) возвратит индекс красного цвета.  

cellObj.Formula = "RGB(255; 0; 127)"  

Путем определения в документе пользовательских цветов можно нарастить палитру еще на 232 цвета, но при этом нужно быть осторожным при переносе шейпов из одного документа в другой (при некорректной работе могут перекраситься).