Button.ShapeRange 屬性

取得 Microsoft.Office.Interop.Excel.ShapeRange 物件，表示 Button。

命名空間：  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

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 命名空間