1

列内の選択したすべてのハイパーリンクを編集し、[表示するテキスト]をすべて同じ単語に変更できるVBAマクロを作成したいと思います。たとえば、これが列の場合：

www.google.com/search=cars
www.google.com/search=houses
www.google.com/search=cities

列のこれら3つの要素を強調表示し、表示するテキストを「Google検索」に変更して、結果が次のようになるようにします。

Google Search
Google Search
Google Search

編集：マイクロソフトのサポートサイトでやりたいことと似たマクロを見つけましたが、私の問題は、ハイパーリンクを編集するために特定の列を選択したいのに、このマクロがシート内のすべてのハイパーリンクを対象としていることです。

Sub HyperLinkChange()
   Dim oldtext As String
   Dim newtext As String
   Dim h As Hyperlink


 oldtext = "http://www.microsoft.com/" 
 newtext = "http://www.msn.com/" 

   For Each h In ActiveSheet.Hyperlinks
   x = InStr(1, h.Address, oldtext)
   If x > 0 Then
       If h.TextToDisplay = h.Address Then
            h.TextToDisplay = newtext
       End If
       h.Address = Application.WorksheetFunction. _
       Substitute(h.Address, oldtext, newtext)
   End If
   Next End Sub
4

1 に答える 1

1

これは現在の選択で機能します：

Sub SetLinkText()

Dim LinkText As String
Dim h As Hyperlink

    LinkText = InputBox("Enter link text")

    If LinkText = "" Then Exit Sub

    For Each h In Selection.Hyperlinks
        h.TextToDisplay = LinkText
    Next

End Sub
于 2012-07-07T02:47:37.047 に答える