ハイパーリンク一括有効


下記のマクロで行う

Sub SetHyperlinks()
Dim rg As Range
If "Range" = TypeName(Application.Selection) Then
For Each rg In Application.Selection
If Left(rg, 4) = "http" Then
rg.Hyperlinks.Add rg, rg.Text, "", "", rg.Text
End If
Next
End If
End Sub
最終更新:2009年07月07日 11:06