money management - Stridsman

["Walter Lake" <wlake@xxxxxxxxx>]

Thanks for your email

Those are TextBoxes on the side of his charts. They were probably entered
manually.

If you want to use VBA to create them, here's some code you can adapt. Just
stack it up for all the TextBoxes that you want.

Alignment will have to be played with. Linkage to import info from a cell in
the data sheets may be more intersting to code.

Best regards

Walter

===============================
Sub AddTextBox()

    ActiveChart.Shapes.AddShape(msoShapeRectangle, 537.7, 93.65, 137.3,
41.08).Select
    Selection.Characters.Text = "This is a TextBox"
    Selection.AutoScaleFont = False
    With Selection.Characters(Start:=1, Length:=18).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 10
    End With
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 47
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    ActiveWorkbook.Save
End Sub