v_gyku,
According to the Object Browser with Excel 2000, there is no such thing as
"DiagramNode" for a ShapeRange.
There are "ShapeNodes" and "Nodes" collections however. Is that what you
mean ?
Don't know about later versions.
If on the other hand, you mean the Organisational Chart that can be inserted
in a WS, then
AFAIK you cannot manipulate the elemets from VBA because they
not part of Excel.
NickHK
"v_gyku" wrote in message
...
I am trying this coe :
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
--------------------
--
v_gyku
------------------------------------------------------------------------
v_gyku's Profile: http://www.msusenet.com/member.php?userid=5213
View this thread: http://www.msusenet.com/t-1871070806