Можно ли использовать VBA для автоматического форматирования цвета стрелок разъема Visio? - PullRequest
Новая
       17

Можно ли использовать VBA для автоматического форматирования цвета стрелок разъема Visio?

0 голосов
/ 23 октября 2019

В Visio 365 кросс-функциональная блок-схема может быть создана с помощью мастера. Точки данных связаны стрелками соединителя, которые имеют синий цвет по умолчанию. К этой стрелке можно добавить «метку соединителя», а ее цвет можно изменить вручную.

Я хочу, чтобы скрипт изменял цвет этих стрелок на основе значения данных, предпочтительно значения «метка соединителя»

Для контекста это межфункциональная блок-схема, показывающая зависимости нескольких проектов. Цвет стрелки показывает оценку RAG для зависимости.

Я нашел некоторый код VBA для выбора формы и изменения ее цвета, но не на основе значений данных

Для выбора иизменить цвет соединителя на основе выбранного цвета ввода: 

Dim shape As shape
For Each shape In ActivePage.Shapes
    If (shape.OneD <> 0) Then
        shape.CellsU("LineColor").Formula = "rgb(255,0,0)"
        shape.BringToFront
    End If
Next

Я хочу изменить это (или лучший способ сделать это), чтобы изменить цвет стрелки - что-то вроде: 

if ConnectorValue=Red
set arrowcolour=red
elseif ConnectorValue=Amber
set arrowcolour= yellow.....etc

Я просто не знаю синтаксис - любая помощь будет потрясающей

Приветствия

...