Word VSTO - 更改绝对位置的类型？

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

这段代码所做的是，它在光标点处添加了一个矩形并使其透明（背景和线条）。

现在我想改变绝对位置的类型。进一步解释，当您 select 矩形形状时，如果您 select 功能区选项卡 格式 > 位置 > 更多布局选项... 中所示下图，

它将打开以下对话框，

在上面的对话框中，我想将红色矩形标记的 Column 和 Paragraph 更改为 Margin 类型。如何通过代码做到这一点？

Answer 1

Word 提供了一个宏记录器。您可以使用它来获取在后台为您生成的代码。因此，您会发现应该使用哪些属性和方法来完成工作。有关详细信息，请参阅 Record or run a macro。

Answer 2

下面的link解决了这个问题，

https://social.msdn.microsoft.com/Forums/vstudio/en-US/e69584d7-24fe-4396-9a82-26b7dae02584/word-vsto-change-the-absolute-positions-type?forum=vsto

Word VSTO - 更改绝对位置的类型？

Word VSTO - Change the absolute positions' type?

vb.net

vsto

position

ms-word

shape