converting a spreadsheet to graphical representation

[Joa]

We have huge assemblies of parts that are broken down into assemblies,
subassemblies, installations, etc. These are in big parts lists.

Currently we have another worksheet that just has boxes drawn with
connectors between them to create a "parts tree" graphical
representation. This is completely manual and every time the parts
list changes the tree has to be manually updated.

Is there an add-on or another piece of software that would do this for
us automatically???? We could set the hierarchy up in the parts list
and use it to set the grouping in the graphical version (A, A1, A1A,
etc).

Thanks!

Joa

 

[Dave]

Assuming the "box" is a textbox this will add the contents
of a bunch of cells to that text box.

Sub Macro1()
Dim c As Range
Dim rge As Range
Set rge = Range("B4:B6") ' list of cells with parts list
text description

ActiveSheet.Shapes("Text Box 1").Select
With ActiveSheet.Shapes("Text Box 1")
.Select
With Selection
For Each c In rge
' add the text of each cell to the textbox
.Characters.Text = .Characters.Text & Chr(10) &
c.Value
Next c
End With
End With
Set rge = Nothing ' release the memory
Range("B10").Select
End Sub

Dave

 

[Dave Peterson]

You have one reply in .programming.

We have huge assemblies of parts that are broken down into assemblies,
subassemblies, installations, etc. These are in big parts lists.

Currently we have another worksheet that just has boxes drawn with
connectors between them to create a "parts tree" graphical
representation. This is completely manual and every time the parts
list changes the tree has to be manually updated.

Is there an add-on or another piece of software that would do this for
us automatically???? We could set the hierarchy up in the parts list
and use it to set the grouping in the graphical version (A, A1, A1A,
etc).

Thanks!

Joa