Здравствуйте гуру и др. форумчане.
В таблице Экселя делаю гиперссылку с помощью кода, записанного макрорекордером:
ActiveSheet.Hyperlinks.Add Anchor:=Selection.Offset(0, 3), Address:= _
FolderForHipr, TextToDisplay:= _
Selection.Offset(0, 3).Value
With Selection.Offset(0, 3).Font
.Name = "Times New Roman"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
End With
Selection.Offset(0, 3).Font.Underline = xlUnderlineStyleNone
Но теперь возникла необходимость проверить, является ли ячейка гиперссылкой, и, если нет, то запустить функцию установки гиперссылки, а если да, то взять путь, по которому эта гиперссылка прописана.
Как это сделать? Думал-думал, пробовал-пробовал... Не выходит.
Вопрос:
Как проверить ячейку на гиперссылку?
Как взять путь, по которому она прописана?
Спасибо....
В таблице Экселя делаю гиперссылку с помощью кода, записанного макрорекордером:
ActiveSheet.Hyperlinks.Add Anchor:=Selection.Offset(0, 3), Address:= _
FolderForHipr, TextToDisplay:= _
Selection.Offset(0, 3).Value
With Selection.Offset(0, 3).Font
.Name = "Times New Roman"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = 5
End With
Selection.Offset(0, 3).Font.Underline = xlUnderlineStyleNone
Но теперь возникла необходимость проверить, является ли ячейка гиперссылкой, и, если нет, то запустить функцию установки гиперссылки, а если да, то взять путь, по которому эта гиперссылка прописана.
Как это сделать? Думал-думал, пробовал-пробовал... Не выходит.
Вопрос:
Как проверить ячейку на гиперссылку?
Как взять путь, по которому она прописана?
Спасибо....