Show pageOld revisionsBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. ====== Charts ====== ===== programmatically update a chart title ===== <code vb> Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ' update the chart title Dim currAvg As Integer currAvg = Application.WorksheetFunction.Floor(Worksheets("Data").Range("G21").Value, 1) With Chart1 .HasTitle = True ' vbNewLine is a line break, appropriate for the current platform .ChartTitle.Text = "Tri-City Bowl - Pinbreakers League" _ & vbNewLine _ & "Bill Hartung" _ & vbNewLine _ & "Average: " _ & currAvg End With End Sub </code> docs/programming/office_vba/charts.txt Last modified: 2008/08/03 00:25by 127.0.0.1