How to apply data formatting to a chart

's Computer Specifications

From an earlier posting, I am using this to set the range of a chart.

' >>>>> Set Chart Range Value (Y) Axis <<<<<
With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue)
.MinimumScale = WorksheetFunction.Min(Range("B3:B18"))
.MaximumScale = WorksheetFunction.Max(Range("B3:B18"))
End With

' >>>>> Set Chart Range Value (X) Axis <<<<<
With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlCategory)
.MinimumScale = WorksheetFunction.Min(Range("A3:A18"))
.MaximumScale = WorksheetFunction.Max(Range("A3:A18"))
End With

I would also like to read the formatting of the data and apply that to
the chart. It changes often. Excel 97

Thread Tools
Show Printable Version Email this Page
Rate This Thread
Rate This Thread:

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
cannot apply the default chart type to the selected data	sam	Microsoft Excel Charting	1	12th Oct 2009 01:21 PM
Apply Conditional Formatting If Data in More Than 1 Cell Matches	Maureen	Microsoft Excel Misc	5	5th Mar 2009 03:35 PM
Formatting pivot chart data	=?Utf-8?B?U2VhbiBNY0Nsb3NrZXk=?=	Microsoft Excel Misc	7	27th Apr 2006 10:05 PM
Formatting all data labels on a chart at once	VancitysFinest	Microsoft Excel Discussion	1	9th Feb 2006 11:45 AM
Can I Apply Conditional Formatting to a Chart?	=?Utf-8?B?VGltIFJpY2hhcmRz?=	Microsoft Excel Charting	3	21st Oct 2005 01:56 PM