#1
|
|||
|
|||
Visio 2019 - Remove all Hyperlinks
Hello all, I would like to remove hyperlinks for all shapes on all pages in my OrgChart. Could you please show me how as I don't want to remove the links one by one. Thank you so much.
|
#2
|
||||
|
||||
This code works if your hyperlinks are all at the Shape Level. It might be a problem if you have sub-shapes with hyperlinks.
Code:
Sub RemoveHLs() Dim aPage As Page, aShape As Shape, i As Integer For Each aPage In ActiveDocument.Pages For Each aShape In aPage.Shapes Do While aShape.Hyperlinks.Count > 0 aShape.Hyperlinks(0).Delete 'apparently hyperlinks are a zero-based array Loop Next aShape Next aPage End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Visio 2019 Professional | GeekDad | Visio | 1 | 04-11-2022 05:43 PM |
Visio 2019 freezing when using zoom | nscelsi1 | Visio | 1 | 12-19-2021 09:43 PM |
Visio Pro 2019 - Hangs Using Keyboard Shortcuts | digitizernz1 | Visio | 4 | 08-30-2019 09:25 AM |
Visio 2019 installation failure on Windows 10 with Office 2019 | instwars | Office | 1 | 08-29-2019 07:05 PM |
Visio 2019 Pro does not recognize default printer. | MDWR | Visio | 0 | 03-10-2019 03:57 PM |