エクセル VBA MultiPageにListViewを設置すると位置がおかしくなる現象を解決（Excel VBA）

【本日のミッション】

エクセル VBA でマルチページ（MultiPage）にリストビュー（ListView）を設置すると、UserForm の Initialize 時にリストビューの位置がずれてしまう現象を解決せよ。

1 ミッションの概要
2 プロシージャ
3 原因は「ColumnHeaders.Add」？
4 Initializeで初めに表示されるPageでは正常位置？
5 「一度表示されると正常に表示される」現象を利用して解決
6 【参考】

ミッションの概要

エクセル VBA でマルチページ（MultiPage）にリストビュー（ListView）を設置すると、UserForm の Initialize 時にリストビューの位置がずれてしまう現象を解決せよ、というのが今回のミッションです。

本当はこの位置に表示されるように、ListViewを配置しているのですが・・・

なぜか、MultiPageの左上ギリギリのところに、勝手に移動してしまっている。
今回は、この現象を解決していこうと思います。

プロシージャ

マルチページ「MultiPage1」に「Page1」と「Page2」を作り、「Page1」に「ListView1」、「Page2」に「ListView2」を設置しました。

オレンジ文字部分がListViewの位置ずれを回避するためのコードになります。

ListViewの設置方法・使用方法につきましては、エクセル VBA ListViewにドラッグ&ドロップでファイル名・ファイルパス複数の情報を取得（Excel VBA）をご参照ください。

Private Sub UserForm_Initialize()
    Dim m_ct As Integer

    With ListView1
        '■プロパティ設定
        .FullRowSelect = True           '行全体の選択
        .Gridlines = True               '行列グリッド線の表示
        .LabelEdit = lvwManual          'ラベル編集不可
        .OLEDropMode = ccOLEDropManual  'ファイルドロップ処理
        .View = lvwReport               '表示形式

        '■列見出しの名前・列幅の設定
        .ColumnHeaders.Add , "key1", "1列目", 120, lvwColumnLeft
        .ColumnHeaders.Add , "key2", "2列目", 220, lvwColumnLeft
    End With

    With ListView2
        '■プロパティ設定
        .FullRowSelect = True           '行全体の選択
        .Gridlines = True               '行列グリッド線の表示
        .LabelEdit = lvwManual          'ラベル編集不可
        .OLEDropMode = ccOLEDropManual  'ファイルドロップ処理
        .View = lvwReport               '表示形式

        '■列見出しの名前・列幅の設定
        .ColumnHeaders.Add , "key1", "1列目", 120, lvwColumnLeft
        .ColumnHeaders.Add , "key2", "2列目", 220, lvwColumnLeft
    End With
   
    '■リストビューの位置ずれを回避
    For m_ct = 0 To MultiPage1.Count - 1
        MultiPage1.Value = m_ct
    Next m_ct

    MultiPage1.Value = 0    'Page1 を表示
End Sub

■■■スポンサーリンク■■■

原因は「ColumnHeaders.Add」？

この現象が起こる時と、起こらない時があります。
プロパティ設定部分を、コメントブロックして実行してみました。

With ListView1
’   '■プロパティ設定
’    .FullRowSelect = True           '行全体の選択
’    .Gridlines = True               '行列グリッド線の表示
’    .LabelEdit = lvwManual          'ラベル編集不可
’    .OLEDropMode = ccOLEDropManual  'ファイルドロップ処理
’    .View = lvwReport               '表示形式

    '■列見出しの名前・列幅の設定
    .ColumnHeaders.Add , "key1", "1列目", 120, lvwColumnLeft
    .ColumnHeaders.Add , "key2", "2列目", 220, lvwColumnLeft
End With

ListViewの位置は、ずれてしまいました。
プロパティ設定のコードが悪いわけではなさそうです。

逆に列見出しの設定「ColumnHeaders.Add」をコメントブロックして実行してみました。

With ListView1
   '■プロパティ設定
    .FullRowSelect = True           '行全体の選択
    .Gridlines = True               '行列グリッド線の表示
    .LabelEdit = lvwManual          'ラベル編集不可
    .OLEDropMode = ccOLEDropManual  'ファイルドロップ処理
    .View = lvwReport               '表示形式

    '■列見出しの名前・列幅の設定
’    .ColumnHeaders.Add , "key1", "1列目", 120, lvwColumnLeft
’    .ColumnHeaders.Add , "key2", "2列目", 220, lvwColumnLeft
End With

ListViewの位置は、正しい場所に設置されていました。
どうやら悪い現象を起こしているのは「ColumnHeaders.Add」のようです。でも、このコードを削除することはできませんよね・・・。

■■■スポンサーリンク■■■

Initializeで初めに表示されるPageでは正常位置？

もう一つ気になることがありました。

UserForm が Initialize された直後、「Page1」が表示されている時、「ListView1」は正常位置に配置されます。

その後「Page2」に移動すると、「ListView2」の位置がおかしくなっています。

逆に「Page2」が表示されている時、「ListView2」は正常位置に配置されます。

その後「Page1」に移動すると、「ListView1」の位置がおかしくなっています。

いずれも、他の Page をクリックして再度元の Page に戻ると、正常な位置に設置されています。

▼「Page2」をクリックして、「Page1」に戻ると、正しい位置に表示されます。

▼「Page1」をクリックして、「Page2」に戻ると、正しい位置に表示されます。

「一度表示されると正常に表示される」現象を利用して解決

これらの現象を利用して、MultiPageを一通り全て表示させてしまおう！というのが今回の解決策です。
MultiPage は一番左のページを「0」とするので、0から MultiPageの数-1 の数だけPageを表示させていきます。
そして最後に、一番左のページが表示されるようにしておきます。

For m_ct = 0 To MultiPage1.Count - 1
    MultiPage1.Value = m_ct
Next m_ct

MultiPage1.Value = 0    'Page1 を表示

いかがでしょうか。ListView の位置は正しい位置に設置されましたでしょうか。

【参考】

■■■スポンサーリンク■■■