Button.Placement Eigenschaft
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
Ruft ein Objekt ab, das angibt, wie Button an die darunter liegenden Zellen angefügt wird, oder legt dieses Objekt fest.
public:
property System::Object ^ Placement { System::Object ^ get(); void set(System::Object ^ value); };public object Placement { get; set; }member this.Placement : obj with get, setPublic Property Placement As ObjectEigenschaftswert
Einer der folgenden XlPlacement Werte: xlFreeFloating. xlMove. xlMoveAndSize.
Beispiele
Im folgenden Codebeispiel werden einem Arbeitsblatt zwei Button Steuerelemente mit unterschiedlichem Laufzeitverhalten hinzugefügt. Die erste Schaltfläche deckt den Bereich der Zellen B2 bis C3 ab. Wenn der Benutzer die Größe einer Spalte oder Zeile in diesem Bereich zur Laufzeit ändert, ändert die erste Schaltfläche die Größe, um sie an die Änderungen anzupassen. Die zweite Schaltfläche deckt den Bereich der Zellen B5 bis C6 ab, und die Placement Eigenschaft dieser Schaltfläche ist auf xlFreeFloatingfestgelegt. Wenn der Benutzer die Größe einer Spalte oder Zeile in diesem Bereich zur Laufzeit ändert, ändert die zweite Schaltfläche die Größe nicht.
Dieses Beispiel gilt für eine Anpassung auf Dokumentebene.
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