Outlookのリストボックスに見出しを付けたい

実現したいこと

発生している問題・分からないこと

Outlookのリストボックスに見出しを付けたいのですが、次のようなエラーメッセージが出ます。

このエラーを回避するにはどのようにしたらいいのか、ご指導お願いします。

該当のソースコード

With ListBox1
    .Clear
    .ColumnHeads = True                   '見出し有
    .ColumnCount = 3                        '表示列数
    .ColumnWidths = "140;150;240"   '列幅
    .TextAlign = fmTextAlignCenter
    .List(0, 0) = "得意先CD"
    .List(0, 1) = "得意先名"
    .List(0, 2) = "ファイル名"
End With

試したこと・調べたこと

teratailやGoogle等で検索した
ソースコードを自分なりに変更した
知人に聞いた
その他

上記の詳細・結果

インターネットでヒットしたコメントを試したのですが、どれを試しても解決しませんでした。

補足

環境
Windows 11 Pro
Microsoft Outlook 2013

YellowGreen

2024/07/22 10:08 編集

> どれを試しても解決しません... ネットで検索すると出てきますが、 .List(0, 0) = "得意先CD" の前に、 .AddItem "" などは試してみましたか？

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

回答1件

ベストアンサー

ListBox.ColumnHeads プロパティ (Outlook フォームスクリプト) | Microsoft Learn
注釈
列見出しを表示する場合は True に設定し、それ以外の場合は False (既定値) に設定します。

このプロパティを True に設定すると、列見出しとして空白行が表示されます。ただし、現時点では、列見出しのテキストを指定することはできません。

上記のMSの公式ドキュメントによるとOutlookのリストボックスでは列見出しを設定できないということです。

エクセルでは、RowSourceプロパティでセル範囲を指定したときのみ、列見出しを表示させることができますが。
ColumnHeadsプロパティを「True」にしているのに、列見出しが表示されない理由

対処法としては、下記のような代案が考えられます。

ColumnHeads = Falseにして1行目にデータとしては見出しを表示させる。
ただし、選択することができてしまうので、1行目を選択したらVBAで2行目を選択するような処理を追加する必要がある。

あるいは、リストボックスの代わりにListViewコントロールを使う。

Office TANAKA - ListViewコントロールの使い方[列見出しの設定]

投稿2024/07/22 12:27

hatena19

総合スコア34352

sake

2024/07/22 16:33

> 上記のMSの公式ドキュメントによるとOutlookのリストボックスでは > 列見出しを設定できないということです。検索途中に見たよううな気がします。そういうことなんでしたね。 OutlookにはListViewコントロールが無いので、ご提案のように１行目を選べないようにします。ありがとうございました。

hatena19

2024/07/23 00:56

> OutlookにはListViewコントロールが無いので、ご提案のように１行目を選べないようにします。リストはユーザーフォーム上に表示させたいのですよね。ならば、ListViewコントロールはOutlookでも利用できます。ただし、標準ではないので下記を参考に組み込んでください。 Office TANAKA - ListViewコントロールの使い方[ListViewコントロールの組み込み] http://officetanaka.net/excel/vba/listview/01.htm

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