Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 12-29-2022, 01:12 PM
phathuynh27 phathuynh27 is offline Visio 2019 - Remove all Hyperlinks Windows 10 Visio 2019 - Remove all Hyperlinks Office 2019
Novice
Visio 2019 - Remove all Hyperlinks
 
Join Date: Dec 2022
Posts: 2
phathuynh27 is on a distinguished road
Default 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.
Reply With Quote
  #2  
Old 01-08-2023, 06:17 PM
Guessed's Avatar
Guessed Guessed is offline Visio 2019 - Remove all Hyperlinks Windows 10 Visio 2019 - Remove all Hyperlinks Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,932
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
Reply With Quote
Reply

Thread Tools
Display Modes


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

Other Forums: Access Forums

All times are GMT -7. The time now is 10:03 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft