Sub Textfeld()
Dim text As String
Dim ch As Chart
text = InputBox _
("Geben Sie den Text ein")
'besser wäre hier, wenn ich die Zelle markiere und die dann über die Inputbox ausgegeben wird
ch.Shapes.AddTextbox(msoTextOrientationHorizontal, 500, 6, 8, 20).Select
With Selection
.Characters.text = text
.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=15).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
.ColorIndex = xlAutomatic
End With
End With
End Sub
Sub textbox()
Dim text As String
text = InputBox("Zelle auswehlen")
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 489.75, 130.5, _
24.75, 20.25).Select
Selection.Characters.text = ""
With Selection
.AutoSize = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Formula = text
End Sub
Sub Textfeld()
Dim txt As String
On Error Resume Next
txt = Application.InputBox("Zelle auswehlen!", Type:=8)
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 600, 30, 150, 15).Select
Selection.Characters.text = ""
With Selection
.AutoSize = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
.ColorIndex = xlAutomatic
End With
Selection.text = txt
ActiveChart.Deselect
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen