Größe und Position Groupbox
09.04.2014 08:50:38
Peter
ich möchte in einem vorhandenen Excel Sheets alle Gruppenfelder normieren.
Anforderungen an die GroupBoxes:
1. Sie sollen alle an der oberen linken Exke der Zelle platziert werden, in der sie ihre eigene obere linke Ecke haben. Das funktioniert.
2. Die Höhe soll der Zeilenhöhe entsprechen. Auch das funktioniert.
3. Die Breite soll an die Spaltenbreite angepasst werden. Funktioniert.
4. Wenn sich die Box über mehrer Zellen erstreckt, soll die untere rechte Ecke der Box auf der unteren rechten Ecke der letzten Zelle liegen. DAS bekomme ich nicht hin.
Sub Gruppenfeld()
Dim grpElement As GroupBox
For Each grpElement In ActiveSheet.GroupBoxes
With grpElement
.Visible = msoTrue
.Top = Rows(.TopLeftCell.Row).Top
.Left = Columns(.TopLeftCell.Column).Left
.Height = Rows(.TopLeftCell.Row).Height
.Width = Columns(.BottomRightCell.Column).Width 'hier muss die untere rechte Ecke _
ermittelt werden!
.Placement = xlMove
End With
Next
End Sub