Tearing hair out time again!
This problem is in Excel 97 and vba code
With a workbook linked to several data sources that change values i have graphs. Despite setting them not to do so (chart formats) they seem to resize. So I've put the control of formatting in code to set all chartobjects to not autoscale fonts and make placement = xlmove. So, After I assemble each data set I run code as follows for each graph.
Why do the graphs change size still (slightly) and some require individual size settings? I wish all my graphs to appear the same plot area size, text and text positioning.
Many thanks in advance
Alex
'chrtopappts
ActiveSheet.ChartObjects("chrtopappts").Activate
x = 335
y = 190
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("chrtopappts").Width = x
ActiveSheet.ChartObjects("chrtopappts").Height = y
ActiveChart.PlotArea.Select
Selection.Top = 20
Selection.Height = 150
Selection.Left = 40
Selection.Width = 290
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Top = 42
Selection.Left = 0
This problem is in Excel 97 and vba code
With a workbook linked to several data sources that change values i have graphs. Despite setting them not to do so (chart formats) they seem to resize. So I've put the control of formatting in code to set all chartobjects to not autoscale fonts and make placement = xlmove. So, After I assemble each data set I run code as follows for each graph.
Why do the graphs change size still (slightly) and some require individual size settings? I wish all my graphs to appear the same plot area size, text and text positioning.
Many thanks in advance
Alex
'chrtopappts
ActiveSheet.ChartObjects("chrtopappts").Activate
x = 335
y = 190
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("chrtopappts").Width = x
ActiveSheet.ChartObjects("chrtopappts").Height = y
ActiveChart.PlotArea.Select
Selection.Top = 20
Selection.Height = 150
Selection.Left = 40
Selection.Width = 290
ActiveChart.Axes(xlValue).AxisTitle.Select
Selection.Top = 42
Selection.Left = 0