Setting Font Size in a macro.

[ianb]

Hi,


I would lke to set all my pivot table data tabvles to the same font size.


Do you know how to do this.


At present I have this for my charts ........


Sub ChartTitles()


Dim ws As Worksheet

Dim ch As ChartObject


For Each ws In Worksheets

For Each ch In ws.ChartObjects


ch.Activate

ActiveChart.ClearToMatchStyle

ActiveChart.ChartStyle = 18

ActiveChart.ClearToMatchStyle

Next ch

Next ws


'Font Size and Colour in Charts


'Dim ws As Worksheet

'Dim ch As ChartObject


Dim Fnt As String

Dim FntSz As Double

Dim FntR As Integer

Dim FntG As Integer

Dim FntB As Integer


Fnt = "Rockwell (Body)" 'Set Font type

FntSz = 14 'Set Font Size


'Black Text


FntR = 0 'Set Font Color Red

FntG = 0 'Set Font Color Green

FntB = 0 'Set Font Color Blue


For Each ws In Worksheets

For Each ch In ws.ChartObjects


ch.Activate

ch.Chart.ChartTitle.Select

Selection.Format.TextFrame2.TextRange.Font.Name = Fnt

Selection.Format.TextFrame2.TextRange.Font.Size = FntSz

With Selection.Format.TextFrame2.TextRange.Font.Fill

.ForeColor.RGB = RGB(FntR, FntG, FntB)

.Transparency = 0

.Solid

Application.GoTo Range("a1")

End With

Next ch

Next ws


End Sub

 

[ianb]

Also The charts are Pivot Chart and Charts. I would like to change all from 10 to 8 in font size.


Many Thanks... Recording a macro does not show me the information what I need.