Удалить формат гиперссылок Сохраняющий формат ячейки

Question

У меня есть несколько ячеек на листе, содержащих Введенные гиперссылки. Я хочу удалить гиперссылки и оставить «дружественное имя» в ячейке. Я могу сделать это с помощью:

Sub dural() 
    Dim h As Hyperlink 

    For Each h In ActiveSheet.Hyperlinks 
     h.Delete 
    Next h 
End Sub 

Этот небольшой вспомогательный работает. Однако, если я начну с:

и запустить макрос, я получаю:

Формат ячейки был разрушен! Есть ли способ удалить гиперссылку и оставить форматирование в одиночку?

EDIT # 1:

изучение свойств гиперссылка, я получил эту работу:

Sub dural2() 
    Dim h As Hyperlink, addy As String, z As String 

    For Each h In ActiveSheet.Hyperlinks 
    addy = h.Range.Address 
    z = h.Parent 
    Range(addy).ClearContents 
    Range(addy).Value = z 
    Next h 
End Sub 

Answer 1

Объекта гиперссылка обладают определенными свойствами, которые, путем проб и ошибок, я установил, что для простого гиперссылка на другую ячейку на том же листе:

• h.Address = ""
• h.Range = "CNN" (на самом деле возвращает диапазон, а как свойство по умолчанию .Value он оценивает в "CNN")
• h.SubAddress = "Лист1! C1"

Как .SubAddress содержит :

положение внутри документа, связанного с гиперссылкой

Я изменил свой код:

Sub dural() 
    Dim h As Hyperlink 

    For Each h In ActiveSheet.Hyperlinks 
     h.SubAddress = "" 
    Next h 
End Sub 

и обнаружил, что гиперссылка больше не работает, но форматирование вашей ячейки сохраняется.