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

public ShapeRange ShapeRange { get; }

プロパティ値

型 : Microsoft.Office.Interop.Excel.ShapeRange
Button を表す Microsoft.Office.Interop.Excel.ShapeRange オブジェクトです。

例

次のコード例では、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 名前空間