With exsh.Shapes.AddTextbox( _
  Microsoft.Office.Core.MsoTextOrientation.msoTextOrientationHorizontal, 2 * _
  breite, höhe * breite, 15 * breite, 1 * breite)
            .TextFrame.Characters.Text = dtmem.Rows(0).Item(0).ToString
            .TextFrame.Characters.Font.Size = 24
            .TextFrame.Characters.Font.Bold = True
            .TextFrame.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
            .TextFrame.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
            .Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
        End With