Button.Placement Vlastnost

Definice

Obor názvů:

Microsoft.Office.Tools.Excel.Controls

Sestavení:

Microsoft.Office.Tools.Excel.v4.0.Utilities.dll

Získá nebo nastaví objekt, který označuje způsob, jakým Button je připojen k buňkám pod ním.

public:
 property System::Object ^ Placement { System::Object ^ get(); void set(System::Object ^ value); };

public object Placement { get; set; }

member this.Placement : obj with get, set

Public Property Placement As Object

Hodnota vlastnosti

Object

Jedna z následujících XlPlacement hodnot: xlFreeFloating. xlMove. xlMoveAndSize.

Příklady

Následující příklad kódu přidá do listu dva Button ovládací prvky, které mají odlišné chování za běhu. První tlačítko zobrazuje oblast buněk B2 až C3. Když uživatel změní velikost sloupce nebo řádku v tomto rozsahu za běhu, změní se velikost prvního tlačítka tak, aby se změny přizpůsobily. Druhé tlačítko pokrývá oblast buněk B5 až C6 a Placement vlastnost tohoto tlačítka je nastavená na xlFreeFloating. Když uživatel změní velikost sloupce nebo řádku v tomto rozsahu za běhu, druhé tlačítko nezmění velikost.

Tento příklad je pro přizpůsobení na úrovni dokumentu.

private void ComparePlacementBehavior()
{
    Microsoft.Office.Tools.Excel.Controls.Button cellButton =
        this.Controls.AddButton(this.Range["B2", "C3"],
        "cellButton");
    cellButton.Text = "Resizes with cells";

    Microsoft.Office.Tools.Excel.Controls.Button fixedButton =
        this.Controls.AddButton(this.Range["B5", "C6"],
        "fixedButton");
    fixedButton.Text = "Does not resize";
    fixedButton.Placement = Excel.XlPlacement.xlFreeFloating;
}

Private Sub ComparePlacementBehavior()

    Dim CellButton As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("B2", "C3"), "CellButton")
    CellButton.Text = "Resizes with cells"

    Dim FixedButton As Microsoft.Office.Tools.Excel.Controls.Button = _
        Me.Controls.AddButton(Me.Range("B5", "C6"), "FixedButton")
    FixedButton.Text = "Does not resize"
    FixedButton.Placement = Excel.XlPlacement.xlFreeFloating
End Sub