Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Running a procedure in a module on graph change
Can anyone tell me how to run one of the following procedures each time a field button in a pivot chart changes? The precedures are in a module that I needs to be run if "Under 50 Stores", "50 to 200 Stores", or "Over 200 Stores" is selected from the field button of the chart: ------------------------------------------------- Sub Format_Under_50_Stores() ActiveChart.PivotLayout.PivotTable.PivotFields("Ra nge").CurrentPage = _ "Under 50 Stores" ActiveChart.SeriesCollection("Under 50 Stores").Select With Selection.Border ..ColorIndex = 1 ..Weight = xlThick ..LineStyle = xlContinuous End With With Selection ..MarkerBackgroundColorIndex = xlNone ..MarkerForegroundColorIndex = xlNone ..MarkerStyle = xlNone ..Smooth = True ..MarkerSize = 5 ..Shadow = False End With ActiveChart.Deselect End Sub Sub Format_50_to_200_Stores() ActiveChart.PivotLayout.PivotTable.PivotFields("Ra nge").CurrentPage = _ "50 to 200 Stores" ActiveChart.SeriesCollection("50 to 200 Stores").Select With Selection.Border ..ColorIndex = 1 ..Weight = xlThick ..LineStyle = xlContinuous End With With Selection ..MarkerBackgroundColorIndex = xlNone ..MarkerForegroundColorIndex = xlNone ..MarkerStyle = xlNone ..Smooth = True ..MarkerSize = 5 ..Shadow = False End With ActiveChart.Deselect End Sub Sub Format_Over_200_Stores() ActiveChart.PivotLayout.PivotTable.PivotFields("Ra nge").CurrentPage = _ "Over 200 Stores" ActiveChart.SeriesCollection("Over 200 Stores").Select With Selection.Border ..ColorIndex = 1 ..Weight = xlThick ..LineStyle = xlContinuous End With With Selection ..MarkerBackgroundColorIndex = xlNone ..MarkerForegroundColorIndex = xlNone ..MarkerStyle = xlNone ..Smooth = True ..MarkerSize = 5 ..Shadow = False End With ActiveChart.Deselect End Sub -- tobriant ------------------------------------------------------------------------ tobriant's Profile: http://www.excelforum.com/member.php...o&userid=25155 View this thread: http://www.excelforum.com/showthread...hreadid=482877 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
to call procedure in a worksheet in a module | Excel Discussion (Misc queries) | |||
.OnAction points to wrong file.module.procedure | Excel Programming | |||
Add Procedure To Module Via VBA | Excel Programming | |||
programmatically open VBE and go to a specified procedure in target module? | Excel Programming | |||
Lines in a Module(Procedure) | Excel Programming |