|
サイケ さん こんにちは。
こんな感じでできますよ。出来は荒いですが。
人物名を配列に格納していたのを、ファイルに格納。
ここは、Dirを使って精査したほうがいいかもしれません。
あとは、同じで、ランダムで取り出した文字列を使って、ファイルをインサート。
Private Sub CommandButton1_Click() 'startボタン
Dim Hname As Variant, myName As String
Dim max As Long
Dim myPhoto As Object
Hname = Array("D:\tmp\A.jpg", "D:\tmp\B.jpg", "D:\tmp\C.jpg")
max = UBound(Hname)
flag = False
Do While flag = False
myName = Hname(Int((max + 1) * Rnd))
Set myPhoto = ActiveSheet.Pictures.Insert(myName)
DoEvents 'Button2のクリックを可能にするため
If flag = False Then myPhoto.Delete
Loop
End Sub
Private Sub CommandButton2_Click() 'Stopボタン
flag = True
End Sub
|
|