?
Solved

Excel 2007 Pivot Chart VBA - Charts Check Boxes

Posted on 2013-11-25
1
Medium Priority
?
595 Views
Last Modified: 2013-12-03
Hello,

I had created a Pivot Table
9 columns
Row Labels with system names
then 8 columns with Averages and Counts

Then I've created Chart

I want to add Check Buttons on chart so that I can uncheck or check and that way manipulate visibility of the 8 comlumns on the chart. Bar chart.

My code that doesnt work well:

Sub Use_Checkboxes_to_Filter_PivotTable1()

Dim PT As PivotTable
Dim varCbxList() As Variant, varItemList() As Variant
Dim i As Long
Set PT = Sheets("ResponseTime-Support Grp").PivotTables("PivotTable1")
On Error Resume Next
varCbxList = Array("Check Box 5", "Check Box 6", "Check Box 7", "Check Box 8", "Check Box 9", "Check Box 10", "Check Box 11", "Check Box 12")
varItemList = Array("Count of Resolved", "Average of QueueTime", "Average of ResWaitTime", "Average of WorkTIme", "Average of RepairTime", "Average of VerifyTime", "Count of Closed", "Average of ServiceTime")

'--Ensure at least one item is checked and visible
   For i = LBound(varCbxList) To UBound(varCbxList)
     If Sheets("ResponseTime-Support Grp").CheckBoxes(varCbxList(i)).Value = xlOn Then
            PT.PivotFields("Count of Resolved").PivotItems(varItemList(i)).Visible = True
            Exit For
        Else
            If i = UBound(varCbxList) Then
                MsgBox "You must have at least one item checked"
                Exit Sub
            End If
        End If
    Next i
    For i = LBound(varCbxList) To UBound(varCbxList)
       If Sheets("ResponseTime-Support Grp").CheckBoxes(varCbxList(i)).Value = xlOff Then
            PT.PivotFields("Count of Resolved").PivotItems(varItemList(i)).Visible = False
        Else
            PT.PivotFields("Count of Resolved").PivotItems(varItemList(i)).Visible = True
        End If
    Next i
    Set PT = Nothing
End Sub


Thanks!
0
Comment
Question by:CABRLU63
1 Comment
 
LVL 54

Accepted Solution

by:
Rgonzo1971 earned 1500 total points
ID: 39677267
Hi,

xlOff (-4146) is not an accepted value for CheckBox.Value

it should 0 (No), 1 (Yes) or 2 (Greyed)

Regards
0

Featured Post

NEW Veeam Backup for Microsoft Office 365 1.5

With Office 365, it’s your data and your responsibility to protect it. NEW Veeam Backup for Microsoft Office 365 eliminates the risk of losing access to your Office 365 data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Cancel future meetings from user mailboxes in Office 365 using Remove-CalendarEvents
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

840 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question