Word VSTO - заполнение фигуры не работает в Word 2010 и Word 2013?
Я использую следующий код VB.NET (VSTO), чтобы добавить форму в 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")
Этот код делает следующее: он добавляет форму прямоугольника в точке курсора, делает его прозрачным (как фон, так и линию) и добавляет (заполняет) изображение.
Это прекрасно работает вWord 2007, Но наWord 2010 а такжеWord 2013 есть проблема. Он добавляет форму прямоугольника в точке курсора и делает его прозрачным. Но это не заполняет изображение.
shape.Fill.UserPicture("C:\Newfolder\App1.jpg")
Приведенная выше строка кода не работает в Word 2010 и Word 2013. Другие части работают нормально. Как изменить код, чтобы заполнить изображение в форме прямоугольника в Word 2010 и 2013?