Execl ハイパーリンクで起動するブラウザを指定したい

質問

初めまして。宜しくお願いします。

Execl2003、通常使用するブラウザはFireFoxを使っています。
Excelのセルにハイパーリンクを設定し、セルをクリックすると
通常使っているブラウザのFireFoxでリンク先が表示されます。

今回やりたい事は、
同じExcelシート内のいくつかのセルにハイパーリンクを設定していますが、
通常のハイパーリンクの設定はFireFoxで開く設定のままにして、
今回設定するセルのハイパーリンクのみIEで起動しリンクを
表示させたいのですが、起動するブラウザをハイパーリンクで
指定することは出来ますか？

またハイパーリンクで出来ない場合にExecl上で起動するブラウザを指定して
ショートカットやリンクを貼る方法があれば教えてください。
（同じExcelシート内でA1セルのリンクをクリックするとFireFoxで
リンクが表示され、B1セルのリンクをクリックするとIEでリンクが
表示されるイメージです。）

すいませんが宜しくお願いします。

回答No.2

misatoanna

＃１のお答えのように、セルによるハイパーリンク用ブラウザの使い分けは不可能
でしょう。
代わりに、マクロでＩＥを起動させ、そのセルまたは非表示にした右隣のセルに入
力されたＵＲＬを開くのはいかがでしょう。

まず、標準モジュールに次のコードを記述します。
Sub Test()
　Dim NM, AD
　NM = ActiveSheet.Shapes.Range(Application.Caller).Name
　AD = Range(ActiveSheet.Shapes(NM).TopLeftCell.Address).Value　　'※
　Shell "EXPLORER.EXE " & AD
End Sub

※ＵＲＬを右隣セルに入力する場合は、
　AD = Range(ActiveSheet.Shapes(NM).TopLeftCell.Address).Offset(0, 1).Value
　です。

さらに、
1.クリック用のセルにURLを入力します。
2.そのセルにちょうどかぶさるサイズのオートシェイプ（四角形）を描きます。
　セルをクリックして、図形描画ツールバーの「影」にある「スタイル19」を指定
　すると簡単です。
3.オートシェイプを選択して右クリックメニューからマクロの登録をします。
　登録するのは上記マクロです。
4.オートシェイプを「塗りつぶしなし・線なし」にします。

お礼

回答有難う御座います。
こういった方法もあるのですね。とても参考になりました。
しかもマクロで対応するのは思い付きませんでしたので、
こういった発想力は素晴らしいです。
こういった知識が前提になる発想力は羨ましい限りです。

一応質問の件は解決できたのですが、参考に頂いた方法でも
試してみます。
有難う御座いました。

回答No.1

noname#77348

Windowsの設定に依存するので無理でしょう。

お礼

早速の回答有難う御座いました。
質問した件の方法は何とか自己解決出来ました。
（IEのショートカットを作って、そのショートカットをハイパーリンクに
設定するというとても簡単な方法で逃げました＾＾；）
こういった問題は、色々と方法や手段を発想する力が必要で、
自分のそういった能力の不足を痛感致しました。
これからは自分でも、そういった発想力を身につけて、
他の人にもアドバイス出来るようになりたいと思います。
（それにはやはり前提知識が必要ですね。）
回答有難う御座いました。