how to create organization chart from excel with alone picture

[Eric Zhao]

Dear All,

We plan to create Organization Chart, and we hope all employees pictures are
alone picture file, and they are saved in hard disk individually, and the
file name is employee ID. The Excel file is like below.

0001 AAA D:\0001.jpg
0002 BBB D:\0002.jpg
0003 CCC D:\0003.jpg

how can we create organization chart from this Excel file and show all
pictures?

Thanks in advance.

 

[Michel LAPLANE]

1. Your Excel file must have a column for the "Superior" ("Superieur" in
French). You can fill it with a foo superior if it does not make sense to
you.
2. in the importing process map the path of fil to a property called for
exemple "Image".
2. Make a Vba macro that enumerate all shape of the page :
take the image custom property
use object.import method (see Viso 2003 SDK help for more infos) where
object is the shape (in fact it is a group)

Public Sub InsertImage()
Dim visShape As Visio.Shape
Dim visPage As Visio.Page

Set visPage = ActivePage
Set visShape = visPage.Shapes.Item(1)
visShape.Import "D:\0001.jpg"
End Sub

3. Find