T
TKN
When I delete the custom shape, and add a new custom shape, it not allow me
to change custom property: Here is my code
If (viTimeMode = Constants.TimeMode.Episodes) Then
vshapeCustomPropertyShape.CellsSRC(Microsoft.Office.Interop.Visio.VisSectionIndices.visSectionObject,
Microsoft.Office.Interop.Visio.VisRowIndices.visRowLock,
Microsoft.Office.Interop.Visio.VisCellIndices.visLockTextEdit).FormulaForceU
= "False"
If (CInt(lsPropertyValue) > 1) Then
vshapeCustomPropertyShape.Text =
ReadANamedCustomProperty(vshapeCustomPropertyShape, TILTE_PROP) & " (" &
lsPropertyValue & " Eps)"
Else
vshapeCustomPropertyShape.Text =
ReadANamedCustomProperty(vshapeCustomPropertyShape, TILTE_PROP) & " (" &
lsPropertyValue & " Ep)"
End If
vshapeCustomPropertyShape.CellsSRC(Microsoft.Office.Interop.Visio.VisSectionIndices.visSectionObject,
Microsoft.Office.Interop.Visio.VisRowIndices.visRowLock,
Microsoft.Office.Interop.Visio.VisCellIndices.visLockTextEdit).FormulaForceU
= "True"
End If
Please Have any ones can help me?
Thanks
Tam
to change custom property: Here is my code
If (viTimeMode = Constants.TimeMode.Episodes) Then
vshapeCustomPropertyShape.CellsSRC(Microsoft.Office.Interop.Visio.VisSectionIndices.visSectionObject,
Microsoft.Office.Interop.Visio.VisRowIndices.visRowLock,
Microsoft.Office.Interop.Visio.VisCellIndices.visLockTextEdit).FormulaForceU
= "False"
If (CInt(lsPropertyValue) > 1) Then
vshapeCustomPropertyShape.Text =
ReadANamedCustomProperty(vshapeCustomPropertyShape, TILTE_PROP) & " (" &
lsPropertyValue & " Eps)"
Else
vshapeCustomPropertyShape.Text =
ReadANamedCustomProperty(vshapeCustomPropertyShape, TILTE_PROP) & " (" &
lsPropertyValue & " Ep)"
End If
vshapeCustomPropertyShape.CellsSRC(Microsoft.Office.Interop.Visio.VisSectionIndices.visSectionObject,
Microsoft.Office.Interop.Visio.VisRowIndices.visRowLock,
Microsoft.Office.Interop.Visio.VisCellIndices.visLockTextEdit).FormulaForceU
= "True"
End If
Please Have any ones can help me?
Thanks
Tam