通过

Button.ShapeRange 属性

  • 项目

获取一个表示 Button 的 Microsoft.Office.Interop.Excel.ShapeRange 对象。

命名空间：  Microsoft.Office.Tools.Excel.Controls
程序集：  Microsoft.Office.Tools.Excel.v4.0.Utilities（在 Microsoft.Office.Tools.Excel.v4.0.Utilities.dll 中）

语法

声明
Public ReadOnly Property ShapeRange As ShapeRange
    Get

public ShapeRange ShapeRange { get; }

属性值

类型：Microsoft.Office.Interop.Excel.ShapeRange
一个 Microsoft.Office.Interop.Excel.ShapeRange 对象，表示 Button。

示例

下面的代码示例向当前工作表中添加一个 Button 控件。 该按钮的 Click 事件处理程序使用 ShapeRange 属性获取按钮的 Microsoft.Office.Interop.Excel.ShapeRange，然后将该 Microsoft.Office.Interop.Excel.ShapeRange 的宽度增加 10 磅。 虽然该事件处理程序只调整按钮的宽度，但高度也会自动更改以保持此控件的原始比例。

此示例针对的是文档级自定义项。

Private Sub UseShapeRange()
    Dim GrowingButton As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("B2", "C3"), "GrowingButton")
    GrowingButton.Text = "Click to grow button"
    AddHandler GrowingButton.Click, AddressOf GrowingButton_Click
End Sub

Private Sub GrowingButton_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim ClickedButton As Microsoft.Office.Tools.Excel.Controls.Button = _
        CType(sender, Microsoft.Office.Tools.Excel.Controls.Button)

    ClickedButton.ShapeRange.Width += 10
End Sub

private void UseShapeRange()
{
    Microsoft.Office.Tools.Excel.Controls.Button growingButton =
        this.Controls.AddButton(this.Range["B2", "C3"],
        "growingButton");
    growingButton.Text = "Click to grow button";
    growingButton.Click +=
        new EventHandler(growingButton_Click);
}

void growingButton_Click(object sender, EventArgs e)
{
    Microsoft.Office.Tools.Excel.Controls.Button clickedButton =
        (Microsoft.Office.Tools.Excel.Controls.Button)sender;

    clickedButton.ShapeRange.Width += 10;
}

.NET Framework 安全性

请参见

参考

Button 类

Microsoft.Office.Tools.Excel.Controls 命名空间