Here is the code (I think)
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub ShowMonthly()
ActiveSheet.Shapes("QQ%SalesChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%Salestitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%PriceChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%Pricetitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%NLChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%NLtitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%DOMChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%DOMtitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%InvChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%Invtitle").Visible = msoFalse
ActiveSheet.Shapes("YY%PriceTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%PriceChart").Visible = msoFalse
ActiveSheet.Shapes("MM%PriceTitle").Visible = msoTrue
ActiveSheet.Shapes("MM%PriceChart").Visible = msoTrue
ActiveSheet.Shapes("YY%NLTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%NLChart").Visible = msoFalse
ActiveSheet.Shapes("MM%NLTitle").Visible = msoTrue
ActiveSheet.Shapes("MM%NLChart").Visible = msoTrue
ActiveSheet.Shapes("YY%InvTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%InvChart").Visible = msoFalse
ActiveSheet.Shapes("MM%InvTitle").Visible = msoTrue
ActiveSheet.Shapes("MM%InvChart").Visible = msoTrue
ActiveSheet.Shapes("YY%DOMTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%DOMChart").Visible = msoFalse
ActiveSheet.Shapes("MM%DOMTitle").Visible = msoTrue
ActiveSheet.Shapes("MM%DOMChart").Visible = msoTrue
ActiveSheet.Shapes("YY%SalesTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%SalesChart").Visible = msoFalse
ActiveSheet.Shapes("MM%SalesTitle").Visible = msoTrue
ActiveSheet.Shapes("MM%SalesChart").Visible = msoTrue
End Sub
Sub ShowQuarterly()
ActiveSheet.Shapes("QQ%SalesChart").Visible = msoTrue
ActiveSheet.Shapes("QQ%Salestitle").Visible = msoTrue
ActiveSheet.Shapes("QQ%PriceChart").Visible = msoTrue
ActiveSheet.Shapes("QQ%Pricetitle").Visible = msoTrue
ActiveSheet.Shapes("QQ%NLChart").Visible = msoTrue
ActiveSheet.Shapes("QQ%NLtitle").Visible = msoTrue
ActiveSheet.Shapes("QQ%DOMChart").Visible = msoTrue
ActiveSheet.Shapes("QQ%DOMtitle").Visible = msoTrue
ActiveSheet.Shapes("QQ%InvChart").Visible = msoTrue
ActiveSheet.Shapes("QQ%Invtitle").Visible = msoTrue
ActiveSheet.Shapes("YY%PriceTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%PriceChart").Visible = msoFalse
ActiveSheet.Shapes("MM%PriceTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%PriceChart").Visible = msoFalse
ActiveSheet.Shapes("YY%NLTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%NLChart").Visible = msoFalse
ActiveSheet.Shapes("MM%NLTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%NLChart").Visible = msoFalse
ActiveSheet.Shapes("YY%InvTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%InvChart").Visible = msoFalse
ActiveSheet.Shapes("MM%InvTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%InvChart").Visible = msoFalse
ActiveSheet.Shapes("YY%DOMTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%DOMChart").Visible = msoFalse
ActiveSheet.Shapes("MM%DOMTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%DOMChart").Visible = msoFalse
ActiveSheet.Shapes("YY%SalesTitle").Visible = msoFalse
ActiveSheet.Shapes("YY%SalesChart").Visible = msoFalse
ActiveSheet.Shapes("MM%SalesTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%SalesChart").Visible = msoFalse
End Sub
Sub ShowYearly()
ActiveSheet.Shapes("QQ%SalesChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%Salestitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%PriceChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%Pricetitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%NLChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%NLtitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%DOMChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%DOMtitle").Visible = msoFalse
ActiveSheet.Shapes("QQ%InvChart").Visible = msoFalse
ActiveSheet.Shapes("QQ%Invtitle").Visible = msoFalse
ActiveSheet.Shapes("YY%PriceTitle").Visible = msoTrue
ActiveSheet.Shapes("YY%PriceChart").Visible = msoTrue
ActiveSheet.Shapes("MM%PriceTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%PriceChart").Visible = msoFalse
ActiveSheet.Shapes("YY%NLTitle").Visible = msoTrue
ActiveSheet.Shapes("YY%NLChart").Visible = msoTrue
ActiveSheet.Shapes("MM%NLTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%NLChart").Visible = msoFalse
ActiveSheet.Shapes("YY%InvTitle").Visible = msoTrue
ActiveSheet.Shapes("YY%InvChart").Visible = msoTrue
ActiveSheet.Shapes("MM%InvTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%InvChart").Visible = msoFalse
ActiveSheet.Shapes("YY%DOMTitle").Visible = msoTrue
ActiveSheet.Shapes("YY%DOMChart").Visible = msoTrue
ActiveSheet.Shapes("MM%DOMTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%DOMChart").Visible = msoFalse
ActiveSheet.Shapes("YY%SalesTitle").Visible = msoTrue
ActiveSheet.Shapes("YY%SalesChart").Visible = msoTrue
ActiveSheet.Shapes("MM%SalesTitle").Visible = msoFalse
ActiveSheet.Shapes("MM%SalesChart").Visible = msoFalse
End Sub
Sub YoY()
'
' YoY Macro
'
'
ActiveChart.PivotLayout.PivotTable.PivotFields("Quarters").Orientation = _
xlHidden
With ActiveChart.PivotLayout.PivotTable.PivotFields("Years")
.Orientation = xlRowField
.Position = 1
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Quarters")
.Orientation = xlRowField
.Position = 2
End With
With ActiveChart.PivotLayout.PivotTable.PivotFields("Sum of New Listings")
.BaseField = "Years"
End With
End Sub
Bookmarks