EXCELシート上のリンクをクリックすると最小化してしまう

質問

お世話になります。
早速ですが、質問です。
ＥＸＣＥＬのシート上にハイパーリンクを作成し、そのリンクをクリックす
ると、ＩＥにてページが表示されるのとほぼ同時にＥＸＣＥＬが最小化して
しまいます。

これを抑止したいと、過去の質問から
http://oshiete1.goo.ne.jp/qa4942669.html
を参照し、
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.WindowState = xlNormal
AppActivate Application.Caption
End Sub
というマクロを入れてみたのですが、やはり最小化されてしまいました。
どうもリンクをクリックした際に、ＩＥにページを表示する前に、上記の処
理が実行されてしまっているように見受けられます。

それならば最小化されてしまうタイミングで対処しようと
Private Sub Workbook_Deactivate()
Application.WindowState = xlNormal
AppActivate Application.Caption
End Sub
というコードも追加してみたのですが、こちらはイベントが発生せず、実行
されませんでした。

この事象は回避不可能なのでしょうか？
何かよい方法がありましたらご教授いただければ幸いです。

ちなみに環境はWindowsXP+EXCEL2000+IE8です。

以上、よろしくお願いします。

回答No.1

watabe007 · ベストアンサー

>ＩＥにページを表示する前に、
>上記の処理が実行されてしまっているように見受けられます。
OnTimeメソッドで時間をずらしてみては

Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
　　Application.OnTime Now + TimeValue("00:00:05"), "通常表示"
End Sub
'標準モジュール
Sub 通常表示()
　　Application.WindowState = xlNormal
End Sub

お礼

ご回答ありがとうございます。
どうしても何秒間かはエクセルが最小化された状態が続いてしまうのが
玉に瑕ですね。とは言えどもonTimeメソッドの存在を知らなかったの
で、大変勉強になりました。ありがとうございました。

で、今回はちょっと面倒ですが、hyperlink.addressを空白にすること
で回避してみました。
'セルへのリンク設定処理
activesheet.hyperlinks.add anchor:=セル,address="",screentip:=ＵＲＬ
この状態でリンクをつつくと当然何事も起こりませんが、
SheetFollowHyperlinkイベントは発生してくれるので

Workbook_SheetFollowHyperlinkプロシージャ内で
　target.address=target.screentip 'アドレスにＵＲＬをセット
　application.enableevents=false 'イベント発生抑止
　target.follow newwindow:=true 'ＵＲＬ送信
　target.address=""
　application.enableevents=true
という処理にしてみました。
かなり無理やりなんですが、何とか期待通りの動作をしてくれておりま
す。