Eu uso o seguinte código VB.NET (VSTO) para adicionar uma forma no MS-Word,

Dim app As Word.Application = Globals.ThisAddIn.Application
Dim doc As Word.Document = app.ActiveDocument
Dim left As Single = CSng(Convert.ToDouble(app.Selection.Information(Word.WdInformation.wdHorizontalPositionRelativeToPage)))
Dim top As Single = CSng(Convert.ToDouble(app.Selection.Information(Word.WdInformation.wdVerticalPositionRelativeToPage)))
Dim shape As Word.Shape = doc.Shapes.AddShape(1, left, top, 225.1F, 224.5F)

shape.Fill.BackColor.RGB = ColorTranslator.ToOle(Color.Transparent)
shape.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
shape.Fill.Transparency = 0.0F
shape.Line.Transparency = 0.0F
shape.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
shape.Fill.UserPicture("C:\Newfolder\App1.jpg")

O que esse código faz é: ele adiciona uma forma de retângulo no ponto do cursor, torna-o transparente (em segundo plano e em linha) e adiciona (preenche) uma imagem.

Isso funciona bem emWord 2007. Mas emWord 2010 eWord 2013 existe um problema Ele adiciona a forma do retângulo no ponto do cursor e a torna transparente. Mas não preenche a imagem.

shape.Fill.UserPicture("C:\Newfolder\App1.jpg")

A linha de código acima não funciona no Word 2010 e no Word 2013. Outras partes funcionam bem. Como modificar o código para preencher a imagem na forma de retângulo no Word 2010 e 2013?