Visio 2007 Track Markup Overlays
-
Tuesday, July 24, 2012 4:22 PMI 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 AMModerator
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
- Edited by William Zhou CHNModerator Thursday, July 26, 2012 3:33 AM
- Edited by William Zhou CHNModerator Thursday, July 26, 2012 4:20 AM
- Edited by William Zhou CHNModerator Thursday, July 26, 2012 4:37 AM
- Edited by William Zhou CHNModerator Monday, July 30, 2012 2:12 AM
-
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 AMModerator

