締切済み

ハイパーリンクでのクリックイベントの取得

2007/09/27 13:45

任意のセルに対して HYPERLINK 関数でリンクをはったものについては、マウスからのクリックイベントを Worksheet_FollowHyperlink で取得できることはわかったのですが図形描画バーのテキストボックスに対してメニューからのハイパーリンクで実施したリンクに対して Worksheet_FollowHyperlink で取得できない状態です。テキストボックスに対しての HYPERLINK 関数の使用法について使えるのかすらわからず、メニューからの方法しかわからなかったのですがこの場合のリンクでは取得できない状態のようです。メニューはツールバー -> 挿入からものかテキストボックスを選択して右クリックで表示されるメニューからで同じシート内で任意のセルを指定する形です。テキストボックスにリンクをはりクリックイベントを取得するにはどうしたらいいのでしょうか？

kuma_200x
お礼率0% (0/1)

オフィス系ソフト
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

imogasi
ベストアンサー率27% (4737/17070)

2007/09/27 15:14 回答No.1

質問に色々書かれているが、良くわからないが Private Sub TextBox1_Change() x = TextBox1.Text MsgBox x Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate (x) Set ie = Nothing End Sub か Private Sub TextBox1_Change() x = TextBox1.Text MsgBox x '-- ActiveSheet.Hyperlinks.Add(Anchor:=Range("A1"), _ Address:=x, TextToDisplay:="練習リンク").Follow End Sub ただしＡ１は作業セル。では質問の課題とどう違うか補足して下さい。

質問者

補足 2007/09/27 15:54

本件ではユーザーフォームではなくて図形描画でのテキストボックスを使用していますのでこの方法ではうまくいかないようです。マクロの自動記録で Shapes オブジェクトで構成されていることだけはわかったのでアドバイスの内容とその辺りを考えてもう少し悩んでみます。しかもテキストボックスとしての名前も任意で変わるようなので名前付けなども考えなければならないように思いました。ありがとうございました。とりあえず、引き続き情報は募集中！

ログインすると、全ての回答が全文表示されます。