Call a Custom Property from a shape.

[Perry]

I have a macro created on sheet that I want executed when I double click an
on object:

Sub macro1()
x = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler
http://www.someplace.com/", vbNormalFocus)
End Sub

That part works fine, however, what I would really like it to do is have the
macro grab a custom property from the shape, such as prop.IPAddress, and have
it go to http://{prop.IPAddress}

 

[David Parker [Visio MVP]]

You could use the HYPERLINK shapesheet function, combined with a custom
property value, and put it all into the DBlClickEvent cell ....

 

[Perry]

Not a bad idea, but I was hoping note to have to modify the master shape.
That aside though, the other thing I was thinking of was putting into the
right click menu with an Action to call telnet (I just used HTTP for the
example). Originally, I had just wanted to telnet to the devices, but now
requests have come in for Telnet, SSH, HTTP, and another option to Dial the
phone number, which is a different custom property.