title image


Smiley Frage zu einem SHAPE, bzw. Textfeld
Mit diesem Code wird der Text über eine Inputbox übergeben.

Das funktioniert wirklich gut.

Aber wenn ich mein Makro zum Löschen aller Zellen aufrufe, bleibt dieses Shape erhalten.

Wie lösche ich das ?

Ich bekomme es einfach nicht hin.



Gruß Achim



----------------------

Sub Text()

Dim Text As String

Text = InputBox("Bitte den Text eingeben")

If Text = "" Then Exit Sub

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 300, _

300, 100).Select

Selection.Characters.Text = Text

With Selection.Font

.Name = "Times New Roman"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.Font.Bold = True

Selection.ShapeRange.Fill.Visible = msoTrue

Selection.ShapeRange.Fill.Solid

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 26

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Line.Weight = 0.75

Selection.ShapeRange.Line.DashStyle = msoLineSolid

Selection.ShapeRange.Line.Style = msoLineSingle

Selection.ShapeRange.Line.Transparency = 0#

Selection.ShapeRange.Line.Visible = msoFalse

Rem Selection.AutoSize = True

End Sub





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: