Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2771 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66062】MsgBoxのヘルプファイルの動作がExcelのVersion によって異なる？ 年寄 10/7/22(木) 16:15 質問[未読]
【66063】Re:MsgBoxのヘルプファイルの動作がExcelの... n 10/7/22(木) 20:47 発言[未読]
【66064】Re:MsgBoxのヘルプファイルの動作がExcelの... 年寄 10/7/22(木) 21:17 お礼[未読]
【66062】MsgBoxのヘルプファイルの動作がExcelの...
質問  年寄 E-MAIL  - 10/7/22(木) 16:15 -
引用なし
パスワード
   Private Sub CommandButton1_Click()
Dim Ans,Msg
　　Msg="ABCD"
　　Ans = MsgBox(Msg, vbYesNo + vbMsgBoxHelpButton, , ThisWorkbook.Path & "\" & "○○.chm", 17)
　　If ANS = vbNo Then Exit Sub
　　----
End Sub
--------------
上記のコードでExcel2000では自作ヘルプファイルが表示できますが、2007ではExcelのヘルプファイル画面が起動して、ヘルプが使えない、というメッセージが表示されます。理由と対策を教えて下さい。
0SはWin 7 64bit です。
【66063】Re:MsgBoxのヘルプファイルの動作がExce...
発言  n  - 10/7/22(木) 20:47 -
引用なし
パスワード
   どうも壊れてるようです。
VBA MsgBox Function Fails to Open Your Help File under Office 2007
p://www.fmsinc.com/free/NewTips/VBA/MsgBoxFailsHelpFile/index.html

>ヘルプが使えない、というメッセージが表示されます。
『このページはご利用いただけません』というメッセージの事でしょうか。
その場合は、ステータスバーの通知領域から
「このコンピュータ上のコンテンツのみを表示」する設定に切り替える必要があるようです。
p://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+201006/10060097.txt
ただ、この設定にしても2007では冒頭に紹介したページのように「開発者用リファレンス」のページが表示されるだけです。

Application.Help ThisWorkbook.Path & ThisWorkbook.Path & "\○○.chm", 17

Helpメソッドは生きてますから、
>you’ll need to create your own form with a help button and display your message and help file link that way.
MsgBox代用のUserFormを作成するなどの対処になりそうです。

※確認したのはwinXPsp3/xl2007sp2環境。
【66064】Re:MsgBoxのヘルプファイルの動作がExce...
お礼  年寄 E-MAIL  - 10/7/22(木) 21:17 -
引用なし
パスワード
   ▼n さん：
ご回答どうもありがとうございました。
かなりの時間と労力をかけて調べても解かりませんでした。
「2007のBugかな？」という気持ちもありましたが、確信を
持てませんでした。
60才の年寄ですが、仕事柄毎日英語は読んでいるのですが、
VBAの英文サイトまでは目を通す気がしませんでした。
これで、あきらめがついたのでこれ以上無駄な時間を費やさずに
すみました。(UserFormを使うほどのものではありません。)
ありがとうございました。
年寄
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2771 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free