【VBA】ユーザーフォーム上でランダムに画像を表示するシステムの作成

Question

前提・実現したいこと

ユーザーフォーム上でランダムに画像が表示されるシステムを作っています。（一つの画像1回）

発生している問題・エラーメッセージ

変数が定義されていません。

該当のソースコード

Sub Gazou()
    Dim myFlag(1 To 5) As Boolean
    Dim RandNo As Long
    Dim i As Long
    Dim strPicture(5) As String
    strPicture(0) = "C:\Users\egree\Documents\輪講\VBA\棒人間1.jpg"
    strPicture(1) = "C:\Users\egree\Documents\輪講\VBA\棒人間2.jpg"
    strPicture(2) = "C:\Users\egree\Documents\輪講\VBA\棒人間3.jpg"
    strPicture(3) = "C:\Users\egree\Documents\輪講\VBA\棒人間4.jpg"
    strPicture(4) = "C:\Users\egree\Documents\輪講\VBA\棒人間5.jpg"
    Randomize

    Do
    RandNo = Int((5 - 1 + 1) * Rnd + 1)
    Loop Until myFlag(RandNo) = False
    
    Sub UserForm_Initialize()
        Image1.Picture = LoadPicture(strPicture(RandNo))
    End Sub
    myFlag(RndNo) = True
    
End Sub

試したこと

Sub UserForm_Initialize()
Image1.Picture = LoadPicture(strPicture(RandNo))
End Sub
の部分を分けていましたが、それだと変数を使えなくなるので、Sub Gazouの中に入れてみましたが無理でした。

補足情報（FW/ツールのバージョンなど）

すみません、初心者で至らないところが多きがします。

Answer 1

VBAの書き方としてそもそもSub Gazouの中にSub UserForm_Initialize()と書くことはできません。

『ユーザーフォーム上でランダムに画像が表示されるシステムを作っています。（一つの画像1回）』
というのも、提示されたコードを見る限りでは一つの画像一回という要素はどこにもなく
『フォームを開いたときに一度だけ5つの画像からランダムで一つ表示する』
としか読めないので、そういう方向で直すとこんな感じですかね。

Private Sub UserForm_Initialize()
    Image1.Picture = LoadPicture(Gazou)
End Sub

Private Function Gazou() As String
'    Dim myFlag(1 To 5) As Boolean
    Dim RandNo As Long
    Dim i As Long
    Dim strPicture(5) As String
    strPicture(0) = "C:\Users\egree\Documents\輪講\VBA\棒人間1.jpg"
    strPicture(1) = "C:\Users\egree\Documents\輪講\VBA\棒人間2.jpg"
    strPicture(2) = "C:\Users\egree\Documents\輪講\VBA\棒人間3.jpg"
    strPicture(3) = "C:\Users\egree\Documents\輪講\VBA\棒人間4.jpg"
    strPicture(4) = "C:\Users\egree\Documents\輪講\VBA\棒人間5.jpg"
    Randomize

'    Do
        RandNo = Int((5 - 1 + 1) * Rnd) '+1は入れると5も来るので不要では？
'    Loop Until myFlag(RandNo) = False

'    myFlag(RndNo) = True
    Gazou = strPicture(RandNo)

End Function

Comments

[emirimiyake]

回答ありがとうございます。
とても助かりました。
ちなみに、これらの画像をランダムな順番で全て表示するにはどうするかわかりますか？

[sousuke]

「一つの画像1回」と同じで要件がかなりわかりにくいです。
一つの画像コントロールに表示できる画像は当然ですが１つです。
「全て表示する」という方法をまずは提示してください。
例1）１秒に一つ、ランダムな順で「（5秒ほどで）全て表示する」
例2）５回フォームを開いてランダムな順で「全て表示する」
例3）５回ボタンをクリックしてランダムな順で「全て表示する」
例4）画像コントロールを５つ置いてフォームを開いたときにランダムで「全て表示する」
などです。特にここに言及がないのでどうしようもないです。１つの画像コントロールで
どうやって「全て表示」するつもりかがわかりません。