Form halb so dick.
24.06.2019 17:23:00
Leon.DerProf
Ich passe eine Form an die Zelle an.
Weiß jemand, wie ich diese Form halb so dick mache?
Die Lange ist okay, aber die Dicke oder Höhe soll halb so viel sein.
Dim sh As Shape
Dim rng As Excel.Range
Dim shp As Excel.Shape
Set sh = ActiveSheet.Shapes.AddShape(msoShapePentagon, ActiveCell.Left, ActiveCell.Top, _
ActiveCell.Height, ActiveCell.Height)
sh.Select
With Selection
.Characters.Text = "Kommentar"
.Placement = xlMoveAndSize
End With
Set rng = Worksheets("Hallo").Range("C6")
Set shp = Worksheets("Hallo").Shapes(1)
shp.Left = rng.Left
shp.Top = rng.Top
shp.Width = Range("C6:G6").Width