Rechteck Form, ActiveCell.Top
01.07.2019 09:39:43
Leon.DerProf
Gibt es einen Befehl, um das Rechteck unten an der Zelle zu positionieren?
Ich habe gesucht und nichts gefunden, kapituliere. Ein Link würde mir auch reichen.
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, _
ActiveCell.Height, ActiveCell.Height / 2)
sh.Select
With Selection
.Characters.Text = fte & " FTE"
.Placement = xlMoveAndSize
.name = "ZeitTeil " & festNr
End With
Set rng = Worksheets("Balkenplan").Range(Cells(findenNr.Row, findenstart.Column).Address)
Set shp = Worksheets("Balkenplan").Shapes("ZeitTeil " & festNr)
shp.Left = rng.Left
shp.Top = rng.Top
shp.Width = Range(findenstart.Address, findenende.Address).Width
Ich habe es bereits damit probiert:
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top + 40, ActiveCell.Height, ActiveCell.Height / 2)
Oder Active.Cell mit -1 multiplizieren oder sonstige Rechenoperationen. Diese Methoden sind aber nicht zielführend, da sie mehr Chaos verursachen.Ich habe es mit ActiveCell.Down oder Bottom versucht, wo finde ich den verflixten Befehl :D