参照設定にチェックを入れないで実行したい

質問

http://okwave.jp/qa/q7325145.html
のように、ＶＢＡで参照設定にチェックを入れないで
下記のコードを実行したいのですが可能でしょうか？

――――――――――――――――――
Function test()

Dim objsample As Shell
Set objsample = New Shell

objsample.Help 'Windowsヘルプ画面を表示させます。
Set objsample = Nothing '開放します。

End Function
――――――――――――――――――
http://www.accessclub.jp/supbeg/073.htmlを参考にしました。

参照設定で「Microsoft Shell Controls And Automation」にチェックを入れて下さい。
との事ですが、
都合上できればチェックを入れたくありません。
けど上記のコードを実行したいです。

1つ目のリンクＡＤＯのようなことは可能でしょうか？
ご回答よろしくお願いします。

回答No.2

watabe007 · ベストアンサー

>objsample As Shell
>の部分が、
>「ユーザー定義型は定義されていません。」
参照設定にチェックを入れないんだから
当然 As Shell でエラーが出るでしょう

Function test()
　　CreateObject("Shell.Application").Help
End Function

または
Function test()
　　Dim objsample As Object
　　Set objsample = CreateObject("Shell.Application")
　　objsample.Help
　　Set objsample = Nothing
End Sub

お礼

お返事遅くなってしまい申し訳ございません。
再度ご回答いただきありがとうございます。

Function test()
　　Dim objsample As Object
　　Set objsample = CreateObject("Shell.Application")
　　objsample.Help
　　Set objsample = Nothing
End Function
でうまく行きました！

回答No.1

watabe007

こんばんは、これでどうでしょうか

CreateObject("Shell.Application").Help

お礼

書き忘れましたが
当方オフィスのバージョンは２００３と２００７を持っていますが

Function test()
Dim objsample As Shell
の間に、
CreateObject("Shell.Application").Help
を入れてみましたが、２００３も２００７も
objsample As Shell
の部分が、
「ユーザー定義型は定義されていません。」
になってしまいました。。。