Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52428 / 76732

←次へ　｜　前へ→


	【29142】Re:ルーレット（写真）

ちくたく - 05/9/26(月) 17:19 -


	引用なし

	パスワード

サイケさんこんにちは。
こんな感じでできますよ。出来は荒いですが。

人物名を配列に格納していたのを、ファイルに格納。
ここは、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

1 hits

▼

【27316】ルーレット（人名） サイケ 05/8/5(金) 10:54