HELP: Visio automated colors

[Aliq]

Hey everybody,

First of all, I'm new here, I hope I can get some help.

I've been asked to make an Organization Chart for over 700 people of this company, well at first it wasn't hard to make the chart, but there are some bits of VBA coding needed, which I don't quite understand, thus making me post.

Only thing, I need help with is the automatic colors dealt within the chart.
It should make it deal automatic colours to ea job. ie;
all accountants are green
all managers are red

This has to be automatic! (VBA coding)


I hope someone can help me with this, I've been trying to figure this out for the past 2 days and, to be honest I didn't do well.


Great thanks to anyone who will help me,


Aliq

[Jumpy]

This has to be automatic! (VBA coding)

Why? Sth. like that is easy done in the ShapeSheet! If the drawing is already complete you could try editing the master in the document stencil....

[aledlund]

if
a.) the jobs are stored as custom properties/shape data
b.) you are using v2007 (or above) pro (or above)
why not just use a data graphic (3 minutes at most and no code needed)
al

[Aliq]

This has to be automatic! (VBA coding)

Why? Sth. like that is easy done in the ShapeSheet! If the drawing is already complete you could try editing the master in the document stencil....

I've never used Microsoft Visio, so I'm not all into it, if you could explain how I could do it in a ShapeSheet? because it has to be automated, like the jobs are not that different and they want it in different colors.

if
a.) the jobs are stored as custom properties/shape data
b.) you are using v2007 (or above) pro (or above)
why not just use a data graphic (3 minutes at most and no code needed)
al

A) Every person and jobs, phonenumbers etc. are filled in an Excelsheet.
B) I'm using Microsoft Visio 2003.

I see there are many different ways to make it, as the person above you said something about a ShapeSheet.
I have to make it as easy as possible so the people can update it and mess with it after I'm gone. (I'm an intern in a big company, 4 weeks left)

I'll have to get some help here to decide which one is easier to use, and if it colors each job automaticly, because thats the point.

Thanks allot for your replies!

Aliq

[vojo]

you could even make this simpler

Create a stencil where you have shapes by color for each role.   Pick and drop as needed.

I agree that there is some learning to do with shapesheet...but once you get the hang of it, you can implement what you want in 10 min.

[vojo]

this will get you started

Behavior:   right click

got to shape sheet to see how down

[vojo]

oh yea...the shape

[Aliq]

you could even make this simpler

Create a stencil where you have shapes by color for each role.   Pick and drop as needed.

I agree that there is some learning to do with shapesheet...but once you get the hang of it, you can implement what you want in 10 min.

I don't think you understood what I was trying to accomplish.
I need to make a organization chart, with jobs and names etc. taken out of an Excel file, but ea job gets a different color. (colors are done job-wise)
This has to happen automaticly, and I should be able to change the colors later on too.

Thanks for your help though! I'm trying to read on the Microsoft site how to use these Sheets.

Aliq

[wapperdude]

Is the color by job a new, additional requirement?  Initial post indicated color by position.

If you are importing the Excel data via Org Chart Wizard, I think the wizard will clobber any shapesheet edits that you do.  So, the coloring thing will have to be done after the fact, i.e., with code. 

I don't have the version that Al refers to, so, his datagraphic approach may work.

Wapperdude

[aledlund]

at v2003 there is an add-in 'color-by-value' which has become more formalized as the years have gone by.
al

[Aliq]

Is the color by job a new, additional requirement?  Initial post indicated color by position.

If you are importing the Excel data via Org Chart Wizard, I think the wizard will clobber any shapesheet edits that you do.  So, the coloring thing will have to be done after the fact, i.e., with code. 

I don't have the version that Al refers to, so, his datagraphic approach may work.

Wapperdude

Yeah, I import the Excel data through the Org. Chart wizard, after thats done, I want to either have a way to make all jobs different colored, or a VBA script that I can let run.
So I'm still kinda stuck.

at v2003 there is an add-in 'color-by-value' which has become more formalized as the years have gone by.
al

Where can I find this add-in?

Thanks for the replies,

Aliq

[aledlund]

tools => add-ons => building plan => color-by-value
al

[Jumpy]

With Code:

Code Select Expand


Dim shp as Visio.Shape

For Each shp in ActivePage.Shapes

  If shp.CellExists("Prop.Job",false) then

    Select Case shp.Cells("Prop.Job").ResultStr("")
   
      Case "Manager": shp.Cells("LineColor").FormulaU = 5
      Case "Toilett-Lady": shp.Cells("LineColor").FormulaU = "RGB(255,0,0)"
      .
      .
      .


    End Select
  End If

Next


untested.
"Prop.Job" must be the name of the Job proposition.
Istead of LineColor you can change the FontColor or ForegroundColor, but I have no Visio at the moment, so I didn't know the right ShapeSheet names.
"RGB(255,0,0)" could be "RGB(255;0;0)" depending on Visio language.
.
.
.
But it's a start

hth Jumpy

[Aliq]

tools => add-ons => building plan => color-by-value
al

Thanks allot, I'll look this up tomorrow since its past midnight here.

With Code:

Code Select Expand


Dim shp as Visio.Shape

For Each shp in ActivePage.Shapes

  If shp.CellExists("Prop.Job",false) then

    Select Case shp.Cells("Prop.Job").ResultStr("")
   
      Case "Manager": shp.Cells("LineColor").FormulaU = 5
      Case "Toilett-Lady": shp.Cells("LineColor").FormulaU = "RGB(255,0,0)"
      .
      .
      .


    End Select
  End If

Next


untested.
"Prop.Job" must be the name of the Job proposition.
Istead of LineColor you can change the FontColor or ForegroundColor, but I have no Visio at the moment, so I didn't know the right ShapeSheet names.
"RGB(255,0,0)" could be "RGB(255;0;0)" depending on Visio language.
.
.
.
But it's a start

hth Jumpy

Ah, if this works, then thats what I needed, thanks allot mate!
I'll test this tomorrow and get back to you.

I'll try all differnt ways, and find the best and easiest way to edit it later on for the people who take this over from me.

Thanks allot guys!

[Aliq]

With Code:

Code Select Expand


Dim shp as Visio.Shape

For Each shp in ActivePage.Shapes

  If shp.CellExists("Prop.Job",false) then

    Select Case shp.Cells("Prop.Job").ResultStr("")
   
      Case "Manager": shp.Cells("LineColor").FormulaU = 5
      Case "Toilett-Lady": shp.Cells("LineColor").FormulaU = "RGB(255,0,0)"
      .
      .
      .


    End Select
  End If

Next


untested.
"Prop.Job" must be the name of the Job proposition.
Istead of LineColor you can change the FontColor or ForegroundColor, but I have no Visio at the moment, so I didn't know the right ShapeSheet names.
"RGB(255,0,0)" could be "RGB(255;0;0)" depending on Visio language.
.
.
.
But it's a start

hth Jumpy

I'm trying to get your code to work, but without any succes.
I don't get what I have to put in something instead of the Job Proposition.

Aliq