[XL2000] ワークシート内のすべてのハイパーリンクを選択するメニュー コマンドがありません。

文書翻訳 文書翻訳
文書番号: 213790 - 対象製品
この資料は、アーカイブされました。これは "現状のまま" で提供され、更新されることはありません。
すべて展開する | すべて折りたたむ

目次

現象

Microsoft Excel 2000 には、ワークシート内のすべてのハイパーリンクを選択できるメニュー コマンドがありません。

回避策

マイクロソフトは提供プログラミング言語の使用方法の一例としてのみ、姿表現または明示、黙示、黙示または商品性および特定目的に対する適合性に限らずなどです。 この資料は、例示されているプログラミング言語やプロシージャの作成およびデバッグに使用するツールについて理解されているユーザーを対象としています。 Microsoft Support 担当者は、特定のプロシージャの機能についての問い合わせにはお答えできますが、ユーザー固有の目的に合わせた機能の追加、プロシージャの作成などの内容変更は行っておりません。
プログラミング経験がいない場合、マイクロソフト アドバイザリー サービスのマイクロソフト認定パートナーを連絡することがあります。 詳細については、これらのマイクロソフト Web サイトを参照してください。

マイクロソフト認定パートナー - https://partner.microsoft.com/global/30000104

Microsoft のアドバイザリ サービス - http://support.microsoft.com/gp/advisoryservice

使用可能なサポート オプションおよびマイクロソフトに連絡する方法についての詳細については、次のマイクロソフト Web サイトを参照してください: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSこの現象を回避にマクロ] を使ってハイパーリンクが含まれているすべてのセルを選択します。
  1. 新しいブックを Excel に作成します。
  2. [ ツール ] メニューの [ マクロ ] をポイントし、[ Visual Basic Editor ] をクリックします。
  3. Visual Basic エディターで、[ 挿入 ] メニューの [クリックして モジュール
  4. モジュールに次のコードを入力:
    'This Sub procedure selects all cells in the worksheet that contain
    'hyperlinks. You can then clear the selected cells to delete all of
    'the hyperlinks.
    Sub SelectAllHyperlinkCells()
        FirstCell = 1
        For Each xLink In ActiveSheet.Hyperlinks
            If FirstCell = 1 Then
                Set xRange = xLink.Range
                FirstCell = 0
            Else
                Set xRange = Application.Union(xRange, xLink.Range)
            End If
        Next xLink
        xRange.Select
    End Sub
    					

詳細

ハイパーリンクを使用する他のマクロ

すべてワークシート内のハイパーリンクの順番を各ハイパーリンクに特定の操作を実行する Microsoft Visual Basic アプリケーションのサブルーチンの使えます。 たとえば、ハイパーリンクのすべてを削除するやだけ各ハイパーリンクの場所を報告することができます。

: いくつかのコード行は行継続文字 (_) に合わせてこのドキュメントで変更されています。
  1. 新しいブックを Excel に作成します。
  2. [ ツール ] メニューの [ マクロ ] をポイントし、[ Visual Basic Editor ] をクリックします。
  3. Visual Basic エディターで、[ 挿入 ] メニューの [クリックして モジュール
  4. モジュールに次のコードを入力:
    'This Sub procedure deletes all hyperlinks in the active worksheet.
    
    Sub DeleteAllHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            xLink.Delete
        Next xLink
    End Sub
    
    'This Sub procedure displays a series of message boxes indicating
    'the location of each hyperlink in the active worksheet.
    Sub ReportHyperlinkLocations()
       For Each xLink In ActiveSheet.Hyperlinks
            MsgBox xLink.Range.Address
        Next xLink
    End Sub
    
    'This Sub procedure identifies each hyperlink and asks if you want
    'to delete it. If you click Yes, the hyperlink is deleted.
    Sub ReportAndDeleteHyperlinks()
        For Each xLink In ActiveSheet.Hyperlinks
            Response = MsgBox("Delete hyperlink in cell " & _
                xLink.Range.Address & " ?", vbYesNo)
            If Response = vbYes Then xLink.Delete
        Next xLink
    End Sub
    					
  5. [ ファイル ] メニューの [ 閉じて Excel に戻る ] をクリックします。
ワークシートに一部のハイパーリンクを挿入する場合は [ ツール ] メニューの [ マクロ ] をポイントして [ マクロ ] をクリックして、別のマクロを実行できます。 を実行するマクロの名前を選択し、[ 実行 ] をクリックします。

DeleteAllHyperlinks() マクロには、範囲がハイパーリンク テキストはなくのハイパーリンクのプロパティ削除します。 ハイパーリンクのテキストの背後に残されます。

関連情報

ハイパーリンク、Visual Basic エディターで、詳細については、 ヘルプ にメニュー Microsoft Visual Basic のヘルプ </a0>] をクリックして、[Office アシスタント </a0>] または [質問]、 オブジェクトのハイパーリンク を入力して、[ 検索 して表示されるトピックを参照してください] をクリックします。

プロパティ

文書番号: 213790 - 最終更新日: 2014年2月9日 - リビジョン: 3.5
この資料は以下の製品について記述したものです。
  • Microsoft Excel 2000 Standard Edition
キーワード:?
kbnosurvey kbarchive kbprb kbdtacode kbmt KB213790 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:213790
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com