VBA ユーザーフォーム ラベルについて

VBAのユーザーフォームのラベルに関して質問です。
下記のようなことをする良い方法を教えていただけますでしょうか？
現状ではCaption部分でエラーが発生します。

Sub test2()
Dim i As Long
Dim Word() As Variant

For i = 1 To 20
ReDim Preserve Word(i)
Word(i) = "UserForm2.Label" & i

With Word(i)
.Caption = "Sample" & i
.Font.Name = "ＭＳ Ｐゴシック"
.Font.Size = 11
End With
Next

UserForm2.Show vbModeless

End Sub

情報が少ないかもしれませんがご教示よろしくお願いいたします。

No.3 回答者： gao57830 回答日時： 2016/01/03 13:16

何がやりたいのか意味不明ですが・・・。

＞Dim Word() As Variant
＞Word(i) = "UserForm2.Label" & i
Wordには、文字列を代入しているのでVariant宣言する意味が不明。

＞With Word(i)
＞.Caption = "Sample" & i
＞.Font.Name = "ＭＳ Ｐゴシック"
＞.Font.Size = 11
＞End With
WordがStringなのに、「.Caption」「.Font.Name」などのプロパティメソッドにアクセスしているのが意味不明。


フォーム「UserForm2」が存在し、そのフォームにラベルを追加する。
との事だとして、以下のようにすればどうですか？

Sub test2()
Dim i As Long

For i = 1 To 20
With UserForm2.Controls.Add("Forms.Label.1", "Label" & i, True)
.Top = i * 10
.Left = 0
.Caption = .Name
.Font.Name = "ＭＳ Ｐゴシック"
.Font.Size = 11
End With
Next

UserForm2.Show vbModeless
End Sub

No.2 回答者： nokirag 回答日時： 2016/01/03 02:05

>>下記のようなことをする良い方法

throw new Exception()でどうでしょう？
どの例外を投げたいかはご自身で調べてください。

No.1 回答者： mindatg 回答日時： 2016/01/02 23:59

処理を見るに、配列Word(i)には文字列しか入っていません。

UserFormを格納しないと .Captionやらプロパティ設定できません。

Set Word(i) = UserForms.Add(UserForm2.Label & i)

こうかな、というとこですが、UserForm2.Label & i によって存在しているUserFormの名前になっていないとエラーになります。