Wordオブジェクトでセルの色を変更する方法

解決

---

VB6.0
SP6
WindowsXP
Word9.0 ObjectLibrary

出力結果として、ワードファイルに、35行2列のセルを作り、
そのセルにデータを入力したものを印刷するソフトを作成しています。

決まったセルに色を付けたいのですが、方法がわかりません。
テーブルへの文字の記入は下記の方法を使っています。
よろしくお願い致します。


  Public m_WordApp As Object
  Public m_WordDoc As Object

----------------------------(抜粋)

  Set m_WordApp = CreateObject("Word.Application")
  Set m_WordDoc = m_WordApp.Documents.Add

    With m_WordDoc.Tables(TblNo)
      ' Insert the data into the specific cell.
      .Cell(Row, Col).Range.InsertAfter Text
    End With

編集 削除

---

たとえば
> .Cell(Row, Col).Range.InsertAfter Text
.Cell(Row, Col).Shading.BackgroundPatternColor = wdColorYellow
とか。

編集 削除

---

魔界の仮面弁士さん

おかげさまで、セルに色が付きました。
ありがとうございます。
また何かありましたらよろしくお願い致します。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。