excel - ランダムな画像をラベルに追加する

Question

UserForm 2 = 36 個のボタン (btn1 から btn36) 各ボタンには画像があります。「追加」ボタンをクリックすると、ボタン上にある 3 つのランダム画像が UserForm 1 に表示され、ランダム画像 1 と表示される 3 つのラベルが表示されます。

Answer 1

ランダムなボタン イメージを選択するには、フォームでコレクション Me.Controls を使用する必要があります。例えば：

Dim cCont As Control
For Each cCont In Me.Controls
    'DO STUFF HERE
Next cCont

変数 cCont にウォッチを配置すると、各コントロールが持つすべてのプロパティを確認できます。まず、ボタンであるコントロールを除外する必要があります。次に、そのボタンのイメージ プロパティを調べて、それを取得し、2 番目のフォームに設定する必要があります。

最後に、ランダム要素を導入するには、Rand() 関数を使用します。これにより、0 から 1 の間の乱数が返されます。これに Me.Controls のコントロールの数を掛けて整数に丸めると、ランダムなコントロールが得られます。インデックスを作成したコントロールがボタンであることを確認してください。そのボタンの画像をランダムな画像の 1 つとして使用できます。