ＥｘｃｅｌＶＢＡWorkbook_Openについて

質問

Excel2003VBAを勉強中の者です。早速ですが質問させて頂きます。

UserForm1にTextBox1、CommandButton1、ListBox1、Image1を配置しました。
TextBox1のTextプロパティには「C:\写真Sampleフォルダ\」と入力しております。
また、Cドライブの「写真Sampleフォルダ」にはjpg画像が複数入っております。
この状態で、以下の動作を行うことが出来るコードを作ってみました。

＊このコード自体は目的通りにちゃんと動きます。

～～実行できる動作～～
○CommandButton1を押すとListBox1に、Cドライブの「写真Sampleフォルダ」にある画像ファイル一覧が表示される。
○ListBox1の画像ファイル一覧にあるファイル名をひとつダブルクリックして、Image1に表示させる。

～～CommandButton1のクリックイベントのコード～～

Private Sub CommandButton1_Click()

Dim FilePass As String
FilePass = TextBox1.Value
Dim FileName As String
Dim i As Long
i = 1
Dim FileDate() As Variant
ReDim FileDate(1 To i) As Variant

FileName = Dir(FilePass)

Do
FileDate(i) = FileName
i = i + 1
ReDim Preserve FileDate(1 To i)
FileName = Dir()

Loop While FileName <> ""

ListBox1.List = FileDate
End Sub

～～ListBox1のダブルクリックイベントのコード～～

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim List1No As Long
List1No = ListBox1.ListIndex
Dim FileName As String
Dim FileFullPass As String
If List1No < 0 Then
MsgBox "読み込むファイルを指定して下さい"
Exit Sub
Else
FileName = Me.ListBox1.Value
End If

FileFullPass = Me.TextBox1 & "\" & Me.ListBox1
Image1.Picture = LoadPicture(FileFullPass)

End Sub

ここで更に使い易くしたく、以下の動作を追加しようと考えました。

○ブックを開いた時に同時にUserForm1を表示する。
○UserForm1が表示されたあとに続いてCommandButton1をクリックしなくてもListBox1にファイル一覧が表示される。

要は、ブックを開いたらListBox1に自動的に表示されたファイル名をダブルクリックするだけで画像が表示される状態にしたいのです。
そのため、ThisWorkbookモジュールに以下のコードを入力しました。

Private Sub Workbook_Open()
UserForm1.Show
Call CommandButton1_Click
End Sub

しかし、ここで「コンパイルエラー　ＳｕｂまたはＦｕｎｃｔｉｏｎが定義されていません。」というエラーが発生します。
そこでCall CommandButton1_Clickを消してUserForm1.Showのみにして再度実行したところUserForm1の表示だけなら上手く動作しました。
調べていくうちにフォームモジュールのコードはどうやらブックモジュールでは呼び出し出来ないのかな？と思い始めたのですが本当にそうなのでしょうか？
だとすると、UserForm1がブックモジュールのUserForm1.Showとうコードで表示される事もおかしい気がしてきて分からなくなってしまいました。
なんとかしてこの動作が実行出来るようにしたく、どなたかご教示頂けます様お願い致します。

回答No.2

mar00 · ベストアンサー

FilePass = TextBox1.Value
となっていますが常にCドライブの「写真Sampleフォルダ」という事でいいのでしょうか。
入力して指定する為にTextBox1があるのでは?

常にCドライブの「写真Sampleフォルダ」という事であれば
FilePass = Cドライブの「写真Sampleフォルダ」にして
Private Sub CommandButton1_Click()を
Private Sub UserForm_Initialize()にすればいいと思います。

お礼

早速のご回答有難う御座います。
早速実行してみたところ、目的の動作が出来る事を確認できました！
Initializeというのは「初期化=オールクリア」に使用するのだと思っていましたが、私の考え方が間違っておりました。
凄く便利なものなんですね、間違いなく多用すると思われますので、これを機会にきっちりマスターしておきます！

＞常にCドライブの「写真Sampleフォルダ」という事でいいのでしょうか。

今はこの状態でいいですが、今後はボタンを付けて別フォルダを読み込む設定にするかもしれません。
しかし、試しにInitializeでコードを実行した後、更にCommandButton1に違うフォルダを指定したコードを入力して実行してみましたが、上手く動作できましたので、とりあえず問題はクリアできるかと思います。
（同じ様なコードをInitializeとCommandButton1のイベントに２つ書くのはナンセンスだとは感じておりますが、そこを突き詰めていくとDreamyCatさんのご教示にある「変数の定義」＝スコープの概念をちゃんとおさえる必要があるかと思われまして、私の知識がまだそのレベルに至っておりません＞＜）

的確なご教示のお陰で凄く便利なフォームにすることが出来ました、有難う御座います！

回答No.1

DreamyCat

変数の定義で修正が必要になる部分が出るかもしれませんが
private でなく
public にすればcommandbuttonなどの呼び出しができます。
call UserForm1.CommandButton1_Click

Public Sub CommandButton1_Click()
処理
end sub

お礼

早速のご回答有難う御座います！
内容を確認し、早速実行してみました。
ご教示の内容にある様に「変数の定義」に修正が必要なみたいで、「ＳｕｂまたはＦｕｎｃｔｉｏｎが定義されていない」エラーが出てしまいました。
このエラーを回避するために変数の宣言を変えてみたり、定数にしてみたり、宣言の場所を変えてみたりとやってみましたが、理解できていない為、上手く呼び出しする事が出来ませんでした＞＜
折角アドバイス頂いたのに申し訳ありません。
しかし、この「変数の定義」（スコープという考え方の事だと認識しました。）というのは、かなり重要なステップであることが分かってきましたので、これから掘り下げて調べていくつもりです。
貴重なアドバイス有難う御座います。
今後もお助け頂けるととても嬉しいです！
有難う御座いました。