autoformen löschen

Sub juhu()
'Text mit Sternen an irgendeine Stelle setzen
Const pi = 3.1416
Dim i As Integer
Dim x As Single, y As Single
Dim z As Single
Dim rng As Range    'Start Position
Dim n As Single     'Zyklische Länge in inch
Dim k As Integer    'k Sterne
Dim sSize As Single 'Stern Größe
Dim sh As Shape
Dim sName As String 'Anzuzeigender Text
Dim StartLeft As Integer
Dim StartTop As Integer
'Start Position
StartLeft = ActiveCell.Left
StartTop = ActiveCell.Top
sName = "J U H U" 'Bitte Text hier einfügen
n = 8
k = Len(sName)
sSize = Application.InchesToPoints(1)
Randomize Timer
z = 0#
'Loop erste Kurve mit Verschiebung
For i = 1 To k
If Mid(sName, i, 1) <> " " Then
x = n * i / k
x = Application.InchesToPoints(x)
'Zufällig 0 oder 1. Hoch oder Runter
If Int(2 * Rnd) = 0 Then
z = z + 0.2
Else
z = z - 0.2
End If
y = Application.InchesToPoints(z)
Set sh = ActiveSheet.Shapes.AddShape _
(msoShape5pointStar, StartLeft + x, StartTop + y, sSize, sSize)
'Schattierung hinzufügen
sh.Fill.ForeColor.RGB = RGB(246, 249, 52)
sh.Fill.Visible = msoTrue
'Text hinzufügen
sh.TextFrame.Characters.text = Mid(sName, i, 1)
sh.TextFrame.Characters.Font.Size = 14
sh.TextFrame.Characters.Font.Name = "arial"
sh.TextFrame.Characters.Font.Bold = True
sh.TextFrame.HorizontalAlignment = xlCenter
sh.TextFrame.VerticalAlignment = xlCenter
End If
Next i
End Sub