User last changed

[Arnold]

I would like to reflect in a shape which user has changed a shape propery
the last time. I can find a 'last changed date', but not a 'User last
changed'
Is there a way to automatically change a field or property with user
information or initials?
I am using Visio 2007
Thanks,
Arnold

 

[David Parker]

Humm, That's a good question...
You can get the change datetime with a formula like this:

=DEPENDSON(Prop.MyData)+SETF(GetRef(User.LastChange),NOW())

but getting the user seems to be a problem. Of course, you can get the
Creator() or Manager(), but the current user seems to be missing, even
though it is in the object model Application.UserName

 

[Arnold]

OK, bad luck...
Thanks for your reply.
Arnold

Humm, That's a good question...
You can get the change datetime with a formula like this:

=DEPENDSON(Prop.MyData)+SETF(GetRef(User.LastChange),NOW())

but getting the user seems to be a problem. Of course, you can get the
Creator() or Manager(), but the current user seems to be missing, even
though it is in the object model Application.UserName

 

[Arnold]

I'm just thinking.... could there be a way to automatically ask for a custom
property (i.e. prop.user ) that pops up when there is a double click on a
shape?
To explain my wish: I would like to file which user has been the last one
that changed a shape by double clicking it? Double clicking is the only
action I would like to look back.

Can you give me a clue?

Arnold

 

[David Parker]

You can prompt for any custom properties on drop by checking the Ask on Drop
value.
However, you can modify the EventDblClick formula in Events section of the
ShapeSheet from the default
=OPENTEXTWIN()
to
=DOCMD(1312)

This will open the Custom Properties Dialog, but you could open the Custom
Properties Window with
=DOCMD(1658)
This will toggle the visibility of the Custom Property Window.

 

[Arnold]

Thanks David,
This work perfectly OK.
Arnold

You can prompt for any custom properties on drop by checking the Ask on
Drop value.
However, you can modify the EventDblClick formula in Events section of the
ShapeSheet from the default
=OPENTEXTWIN()
to
=DOCMD(1312)

This will open the Custom Properties Dialog, but you could open the Custom
Properties Window with
=DOCMD(1658)
This will toggle the visibility of the Custom Property Window.