Поделиться через


ControlCollection.GetShapeForControl Метод (2007 System)

Обновлен: Ноябрь 2007

Возвращает основной объект Shape для указанного элемента управления.

Пространство имен:  Microsoft.Office.Tools.Word
Сборка:  Microsoft.Office.Tools.Word.v9.0 (в Microsoft.Office.Tools.Word.v9.0.dll)

Синтаксис

'Декларация
Public Function GetShapeForControl ( _
    control As Control _
) As Shape
'Применение
Dim instance As ControlCollection
Dim control As Control
Dim returnValue As Shape

returnValue = instance.GetShapeForControl(control)
public Shape GetShapeForControl(
    Control control
)

Параметры

Возвращаемое значение

Тип: Microsoft.Office.Interop.Word.Shape
Основной объект Shape для указанного элемента управления.

Заметки

Если стилю обтекания для элемента управления присвоено значение В тексте, метод GetShapeForControl возвращает значение nullссылка null (Nothing в Visual Basic).

Примеры

В приведенном ниже примере кода в документа добавляется элемент управления Button, после чего с помощью метода GetShapeForControl определяется местоположение элемента управления из объекта Shape.

Private Sub WordGetShape()
    Dim testButton As Microsoft.Office.Tools.Word.Controls.Button = _
        Me.Controls.AddButton(10, 10, 50, 25, "testButton")

    Dim buttonShape As Microsoft.Office.Interop.Word.Shape = _
            Me.Controls.GetShapeForControl(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 & "Height: " & buttonShape.Height _
            & vbCrLf & "Width: " & buttonShape.Width _
            & vbCrLf & "Top: " & buttonShape.Top _
            & vbCrLf & "Left: " & buttonShape.Left)
    End If
End Sub
private void WordGetShape()
{
    Microsoft.Office.Tools.Word.Controls.Button testButton =
        this.Controls.AddButton(10, 10, 50, 25, "testButton");

    Microsoft.Office.Interop.Word.Shape buttonShape =
        this.Controls.GetShapeForControl(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" + "Height: " + buttonShape.Height.ToString() +
            "\n" + "Width: " + buttonShape.Width.ToString() + "\n" +
            "Top: " + buttonShape.Top.ToString() + "\n" +
            "Left: " + buttonShape.Left.ToString());
    }
}

Разрешения

См. также

Ссылки

ControlCollection Класс

ControlCollection - члены

Microsoft.Office.Tools.Word - пространство имен