Страницы: 1
RSS
Как проверить ячейку на наличие гиперссылки?
 
Здравствуйте гуру и др. форумчане.  
В таблице Экселя делаю гиперссылку с помощью кода, записанного макрорекордером:  
 
           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  
 
Но теперь возникла необходимость проверить, является ли ячейка гиперссылкой, и, если нет, то запустить функцию установки гиперссылки, а если да, то взять путь, по которому эта гиперссылка прописана.  
Как это сделать? Думал-думал, пробовал-пробовал... Не выходит.  
Вопрос:  
Как проверить ячейку на гиперссылку?  
Как взять путь, по которому она прописана?  
Спасибо....
 
If ActiveCell.Hyperlinks.Count = 0 Then  
   'код для добавления гиперссылки  
Else  
   MsgBox ActiveCell.Hyperlinks(1).Address & vbLf & ActiveCell.Hyperlinks(1).SubAddress  
End If
 
Спасибо!!!
Страницы: 1
Читают тему
Наверх