Hi! I currently have the below is an excerpt of code that works to give me a bar graph for one set of data. I would be interested to know if any one on here knows how to take my code below and alter it so it gives an output of a combination graph (Bar and line Graph). The bar graph would be the same set of data it is pulling now from a pivot table. The line graph data would be on a different worksheet in a table. Please let me know if you need any more info. thanks!

[code]
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddChart(xlColumnStacked)
shp.Chart.SetSourceData Source:=ActiveSheet.PivotTables(1).TableRange1, _
PlotBy:=xlColumns
Dim objChart1 As ChartObject
Set objChart1 = Sheets("Upcoming Quarter Requirements").ChartObjects(1)

With Range("B13:C22")
shp.Left = .Left
shp.Top = .Top
shp.Width = .Width
shp.Height = .Height
End With
With shp.Chart.PivotLayout.PivotTable
.PivotFields("Resource Assigned").Orientation = xlRowField

End With
shp.Chart.ChartType = xlColumnStacked
[\code]