Here is a simple "red-green" Visio drawing (plus some VBA code)
It has three boxes with IP-addresses (see picture)
You can add more boxes or change the IPs, i.e. the text in the boxes; keep in mind, only 4-digit IP addresses are supported (no name resolution).
VBA code "in background" colors each box red, if PING to it's IP fails or green if it succeeds.
The refresh timer is set for 30 seconds.
Seems to work 
N.B. I don't think that VBA is a good idea for this kind of "diagrams".
Hi Nikolay,
I am new to this forum and Visio too.
Just started learning drawing a simple network topology diagrams.
Basically, I am developer on C language. We write protocols for switches and routers.
Coming to the point. I have a Lab with 20 devices.
I have made a small topology for our testing. So, started drawing a diagram for the same.
Here came the requirement after setting up the toplogy.
Requirement:
Visio diagram to automatically ping and display device as red or green.
Exactly this thread and found your example. Which is working great, but most of the times it is sluggish.
I have copy pasted more boxes to ping other devices too.
I would like to know, how you have created the code? Need some inputs on that.
I want to learn.
I want use switches (Senticls) and write the same piece of code, which should ping my devices when ever required.
Also, I would like to know, whether this is possible only through Visio?
I mean let's say, I done the work and save the file in some other format? do I still get the requirement?
Please mail me the steps to follow.
vijayraju11@gmail.com