Option Explicit
Sub Makro()
Dim rngAnchor As Excel.Range
Dim shpTextBox As Excel.Shape
Dim sngTxtWidth As Single
Dim sngTxtHeight As Single
Set rngAnchor = ActiveCell
sngTxtWidth = Application.CentimetersToPoints(5)
sngTxtHeight = Application.CentimetersToPoints(2)
Set shpTextBox = rngAnchor.Worksheet.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=rngAnchor.Left, _
Top:=rngAnchor.Top, _
Width:=sngTxtWidth, _
Height:=sngTxtHeight)
With shpTextBox
.Placement = xlMove
With .TextFrame2
.HorizontalAnchor = msoAnchorCenter
.VerticalAnchor = msoAnchorMiddle
.TextRange.Font.Size = 16
.TextRange.Text = "So wirds gemacht."
End With
End With
End Sub