Question

我使用以下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中修改代码以填充矩形形状的图像？

Answer 1

而不是shape.Fill.UserPicture("C:\Newfolder\App1.jpg")尝试

    Word.Range range = shape1.TextFrame.TextRange;
    range.InlineShapes.AddPicture(@"C:\Newfolder\App1.jpg", false, true, Type.Missing);

Word VSTO - 填充形状在Word 2010和Word 2013中不起作用？

1 个答案: