Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
I have created a 3D Pivot Chart from a Pivot Table and have seen examples
that have custom scroll bars to control the zoom and scroll by axis and other features of the chart. How is this accomplished? |
#2
![]() |
|||
|
|||
![]()
One way - you can add these effects by adding defined
ranges to the chart. You might want to look at some of the charting examples at Stephen Bullen's site: http://oaltd.co.uk/Excel/Default.htm Another way - this VBA code can be added to a userform to cause the worksheet in which an embedded chart resides to zoom in, zoom out, move up, and/or move down. You will need to add three scroll bars to the user form. One will zoom the chart in or out, one will move it to the right or left, and the last one will move it up or down. Private Sub UserForm_Initialize() ' Zoom With ScrollBarZoom .Min = 10 .Max = 400 .SmallChange = 1 .LargeChange = 10 .Value = ActiveWindow.Zoom End With ' Horizontally scrolling With ScrollBarColumns .Min = 1 .Max = 256 .Value = ActiveWindow.ScrollColumn .LargeChange = 25 .SmallChange = 1 End With ' Vertically scrolling With ScrollBarRows .Min = 1 .Max = ActiveSheet.Rows.Count .Value = ActiveWindow.ScrollRow .LargeChange = 25 .SmallChange = 1 End With End Sub Private Sub ScrollBarZoom_Change() With ActiveWindow .Zoom = ScrollBarZoom.Value LabelZoom = .Zoom & "%" .ScrollColumn = ScrollBarColumns.Value .ScrollRow = ScrollBarRows.Value End With End Sub Private Sub ScrollBarColumns_Change() ActiveWindow.ScrollColumn = ScrollBarColumns.Value End Sub Private Sub ScrollBarRows_Change() ActiveWindow.ScrollRow = ScrollBarRows.Value End Sub Regards, John Mansfield -----Original Message----- I have created a 3D Pivot Chart from a Pivot Table and have seen examples that have custom scroll bars to control the zoom and scroll by axis and other features of the chart. How is this accomplished? . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Chart newbie help, please, How to create | Charts and Charting in Excel | |||
Why do my text boxes disappear from my chart when I click out? | Charts and Charting in Excel |