vba listviewにおけるtextのAlingmentを中央にしたい

こんにちは、いつもお世話になります

今、月単位で処理行うプログラムを作成しています
複数の月を選択するときに便利なのでListviewを使っています

縦に細長いListviewなので
月の文字を中央に置きたいと思っています。
やり方がわかりましたら教えて貰えますか？

今のプログラムステートメントは
With ListView3
.View = lvwReport
.LabelEdit = lvwManual
.HideSelection = False
.AllowColumnReorder = True
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add , "_Month", "月", 48
End With

For i = 1 To 12
ListView3.ListItems.Add Text:=CStr(i) & "月"
ListView3.ListItems(i).Selected = False
Next i

以上、よろしくお願いいたします。

No.1 ベストアンサー 回答者： rukaandkaito 回答日時： 2019/06/25 13:06

.AlignmentのプロパティにlvwColumnCenterを設定すればいけると思います

この回答へのお礼

ありがとうございます

HeaderのAlignmentを設定したらtextもセンタになりました
ただしsubitemでないとダメみたいですが

.ColumnHeaders.Add , "_Month", "月", 48, lvwColumnCenter

お礼日時：2019/06/25 14:03