Leider immer noch dyn. Diagrammbeschriftung
27.12.2004 16:05:07
Flip
bin heute glaube ich zu doof für Excel!! Bräucht noch ein wenig mehr Hilfe!!
Danke nochmals ransi, aber irgendwie läuft das bei mir nicht so recht!!
Also folgender Code per Rekorder aufgezeichnet:
Sub Makro2()
ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 5.83, 344.81, _
248.3, 77.46).Select
Selection.Characters.Text = "Jetzt muss es klappen!!!: V1"
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=35).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveChart.ChartArea.Select
End Sub
Der Code erzeugt ein Kästchen in einem Diagramm/auf einer Diagrammseite!!
V1 ist eine Variable mit 1 bis 5 Ziffern. Der Abstand von : bis zum Ende von V1 soll immer 10 Zellenabstände betragen...d.h. die Leerzellen variieren mit der Lände von V1!!
Ein Ansatzversuch war über
Selection.Characters.Text = "Jetzt muss es klappen:" & WorksheetFunktion.Rept(" ", 10-Len([V1])) & V1
funktioniert aber nicht so recht!!
Tausend Dank für eure Hilfe!!!!
Hoffentlich zum letzten mal wünsche ich euch ein frohes neues Jahr!!!
Flip