|
|
гиперссылки
With ThisWorkbook.Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="http://www.msoffice.nm.ru"
End With
With ThisWorkbook.Worksheets(1).Range("A3")
.Hyperlinks.Add Anchor:=.Item(1), Address:="www.nm.ru"
End With
With ThisWorkbook.Worksheets(1).Range("A5")
.Hyperlinks.Add Anchor:=.Cells(1), _
Address:=Application.DefaultFilePath
End With
With ThisWorkbook.Worksheets(1).Range("A7")
.Formula = "=HYPERLINK(""http://www.nm.ru"")"
End With | |
Если необходимо, чтобы в ячейке отображался не текст гиперссылки, а
нужный текст, то :
| With ThisWorkbook.Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="http://www.nm.ru"
.Range("A1").Value = "Проект Новая почта"
End With
With ThisWorkbook.Worksheets(1).Range("A3")
.Hyperlinks.Add Anchor:=.Item(1), Address:="http://www.nm.ru"
.Value = "Проект Новая почта"
End With
With ThisWorkbook.Worksheets(1).Range("A5")
.Hyperlinks.Add Anchor:=.Cells(1), _
Address:=Application.DefaultFilePath
.Formula = "Просмотр содержимого папки"
End With
With ThisWorkbook.Worksheets(1).Range("A7")
.Formula = "=HYPERLINK(""http://www.msoffice.nm.ru"",""Может
посетим ..."")"
End With |
Особенности MS Excel 2000, XP
В этих версиях, создать нужный текст, можно используя необязательный
аргумент TextToDisplay :
| Worksheets(1).Hyperlinks.Add
Anchor:=Range("C3"), _
Address:="http://www.gramota.ru/",
TextToDisplay:="Грамота.ру" |
Ответ :
Актуально для MS Excel 97, 2000, XP
| Private Sub DeleteAllHyperlinks()
With ThisWorkbook.Worksheets(1)
If Not .ProtectContents Then
Dim iCell As Range: .Hyperlinks.Delete
Set iCell = .UsedRange.Find(What:="=HYPERLINK(*)", _
LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=True)
Do Until iCell Is Nothing
iCell.Style = "Normal"
iCell.Value = iCell.Value
Set iCell = .UsedRange.FindNext
Loop
Else
MsgBox "Снимите защиту листа", vbExclamation, ""
End If
End With
End Sub | |
Комментарий :
Удаление гиперссылок не приводит к удалению текста
гиперссылок. Если такое положение вещей недопустимо, то используйте
перебор всех
гиперссылок, только учтите, что гиперссылка может быть связана не только
с ячейкой,
но и с автофигурой/рисунком.
|
Источник: http://msoffice.nm.ru/faq/macros/miscellaneous.htm#faq194 |
| Категория: Разное: 1С и не только ... | Добавил: Чех (19.07.2010)
|
| Просмотров: 1821
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
