常规讨论 Visio 2007 Track Markup Overlays

  • Tuesday, July 24, 2012 4:22 PM
     
     
    I have existing drawings in Visio where I have created multiple track markup overlays to show reviewers proposed changes. When ever the drawings are opened, by default, it shows all of the overlays. I would like to know can the default be removed or changed to open to the original document instead of the showing all of the overlays. There are people that review the doucments in "read only" and the overlays just confuse them. Please advise....
    • Changed Type mrshood62807 Tuesday, July 24, 2012 5:17 PM Need immediate response
    •  

All Replies

  • Wednesday, July 25, 2012 2:28 PM
     
     

    On the reviewing pane, at the bottom is Show Markup Overlays. Enable or disable the ones you want.


    -- Paul Herber, Sandrila Ltd. Engineering and software shapes for Visio - http://www.sandrila.co.uk/

  • Thursday, July 26, 2012 3:29 AM
    Moderator
     
      Has Code

    Hi,

    My colleague helps develop a VBA, it will automatically Hide all Overlays when opening Visio diagram.

    Note: For testing, you can Enable all macros and Trust Access to the VBA project Tools -> Trust Center, see below image:

    Press Alt + F11 open Visual Basic Editor, Click Insert -> Module, copy and paste following code to the Module windows,

    ' ########################################################
    ' Toggle the Show Markup command button in the Review tab.
    ' ########################################################
    Sub ToggleMarkupFeature2007(ByVal Status As Boolean)
        With ThisDocument
            ' The new given status converted from Status.
            Dim strNewStatus As String
            ' The old status of Show Markup.
            Dim strOldStatus As String
            
            strNewStatus = UCase$(CStr(Status))
            
            With .DocumentSheet
                strOldStatus = UCase$(.CellsSRC(visSectionObject, visRowDoc, visDocViewMarkup).FormulaU)
                
                ' /* If the new given status is not the same as the old status. */
                If strNewStatus <> strOldStatus Then
                    .CellsSRC(visSectionObject, visRowDoc, visDocViewMarkup).FormulaU = strNewStatus
                End If
            End With
            
            ' Save this document.
            .Save
        End With
    End Sub
    ' #########################################################
    ' For Visio 2007: Toggle the visibility of reviewer markup.
    ' #########################################################
    Sub ToggleMarkupVisibility2007(ByVal Status As Boolean)
        On Error Resume Next
        
        With ThisDocument
            With ActiveWindow
                ' /* If the current status of reviewer markup is not the same as the given status. */
                If .ReviewerMarkupVisible <> Status Then
                    .ReviewerMarkupVisible = Status
                    
                    ' ******************************************
                    ' ------------------------------------------
                    ' Runtime error '-2032465766 (86db089a)':
                    ' Requested operation is presently disabled.
                    ' ------------------------------------------
                    ' ******************************************
                    If Err.Number = &H86DB089A Then
                        ToggleMarkupFeature2007 True
                        .ReviewerMarkupVisible = Status
                    End If
                End If
            End With
            
            ' Save this document.
            .Save
        End With
    End Sub

    Double click ThisDocument under Visio Objects, and copy and paste following code,

    Private Sub Document_DocumentOpened(ByVal Doc As IVDocument)
        ToggleMarkupVisibility2007 False
    End Sub

    Best regards.


    William Zhou

    TechNet Community Support


  • Friday, July 27, 2012 1:00 PM
     
     

    > Make sure Enable all macros and Trust Access to the VBA project

    Is it a good idea to suggest this, William?

    P.S. you may know of the typical British stereotype of using understatement. This is an example.


    -- Paul Herber, Sandrila Ltd. Engineering and software shapes for Visio - http://www.sandrila.co.uk/

  • Monday, July 30, 2012 2:11 AM
    Moderator
     
     

    Hi Paul,

    Thanks for your remind.

    I'm only consider for Marco testing, ignore security. I will edit may content above.

    Best regards.


    William Zhou

    TechNet Community Support