Hi,
Visio 2010 Technical Preview has many new cells that are not yet visible in the shapesheet.
One of the exceptions is "Copyright" cell. "Copyright" cell also exist in Visio 2007, but it is not widely known because you cannot see in the shapesheet.
In Visio 2010 Technical Preview, you can find this item on the keywords list in the shape sheet editor.(image29.jpg)



"Copyright" cell is linked tightly with the item, "Copyright", in the dialog, "Special". (image30.jpg)
If you fill the item, "Copyright", with your text, then the cell is filled with the text.
As "Copyright" cell exists, you can display the text on the shape if you insert the text fields that refer to the "Copyright" cell.
Or you can read the "Copyright" cell with the macro.
Sub ReadCopyRight()
Debug.Print ActiveWindow.Selection(1).Cells("Copyright").FormulaU
End Sub
You can write your text in the "Copyright" cell only once with the macro.
Sub RegCopyright()
On Error GoTo EMSG
ActiveWindow.Selection(1).Cells("Copyright").FormulaU = Chr(34) & "Copyright (C) 2009 Visio Guys" & Chr(34)
Exit Sub
EMSG:
MsgBox Err.Description
End Sub
This "Copyright" cell is very much convenient to the shapes developers, because they can write their text to all shapes or master shapes with a simple macro.



Sub RegAllCopyright()
Dim shp As Visio.Shape
On Error GoTo EMSG
For Each shp In ActivePage.Shapes
shp.Cells("Copyright").FormulaU = Chr(34) & "Copyright (C) 2009 Visio Guys" & Chr(34)
Next
Exit Sub
EMSG:
MsgBox Err.Description
End Sub