1. I am trying to format chart's fonts and insert Label.

When I recorded macro it records fine but does not show the code behind hence not working. I successfully tried to change the Axis and legend font but unable to change the title font. HEre is the code I used for the legend and axis. All help in setting the Charttitle font will be appreciated.

ActiveChart.Axes(xlCategory).Select
With Selection.TickLabels.font
.Size = 12
' .Bold = False
.Name = "Cambria"
End With

With ActiveChart.Axes(xlValue).AxisTitle


.font.Name = "Cambria"
.font.Size = 12
End With

I need to set the Chart Title as Cambria Font as well.


2. Also I recorded the data Label - i.e. Chose the option Add Data label to the chart but doesnt work. How Do I add the Data label into the chart and drag them into the top of my bar (I want to place them on top of bar and change color to white) I cant seem to see how to get this done. I appreciate your assisting me. THanks.