title image


Smiley Frage zum Shape
Über ein INPUT gebe ich Text in ein Shape.

Ich habe am Ende meines Makros habe ich noch den Befehl AutoSize eingeben.

Das funktioniert gut.



Leider hat die Sache einen Nachteil. Jetzt wird das Shape einzeilig und hat keinen Zeilenumbruch.

Kann ich hier irgendwo einen Befehl eingeben, der z.B. nach 40 Zeichen pro Zeile, einen Zeilenumbruch auslöst?

Hier mein Code:

Gruß Achim



Sub Text()

Dim Text As String

Text = InputBox("Bitte den Text eingeben")

If Text = "" Then Exit Sub

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

300, 100).Select

Selection.Characters.Text = Text

With Selection.Characters(Start:=1, Length:=4).Font

.Name = "Times New Roman"

.FontStyle = "Standard"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

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

Selection.AutoSize = True

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: