title image


Smiley Re: Frage zum SHAPE
Danke Dir für die Hilfe, aber geht nicht.

Ich hab mal den ganzen Code hier.



Sub Text()

Dim Text As String

Text = InputBox("Bitte den Text eingeben")

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 54.75, 241.5, _

301.5, 111.75).Select

Selection.Characters.Text = Text

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

.Name = "Times New Roman"

.FontStyle = "Standard"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Selection.ShapeRange.Fill.Visible = msoTrue

Selection.ShapeRange.Fill.Solid

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5

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

ActiveSheet.Shapes(1).TextFrame.AutoSize = True

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: