AW: Text über Inputbox auf Diagrammblatt
20.07.2005 21:37:01
Richard
Hallo Thomas,
ich dank dir für deine Antwort, es funktioniert super aber über die Inputbox wäre es eleganter, ich hab sowas produziert aber es will niht so richtig, kanns du mir vielleicht dabei helfen?
gruß
richard
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