I have the code running to create the pie chart.

I am would like to breakout all categories with 4% or less into the bar
in a Bar of Pie Chart.

I am completly stumped? Craigm
----------------------------------------------

Sub chrtTire()

Dim chrtTires As Chart

Sheets("Data").Select
Range("C3").Select
'DELETE ALL CHARTS ON THE DATA
WORKSHEET
ActiveSheet.ChartObjects.Delete

Set chrtTires = Charts.Add
Set chrtTires = chrtTires.Location(Whe=xlLocationAsObject,
Name:="Data")

With chrtTires
ChartType = xlPie
SetSourceData Source:=Sheets("TiresSum").Range("C1:D21"),
PlotBy:=xlCol
HasTitle = True
ChartTitle.Text = "Tire Usage by Department"
With .ChartTitle.Font
Size = 16
Background = xlBackgroundTransparent
End With

ChartArea.Shadow = True 'Outer edge of entire chart
HasLegend = False
HasDataTable = True
ApplyDataLabels xlDataLabelsShowLabel
ApplyDataLabels xlDataLabelsShowValue
ApplyDataLabels xlDataLabelsShowPercent

With .Parent
Top = Range("B2").Top 'With Charts("chrtTires").ChartArea
Left = Range("A1").Left
Height = ("350")
Width = ("500")
Name = "TiresSum"
RoundedCorners = True
End With
End With

Worksheets("Data").ChartObjects(1).Chart.ChartArea .Interior.Pattern =
xlLightDown

With chrtTires.PlotArea.Fill 'Just the pie area
Visible = msoFalse 'Makes are transparent
msoFalse
End With

With chrtTires.PlotArea 'Just the pie area
Border.LineStyle = xlLineStyleNone
End With

With chrtTires.ChartArea.Fill 'The entire chart area
Visible = True
ForeColor.SchemeColor = 15
BackColor.SchemeColor = 17
TwoColorGradient Style:=msoGradientHorizontal, Variant:=1

End With

End Sub


--
Craigm
------------------------------------------------------------------------
Craigm's Profile: http://www.excelforum.com/member.php...o&userid=24381
View this thread: http://www.excelforum.com/showthread...hreadid=384490