(Msg. 1) Posted: Tue Feb 07, 2006 11:11 am
Post subject: how to create Organization Chart with pictures from Excel file Archived from groups: microsoft>public>visio>createshapes (more info?)
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.
(Msg. 2) Posted: Mon Feb 27, 2006 2:42 pm
Post subject: Re: how to create Organization Chart with pictures from Excel file [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
You can only doit by writing a small program.
1.Your excel file must contain a column for "Superieur" (sorry i don't no
the name in english perhaps Superior) of each person
2. import the file
3. For each shape retrieve the name of the person search for the file and
use the import method of Visio in this shape. See Visio 2003 Sdk for
detail. You can do it in VBA for example.
"Eric Zhao" <EricZsz.RemoveThis@sina.com> a écrit dans le message de news:
ef4dDQ5KGHA.536.RemoveThis@TK2MSFTNGP09.phx.gbl...
> 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.
>
(Msg. 3) Posted: Tue Feb 28, 2006 8:10 am
Post subject: Re: how to create Organization Chart with pictures from Excel file [Login to view extended thread Info.] Archived from groups: per prev. post (more info?)
Here is the vba code
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
"Eric Zhao" <EricZsz.RemoveThis@sina.com> a écrit dans le message de news:
ef4dDQ5KGHA.536.RemoveThis@TK2MSFTNGP09.phx.gbl...
> 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.
>
All times are: Eastern Time (US & Canada) (change)
Page 1 of 1
You can post new topics in this forum You can reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
Home
Forums
Home
FAQ
Profile
Private Messages
Log in
Office Other