import photos to org chart

[merlin]

In visio 2003 pro, can I add photos of team members in the same way I can
create an org chart from an excel sheet?

Basically, what I trying to achieve is an org chart which auto updates but
with mug shots included in the shapes which also change if I update the
person in that position .

I don't really mind if it's from a seperate folder or from the excel sheet.

 

[Mark Nelson [MS]]

That would require writing code.

--
Mark Nelson
Office Graphics - Visio
Microsoft Corporation

This posting is provided "AS IS" with no warranties, and confers no rights.

 

[merlin]

oooohhh... way beyond me, I'm afraid. Thanks anyway, Mark.

 

[Michel LAPLANE]

You can do these few actions :

1. Be sure your shape is a group.
2. Add an action section and in the action put this formula :
=CALLTHIS("ThisDocument.InsertImage",,"MyDir\MyImage.jpg")
3. Add this VBA code to your document

Public Sub InsertImage(visShape As Visio.Shape, strPath As String)
Dim visShapeImage As Visio.Shape
Dim strFormula As String
Dim vsoCell As Visio.Cell

Set visShapeImage = visShape.Import(strPath)
Set vsoCell = visShapeImage.Cells("PinX")
vsoCell.Formula = visShape.NameID + "!Width*0.5"
Set vsoCell = visShapeImage.Cells("PinY")
vsoCell.Formula = visShape.NameID + "!Height*0.5"
Set vsoCell = visShapeImage.Cells("Width")
vsoCell.Formula = visShape.NameID + "!Width*0.9"
Set vsoCell = visShapeImage.Cells("Height")
vsoCell.Formula = visShape.NameID + "!Height*0.9"
End Sub
4. Enjoy