title: Word VSTO - Filling a shape does not work in Word 2010 and Word 2013?
body: <p>I use the following VB.NET (VSTO) code to add a shape in MS-Word,</p>
  
  <pre><code>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")
  </code></pre>
  
  <p>What this code does is, it adds a rectangle shape at cursor point, makes it transparent (both background and line) and adds (fills) an image.</p>
  
  <p>This works fine in <strong>Word 2007</strong>. But on <strong>Word 2010</strong> and <strong>Word 2013</strong> there is an issue. It adds the rectangle shape at cursor point and makes it transparent. But it does not fill the image.</p>
  
  <pre><code>shape.Fill.UserPicture("C:\Newfolder\App1.jpg")
  </code></pre>
  
  <p>The above line of code does not work in Word 2010 and Word 2013. Other parts works fine. How to modify the code to fill the image in the rectangle shape in Word 2010 and 2013?</p>