Dear Sir,
I have querys
1) I have not used Dim Declaration and run below vba it working fine..
is there need to use Dim here?
Dim x As ChartObject
For Each x In ActiveSheet.ChartObjects
x.Activate
x.Chart.ChartTitle.Select
Selection.Format.TextFrame2.TextRange.Font.Name = "Arial"
Thanks a lot Sir...It working Fine
On Wed, Aug 21, 2013 at 1:12 PM, xlstime wrote:
> Try This
>
> Sub Chart_Titles()
>
> Dim ch As ChartObject
>
> For Each ch In ActiveSheet.ChartObjects
>
> ch.Activate
> ch.Chart.ChartTitle.Select
> Selection.Format.TextFrame2.TextRange.Font.
Try This
Sub Chart_Titles()
Dim ch As ChartObject
For Each ch In ActiveSheet.ChartObjects
ch.Activate
ch.Chart.ChartTitle.Select
Selection.Format.TextFrame2.TextRange.Font.Name = "Arial"
Selection.Format.TextFrame2.TextRange.Font.Size = 14
Next
End Sub
Dear All,
Very Good Morning,
I have made 10 charts and now I want to change the Size of Font 14 to 9
for Chart Title.
is it possible to change it through the VBA
for example
For each
For Next
Do until
if yes , Please provide the same
Thanks in Advance
Regards,
Prafull Jadhav.
--
