ID: Q185306
The information in this article applies to:
Microsoft Excel 98 includes many new built-in chart types, including cone and pyramid charts. By default, these chart types contain cones or pyramids that taper to a point for each data point in a series; the height for each cone or pyramid is equal to the value of the data point.
You can change the shape of the cones or pyramids for a series so that it tapers to the value of the largest data point in all the chart series. With this shape, all cones or pyramids for the series are the same, but they are truncated according to the values of the data points. Note that you cannot manually change the cones or pyramids for all of the series in a chart at one time. You must change the shape of the cones or pyramids for each series separately (one series at a time). To change the cones or pyramids for all the series at one time, you must use a Visual Basic for Applications macro.
This article contains a sample macro that modifies all the series in a chart to the same shape.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact the Microsoft fee-based consulting line at (800) 936-5200. For more information about the support options available from Microsoft, please see the following page on the World Wide Web:
http://www.microsoft.com/support/supportnet/refguide/
Before you use the sample macro, create a chart to modify. To do this, use the following steps:
1. Save and close all open workbooks, and then create a new workbook.
2. In Sheet1 of the new workbook, type the following data:
A1: a B1: 1 C1: 3 D1: 2
A3: b B2: 4 C2: 2 D2: 1
A3: c B3: 5 C3: 1 D3: 3
4. In step 1 of the Chart Wizard, click Cone in the Chart Type list.
5. Under Chart Sub-type, click the sample chart in the third row of types
and click Finish.
NOTE: The cones for each data point taper to a point.
1. Start the Visual Basic Editor (press OPTION+F11).
2. On the Insert menu, click Module.
3. Type the following code in the module:
Sub Change_Chart_Shapes()
Dim x As Chart
Dim y As Series
' x is the Chart object.
Set x = ActiveSheet.ChartObjects(1).Chart
' Loop through all the chart series.
For Each y In x.SeriesCollection
' Set the series chart subtype.
y.BarShape = xlConeToMax
Next
End Sub
5. Switch to Microsoft Excel (press OPTION+F11).
Each of the cones (except one) in the chart no longer tapers to a point. The only cone that tapers to a point is the cone that represents the value in cell B3, which is the greatest value in all of the chart series.
For more information about cone and pyramid charts, click Contents And Index on the Help menu (or on the Balloon Help menu if you are using a version of the Macintosh operating system earlier than 8.0), click the Index button in Microsoft Excel Help, type the following text
cone
For more information about the BarShape Property, click the Office Assistant in the Visual Basic Editor, type "barshape," click Search, and then click to view "BarShape Property."
NOTE: If the Assistant is hidden, click the Office Assistant button on the Standard toolbar. If Microsoft Help is not installed on your computer, please see the following article in the Microsoft Knowledge Base:
ARTICLE-ID: Q179216
TITLE : OFF98: How to Use the Microsoft Office Installer Program
Keywords : kbprg kbdta kbdtacode xlvbahowto xlmac
Version : MACINTOSH:98
Platform : MACINTOSH
Issue type : kbhowtoLast Reviewed: May 18, 1999