Run a Macro in Visio from Excel by passing Data

Hi,

I am working on a project to improve how we manage kit effectively in our workplace. I have created a Workbook which imports a CSV file generated from a DOS application to log where Kit is and what Desk Reference it is located on.

This information when imported into Excel looks at other information stored centrally such as the model of the computer, serial number, last known logged on user, nearest telephone etc.

I have also included a Macro to check if the computers are switched on.

All these features are with a huge thanks to forum members, without your help I couldn’t have done this!!

I would like to add one final touch to the workbook and I think this may be possible but I have no idea how to go about doing it…

I would like to include a Macro in my workbook that can open up a file in Microsoft Visio and colour the Desks Shapes based on the information stored in Excel (e.g. Green for Computers which are Online, Red for Computers which are Offline)

Is this possible?

Basically I would like the Macro to check if a workstation is “Offline” or “Online” and then check what Desk Reference it is on and then Colour the Desk Shapes on a Visio Plan.

I have attached the workbook – There are two sheets, one with the summary of Kit and the status of whether it is offline or online and the other sheet has the Visio Item ID corresponding to the Desk Reference?

I think the snag is the Visio Item ID is different to the Desk Reference which is why we need the separate Sheet.

Can anyone help?

I think this is the sort of code required in Visio:

Please Login or Register  to view this content.

I think this is how it needs to work:

If Computer on DeskRef is Online set Status=”Online” Else Set status=”Offline”
Get corresponding VisioItemID by looking at Sheet2 DeskRef
Open Visio
Colour VisioItemID based on Status (Green for Online, Red for Offline)

Any pointers will be greatly appreciated!