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

【问题标题】：Word VSTO - Change the absolute positions' type?Word VSTO - 更改绝对位置的类型？
【发布时间】：2015-07-28 16:34:56
【问题描述】：

我使用以下 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

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

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

它将打开以下对话框，

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

【问题讨论】：

标签： vb.net ms-word position vsto shape

【解决方案1】：

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

【讨论】：

我试过这个方法。但是当我开始录制宏时，它并没有选择形状对象。
在录制宏时，位置按钮也被禁用。