Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
set datalabel font size for all charts in a row
Hi,
This Sub doesn't work (why?) I have a number of chartobjects with different numbers of datalabels and seriecollections. How can I change font size for all charts and datalabels in seriescollections all in a row? Sub SetFonts() Dim chtobj As ChartObjects Dim scol As SeriesCollection Dim dl As DataLabel For Each chtobj In ActiveSheet For Each scol In chtobj For Each dl In scol With dl.Font .Name = "Arial" .FontStyle = "Fet" .Size = 16 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic .Background = xlAutomatic .NumberFormat = "#,##0" .AutoScaleFont = True End With Next Next Next End Sub Kind regards |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
set datalabel font size for all charts in a row
Try the following:
Sub SetFonts() Dim chtobj As ChartObject Dim scol As Series Dim dl As DataLabel For Each chtobj In ActiveSheet.ChartObjects For Each scol In chtobj.Chart.SeriesCollection For Each dl In scol.DataLabels With dl.Font .Name = "Arial" .FontStyle = "Fet" .Size = 16 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic .Background = xlAutomatic End With With dl .NumberFormat = "#,##0" .AutoScaleFont = True End With Next Next Next End Sub -- John Green Sydney Australia "Marie J-son" wrote in message ... Hi, This Sub doesn't work (why?) I have a number of chartobjects with different numbers of datalabels and seriecollections. How can I change font size for all charts and datalabels in seriescollections all in a row? Sub SetFonts() Dim chtobj As ChartObjects Dim scol As SeriesCollection Dim dl As DataLabel For Each chtobj In ActiveSheet For Each scol In chtobj For Each dl In scol With dl.Font .Name = "Arial" .FontStyle = "Fet" .Size = 16 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic .Background = xlAutomatic .NumberFormat = "#,##0" .AutoScaleFont = True End With Next Next Next End Sub Kind regards |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
DataLabel.Font.ColorIndex vs DataLabel.Text (Private Sub does not work in excel 2003) | Charts and Charting in Excel | |||
Combo Box font size in Charts | Charts and Charting in Excel | |||
Font Size for Values in Charts | Charts and Charting in Excel | |||
Charts' titles and labels - Font size | Charts and Charting in Excel | |||
Change datalabel font size for all chartobjects in a row | Charts and Charting in Excel |