Remove hyperlink from a graphical object
I have tried this but its not working.. Code ------------------- ActiveSheet.Shapes("Organization Chart").Select Set Shp = Selection.ShapeRange For i = 1 To Shp.DiagramNode.Diagram.Nodes.Count Set IShp = Shp.DiagramNode.Diagram.Nodes(i).Shape On Error Resume Next If IShp.Hyperlink.Address < "" Then IShp.Hyperlink.Delete End If On Error GoTo 0 Next i ------------------- methos or data member not found--- error If we directly say hyperlinks . remove it removes from other thing except from graphical objects like organization char -- v_gyk ----------------------------------------------------------------------- v_gyku's Profile: http://www.msusenet.com/member.php?userid=521 View this thread: http://www.msusenet.com/t-187107072 |
All times are GMT +1. The time now is 10:37 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com