VB MAcro не работает в документе Word 2010

Question

Я использовал приведенный ниже фрагмент кода для вставки графика в Word через макрос VB. Это работало хорошо в старых версиях Word, но в Word 2010 я столкнулся с некоторыми трудностями.

Проблема, которую я обнаружил, при вставке графика, я получаю цвет фона, потому что я использую Fill.Solid

Он не давал никакого цвета фона в Word 2003, но теперь настройки 2010 года изменились.

Может кто-нибудь помочь мне получить альтернативный вариант, чтобы получить белый цвет фона в Word 2010?

Какой вариант я должен использовать для того же?

With Selection.PageSetup
 .LineNumbering.Active = False
 .Orientation = wdOrientLandscape
End With
With ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count)
    .Fill.Visible = msoFalse
    .Fill.Solid
 .Fill.Transparency = 0#
 .Line.Weight = 0.75
 .Line.Transparency = 0#
 .Line.Visible = msoFalse
 .LockAspectRatio = msoTrue
 .Height = 330.85
 .Width = 500.05
 .PictureFormat.Brightness = 0.5
 .PictureFormat.Contrast = 0.5
 .PictureFormat.ColorType = msoPictureAutomatic
 .PictureFormat.CropLeft = 0#
 .PictureFormat.CropRight = 0#
 .PictureFormat.CropTop = 0#
 .PictureFormat.CropBottom = 0#
End With
End Sub