title image


Smiley Re: Frage zum Shape
Hallo



fürs erste reicht das hier:



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.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

With Selection.ShapeRange

.Fill.Visible = msoTrue

.Fill.Solid

.Fill.ForeColor.SchemeColor = 26

.Fill.Transparency = 0#

.Line.Weight = 0.75

.Line.DashStyle = msoLineSolid

.Line.Style = msoLineSingle

.Line.Transparency = 0#

.Line.Visible = msoFalse

End With

'Selection.AutoSize = True

End Sub

Viel Erfolg wünscht Wastl



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: