エクセル棒グラフの例:棒を網掛の表示にしてマクロ記録すると等号無しの例外的な記述になっているようです。(.Fill属性の表現の混在)

With Selection.Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(112, 48, 160)
    .Transparency = 0
    .Patterned msoPattern25Percent
End With

VBAで値を取得・設定するためにはコード中で等号を使うためエラーになります。
解決策をご教示いただけないでしょうか。