Excel 2010 VBAでListViewのSubItemsで、文字色を取得する方法を教えてください。

Question

VBA初心者です。

Excel 2010 でListViewのSubItemsで、文字色を取得する方法を教えてください。

ListView1.ListItems(1).SubItems(1).ForeColor　では取得できないのでしょうか？

どなたか、ご教示のほど、よろしくお願いいたします。

Answer 1

いったんListItemに入れてからだと取り出せるようです。

Dim item As MSComctlLib.ListItem
Set item = ListView1.ListItems(1)

Debug.Print item.ListSubItems(1).ForeColor

'item.ListSubItems(1).ForeColor = RGB(255, 0, 0)
'ListView1.Refresh

---

個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)