VBA リストボックス水平スクロールバー

Question

リストボックス複数列(2列)の下に水平スクロールバーを１つつけたいのですが下記のコードで上手くいきませんでした。
HorizontalScrollbarプロパティをTrueにすればできると思ったのですが

Private Sub btn_FileOpen_Click()
   Dim OpenFileName As Variant, Target As Variant
   'カレントディレクトリを指定
   ChDrive "C"
   ChDir "C:\test"
   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                              MultiSelect:=True)
   If IsArray(OpenFileName) Then
       With Me.BookInput
'リストボックスにファイル名を表示
           For Each Target In OpenFileName
               .AddItem Mid(Target,InstrRev(Target,"\")+1)
               Pathname = Replace(Target, Filename, "")
               .AddItem ""
               
BookInput.HorizontalScrollbar = True
.List(BookInput.ListCount - 1, 0) = Filename
               .List(BookInput.ListCount - 1, 1) = Pathname
           Next Target
       End with
   Else
       MsgBox "キャンセルされました"
   End If
End Sub

Answer 1

ColumnWidths プロパティで列幅を、各列のデータ長に合わせて、設定してください。

列幅の合計がリストボックスの幅より大きくなれば水平スクロールバーが表示されます。

'　　　　　　　略

        With Me.BookInput
            .ColumnWidths = "200;500"

'　　　　　　　略

数値はいろいろ変更しながら、データが表示できるように調節してください。

Comments

[退会済みユーザー]

hatena19さん〉
回答ありがとうございます
解決しました。