Visio2002: Text Colors Set in the ShapeSheet Are Displayed As Black (321117)


The information in this article applies to:

  • Microsoft Visio 2002 Standard
  • Microsoft Visio 2002 Professional
This article was previously published under Q321117

SYMPTOMS

When you open a Microsoft Visio 2000 saved diagram in Visio 2002, shapes that contain custom ShapeSheet formulas to specify text color may display the text in the color black.

CAUSE

Visio 2000 handles and resolves the color table differently from the way that Visio 2002 handles it. Visio 2002 is not updating or resolving the inherited formula to the new color table. This behavior occurs because of the new color table schema in Visio 2002.

WORKAROUND

To work around this behavior, use one of the following methods.

Method 1: Move the Visio Drawing Through the XML Filter

You can save a Visio drawing as an XML file, and then open it again in Visio without any loss of information. To save a Visio 2000 drawing that exhibits these symptoms through the Visio 2002 XML filter, follow these steps:
  1. Open a Visio 2000 .vsd drawing file in Microsoft Visio 2002.
  2. On the File menu, click Save As, select XML Drawing (*.vdx) under Save as type, and then click Save.
  3. On the File menu, click Close to close the drawing.
  4. Reopen the .vdx file that you created in step 2. On the File menu, click Open, select the .vdx drawing, and then click Open or use the Most Recently Used (MRU) list.

    The text colors from the ShapeSheet now appear in the drawing.
  5. On the File menu, click Save As, select Drawing (*.vsd) under Save as type, and then click Save.

Method 2: Use VBA to Update Stale ShapeSheet Formulas

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following Visual Basic for Applications code sample calls the ActiveDocument.Clean method to update the stale formulas.
  Public Sub CleanDocument()

     If Not Visio.Application.ActiveDocument Is Nothing Then
        Visio.Application.ActiveDocument.Clean
     End If

  End Sub
For additional information about the Clean method, visit the following Microsoft Web site:

Clean method

Information about the Clean method is also available in the Microsoft Visio 2002 Software Development Kit (SDK).

STATUS

Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.

MORE INFORMATION

For more information about XML, type xml in the Ask a question box or the Answer Wizard, and then press ENTER to view the topics.

For additional information about the Visio 2002 Software Developers Kit (SDK), click the following article number to view the article in the Microsoft Knowledge Base:

319658 Description of the Visio 2003 Software Developers Kit (SDK)

REFERENCES

For additional information about how to use the sample code in this article, click the article number below to view the article in the Microsoft Knowledge Base:

297304 Visio2002: How to Run Sample Code from Knowledge Base Articles

For the latest information, hot topics, resources, downloads, and more for the Visio developer, visit the following Microsoft Web site:

MSDN Online Visio Development Center

Modification Type:MinorLast Reviewed:7/27/2006
Keywords:kbbug kbnofix KB321117
©2004 Microsoft Corporation. All rights reserved.