Изменение свойств иерархии Smart Art с помощью vba - PullRequest
Новая
       13

Изменение свойств иерархии Smart Art с помощью vba

0 голосов
/ 27 марта 2019

Я написал некоторый код, который создает диаграмму иерархии. 

Set list = ActiveWorkbook.Sheets("List")
Set oSALayout = Application.SmartArtLayouts(88) 'reference to organization chart
Set oShp = ActiveWorkbook.Sheets("Diagram").Shapes.AddSmartArt(oSALayout)

Set QNodes = oShp.SmartArt.AllNodes
For i = 1 To 5      'delete all included nodes
    oShp.SmartArt.AllNodes(1).Delete
Next


Set ProjectTarget = oShp.SmartArt.AllNodes.Add
ProjectTarget.TextFrame2.TextRange.Text = "Project Target"

Set OutcomeTarget = ProjectTarget.AddNode(msoSmartArtNodeBelow)
OutcomeTarget.TextFrame2.TextRange.Text = "Outcome Targets"

Set ProcessTarget = ProjectTarget.AddNode(msoSmartArtNodeBelow)
ProcessTarget.TextFrame2.TextRange.Text = "Process Targets"

Set NonTarget = ProjectTarget.AddNode(msoSmartArtNodeBelow)
NonTarget.TextFrame2.TextRange.Text = "Non-Targets"

Полученная диаграмма выглядит следующим образом

Ссылка

Теперь я хотел бы, можно ли: - изменить размер и положение диаграммы изменить цвет отдельных узлов скрыть узлы (я нашел атрибут «скрытый», но он доступен только для чтения)

Заранее спасибо

...