ControlCollection.GetInlineShapeForControl 方法

获取指定控件的基础 InlineShape。

命名空间：  Microsoft.Office.Tools.Word
程序集：  Microsoft.Office.Tools.Word（在 Microsoft.Office.Tools.Word.dll 中）

语法

声明
Function GetInlineShapeForControl ( _
    control As Control _
) As InlineShape

InlineShape GetInlineShapeForControl(
    Control control
)

参数

• control
  类型：System.Windows.Forms.Control
  希望从中获得 InlineShape 的 ControlCollection 实例中的控件。

返回值

类型：Microsoft.Office.Interop.Word.InlineShape
指定控件的基础 InlineShape。

备注

如果控件的换行样式没有设置为**“嵌入型”**，则 GetInlineShapeForControl 方法返回 nullnull 引用（在 Visual Basic 中为 Nothing）。

示例

下面的代码示例向文档中添加一个 Button，以便将其换行样式设为嵌入型。 然后，代码调用 GetInlineShapeForControl 方法从其基础 InlineShape 中获得控件的位置。

Private Sub WordGetInlineShape()
    Dim testButton As Microsoft.Office.Tools.Word.Controls.Button = _
        Me.Controls.AddButton(Me.Paragraphs(1).Range, 50, 25, "testButton")

    Dim buttonShape As Microsoft.Office.Interop.Word.InlineShape = _
            Me.Controls.GetInlineShapeForControl(testButton)

    If buttonShape IsNot Nothing Then
        MessageBox.Show("The following properties can be cached in the" & _
            vbCrLf & "document to enable you to recreate the control:" _
            & vbCrLf & vbCrLf & "Range: position " & _
            buttonShape.Range.Start.ToString _
            & " through " & buttonShape.Range.End.ToString _
            & vbCrLf & "Width: " & buttonShape.Width.ToString _
            & vbCrLf & "Height: " & buttonShape.Height.ToString)
    End If
End Sub

private void WordGetInlineShape()
{
    Microsoft.Office.Tools.Word.Controls.Button testButton =
        this.Controls.AddButton(this.Paragraphs[1].Range, 50, 25,
        "testButton");

    Microsoft.Office.Interop.Word.InlineShape buttonShape =
        this.Controls.GetInlineShapeForControl(testButton);

    if (buttonShape != null)
    {
        MessageBox.Show("The following properties can be cached in the" +
            "\n" + "document to enable you to recreate the control:"
            + "\n\n" + "Range: position " + buttonShape.Range.Start.
            ToString() + "through " + buttonShape.Range.End.ToString()
            + "\n" + "Width: " + buttonShape.Width.ToString() + "\n" +
            "Height: " + buttonShape.Height.ToString());
    }
}

.NET Framework 安全性

• 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。

请参见

参考

ControlCollection 接口

Microsoft.Office.Tools.Word 命名空间