ﾕｰｻﾞｰﾌｫｰﾑﾗﾍﾞﾙ設定で左端に寄せたい

あるﾕｰｻﾞｰﾌｫｰﾑに文字を左寄せで貼り付けるコードを作成しました。
※以下のサイトを参考にしました。
https://www.239-programing.com/excel-vba/ufm/ufm023.html

       With UserForm3.Controls.Add("Forms.Label.1", "説明", True) 'ﾀｲﾄﾙ
            .Top = Top                      'Top位置(表示位置を移動する)
            .Left = 10                          'Left位置
            .Height = 15 * WRG                  '高さ
            .Width = 370                        '幅
            .WordWrap = True                    '折り返し
            .BorderStyle = fmBorderStyleSingle  '枠線
            .BackColor = RGB(128, 128, 128)     '背景色
            .ForeColor = RGB(255, 255, 255)     '文字色
            .Font.Name = "メイリオ"             'テキストのスタイル
            .TextAlign = 2                      'テキストの位置
            .FontSize = 10                      'テキストのサイズ
            .Caption = Cells(row, 4)
            .TextAlign = fmTextAlignLeft  '該当箇所です！
   End With

特にエラーコードなどは発生せず、ﾗﾍﾞﾙも表示されるのですが文字が中央揃えになってしまします。
ﾗﾍﾞﾙの文字を中央揃えにするのは「.TextAlign = fmTextAlignLeft」かと思っていたのですが反応しません。（消去しても fmTextAlignRightにしても変化ありません。）

この場合考えられる要因を知りたく質問いたしました。
順番が関係しているのでしょうか？それとも根本の部分を勘違いしているのでしょうか？
お助言いただければ幸いです。よろしくお願いします。

tosi

2020/09/14 05:15

この辺の設定で実は画面表示されていなくて、別のラベルと勘違いして見ている事はない。(コメントにしてやってみるとか) .Top = Top 'Top位置(表示位置を移動する) .Height = 15 * WRG '高さ .Caption = Cells(row, 4)

行動規範の内容に同意します

回答1件

ベストアンサー

TextAlignが二か所あるので上の方を削除してみてください。
2はfmTextAlignCenterです。
ただ、普通なら最後に実行されたものが適用されるはずですが。

VBA
1            .TextAlign = 2                      'テキストの位置
2            .FontSize = 10                      'テキストのサイズ
3            .Caption = Cells(row, 4)
4            .TextAlign = fmTextAlignLeft  '該当箇所です！

投稿2020/09/14 04:59