エクセルのマクロでハイパーリンクを設定したい

フォーム→ボタン　よりシート内に数個ボタンを設置いたしました。
このボタンをクリックすると、会社のHPなどが開くようなハイパーリンクを設定したいのですが、マクロで出来ますでしょうか？
セル内にはなるべくアドレスの表示をしたくないので、ボタンにしました。よろしくお願い致します。

No.1 ベストアンサー 回答者： Wendy02 回答日時： 2007/07/05 02:21

こんばんは。

こんな感じですか？

Sub TestIe()
'こちらで、Urlを変える
　IeAccess "http://oshiete1.goo.ne.jp/c232.html"
　
End Sub


Sub IeAccess(UrlName As String)
'サブルーチン
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
　 .Visible = True
　 .Navigate UrlName
　 Do While .Busy
　　　DoEvents
　 Loop
　 Do Until .ReadyState = 4
　　　DoEvents
　 Loop
End With
Set IE = Nothing
End Sub

この回答へのお礼

参考にさせて頂きました。ありがとうございました！

お礼日時：2007/07/17 21:42

No.3 回答者： pacific231 回答日時： 2007/07/07 00:20

このページが参考になります。

参考URL：http://officetanaka.net/excel/vba/tips/tips42.htm

この回答へのお礼

参考になりました、ありがとうございました！

お礼日時：2007/07/17 21:43

No.2 回答者： imogasi 回答日時： 2007/07/05 18:23

エクセルＶＢＡにある、Hyperlinks.Addはエクセルのセルにハイパーリンクを設定するもので、その引数のAnchorは必須で、TextToDisplayを指定しなく（空白を指定し）てもアドレスがセルに出てしまいます。

またコマンドボタンにHyperlink.Followのメソッドが無い。
ーー
ですから他の方法を考えないといけない。
エクセルVBAではないが
CreateObject("InternetExplorer.Application")でWEB照会すると沢山出てくる、例の方法があるのでそれを使う。
Private Sub CommandButton1_Click()
Dim IE As Object
Dim URL As String
Set IE = CreateObject("InternetExplorer.Application")
URL = "http://okwave.jp/kotaeru_reply.php3?q=3140623"
IE.Navigate URL
IE.Application.Visible = True
Do While IE.Busy = False
DoEvents
Loop
Set IE = Nothing
End Sub
など。

この回答へのお礼

ありがとうございます、私には理解不能で難しすぎましたが、皆さんのを参考にしいろいろやってみました。アドバイスありがとうございました。

お礼日時：2007/07/17 21:44