Styjun

Is refusing to concede in the face of an unstoppable Nexus combo punishable?

Thread-safe, Convenient and Performant Random Number Generator

Taking out number of subarrays from an array which contains all the distinct elements of that array

Why doesn't the Falcon-9 first stage use three legs to land?

What happens when I copy a legendary creature with Rite of Replication?

Dark side of an exoplanet - if it was earth-like would its surface light be detectable?

How to avoid using System.String with Rfc2898DeriveBytes in C#

Would combining A* with a flocking algorithm be too performance-heavy?

In an emergency, how do I find and share my position?

Co-author responds to email by mistake cc'ing the EiC

Sleeping solo in a double sleeping bag

How can I support the recycling, but not the new production of aluminum?

Is there a known non-euclidean geometry where two concentric circles of different radii can intersect? (as in the novel "The Universe Between")

A second course in the representation theory

Are illustrations in novels frowned upon?

What's /System/Volumes/Data?

Don't understand MOSFET as amplifier

What are the pros and cons of Einstein-Cartan Theory?

Why are delta bots so finicky?

What is "Wayfinder's Guide to Eberron"?

Can my boyfriend, who lives in the UK and has a Polish passport, visit me in the USA?

Why would the US President need briefings on UFOs?

Is it appropriate for a prospective landlord to ask me for my credit report?

How does turbine efficiency compare with internal combustion engines if all the turbine power is converted to mechanical energy?

Changing the properties of a Hierarchy Smart Art using vba

Is there a way to crack the password on an Excel VBA Project?How to return a result from a VBA functionLoop through files in a folder using VBA?How to avoid using Select in Excel VBAActiveX List Boxes will not “Size and Move” with their parent cellsExcel VBA advanced diagram manipulationHide DropDown list for ComboBox without losing focusA: Hide rows in Excel VBA when target cell contents are deletedResetting variable at every workbook openHow to change the graphical attributes of a point in an Excel sunburst chart through Apache POI

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

I wrote some code that creates a hierarchy diagram.

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"

The resulting diagram looks like this

Link

Now I'd like whether it's possible to:
- change the size and position of the diagram
-change the color of single nodes
-hide nodes (I found the attribute "hidden", but it's read-only)

Thank you in advance

excel vba diagram

share|improve this question

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges

add a comment | 

0

I wrote some code that creates a hierarchy diagram.

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"

The resulting diagram looks like this

Link

Now I'd like whether it's possible to:
- change the size and position of the diagram
-change the color of single nodes
-hide nodes (I found the attribute "hidden", but it's read-only)

Thank you in advance

excel vba diagram

share|improve this question

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges

add a comment | 

I wrote some code that creates a hierarchy diagram.

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"

The resulting diagram looks like this

Link

Now I'd like whether it's possible to:
- change the size and position of the diagram
-change the color of single nodes
-hide nodes (I found the attribute "hidden", but it's read-only)

Thank you in advance

excel vba diagram

share|improve this question

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges

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"

share|improve this question

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges

share|improve this question

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

edited Mar 27 at 15:33

Pᴇʜ

31.3k66 gold badges3030 silver badges5656 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges

asked Mar 27 at 15:25

timp95timp95

333 bronze badges