Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change datalabel font size for all chartobjects in a row
Hi,
John or any other, This is a sub for changing all datalabel font sizes in all chartobjects in a worksheet. I get error like "Size method not allowed by Font object" for this code. Can sombodey help me? /Regards ----- "John Green" skrev i meddelandet ... Try the following: Sub SetFonts() Application.EnableEvents = False Application.ScreenUpdating = False 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 = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 .Background = xlTransparent End With With dl .NumberFormat = "#,##0" .AutoScaleFont = True End With Next Next Next Application.EnableEvents = True Application.ScreenUpdating = True 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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Further info: Loop never leave first chartobject...
Further information:
I put a msgbox the line before "With dl.Font" to tell the name of the activeChart and then I see that the loop never leave the first activechart... /regards "Marie J-son" skrev i meddelandet ... Hi, John or any other, This is a sub for changing all datalabel font sizes in all chartobjects in a worksheet. I get error like "Size method not allowed by Font object" for this code. Can sombodey help me? /Regards ----- "John Green" skrev i meddelandet ... Try the following: Sub SetFonts() Application.EnableEvents = False Application.ScreenUpdating = False 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 = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 .Background = xlTransparent End With With dl .NumberFormat = "#,##0" .AutoScaleFont = True End With Next Next Next Application.EnableEvents = True Application.ScreenUpdating = True 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change datalabel font size for all chartobjects in a row
Got some answer on this in the excel.charting group
/ "Marie J-son" skrev i meddelandet ... Hi, John or any other, This is a sub for changing all datalabel font sizes in all chartobjects in a worksheet. I get error like "Size method not allowed by Font object" for this code. Can sombodey help me? /Regards ----- "John Green" skrev i meddelandet ... Try the following: Sub SetFonts() Application.EnableEvents = False Application.ScreenUpdating = False 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 = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 .Background = xlTransparent End With With dl .NumberFormat = "#,##0" .AutoScaleFont = True End With Next Next Next Application.EnableEvents = True Application.ScreenUpdating = True 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 | |||
change font size on screen, but prints in old size | Excel Discussion (Misc queries) | |||
Change all text one font size up with various font sizes used. | New Users to Excel | |||
Change datalabel font size for all chartobjects in a row | Charts and Charting in Excel | |||
set datalabel font size for all charts in a row | Excel Programming |