How to zoom on charts using VBA

[Rasm]

Just wondering if Excel has a zoom function where I can simply highlight a area on a chart - by click and drag kinda deal - then that area is zoomed in on.

I want to do this using VBA

 

[Rasm]

Hmmm - guess it cannot be done- not one reply

 

[jolivanes]

I use this for embedded charts

Sub ZoomInAndOut()

    Select Case ActiveSheet.Name
        Case "Chart 1", "Chart 2", "Chart 3"
            If ActiveWindow.Zoom = 89 Then
        ActiveWindow.Zoom = 400  '<-----Change to suit
    Else
ActiveWindow.Zoom = 89

End If

Case Else

MsgBox "You cannot use this feature on this sheet." & vbLf & _
    "Use is restricted to the following sheets:" & vbLf & _
        """Chart 1"", ""Chart 2"" and ""Chart 3""", vbOKOnly, "Restricted Use"
    
End Sub

Maybe it helps.

John

 

[AlphaFrog]

Mostly no but kinda' yes.... sort of.

Here are the Excel 2007 zoom tools ...
Zooming into Your Excel 2007 Worksheets

The "Fit Selection" zoom feature doesn't work on a chart selection. Only on a cell selection. You could however select the cells surrounding your chart and then select the "Fit Selection" zoom feature and there is your kinda' yes solution.

 

[shg]

In the sheet module:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    UnZoom
End Sub

In a code module:

Option Explicit
 
Dim miRow As Long
Dim miCol As Long
Dim mfZoom As Single
Dim mbZoom As Boolean
 
Sub ChartZoom()
    If Not mbZoom Then
        With ActiveWindow
            miRow = .ScrollRow
            miCol = .ScrollColumn
            mfZoom = .Zoom
        End With
        mbZoom = True
    End If
    
    With ActiveSheet.ChartObjects(Application.Caller)
        With Range(.TopLeftCell, .BottomRightCell)
            Application.EnableEvents = False
            .Select
            Application.EnableEvents = True
            ActiveWindow.ScrollRow = .Row
            ActiveWindow.ScrollColumn = .Column
        End With
        ActiveWindow.Zoom = True
        .Select
    End With
End Sub
 
Sub UnZoom()
    If mbZoom Then
        With ActiveWindow
            .ScrollRow = miRow
            .ScrollColumn = miCol
            .Zoom = mfZoom
        End With
        mbZoom = False
    End If
End Sub

Select each chart on the worksheet and assign macro ChartZoom.

 

[Rasm]

Thanks guy - several things to try - sweettt.

 

[Jaafar Tribak]

I am not very familiar working with charts. Isn't there a UI option or VBA to zoom an embeeded chart without having to zoom the underlying worksheet ?

 

[RoryA]

No, sadly. Jon P was working on a zoom utility (changing the chart scales based on a rectangle) but the chart events in 2007+ are a little flaky - see here.

 

[Jaafar Tribak]

No, sadly. Jon P was working on a zoom utility (changing the chart scales based on a rectangle) but the chart events in 2007+ are a little flaky - see here.

Thanks Rory. This sounds like a good candidate for an API workaround... like giving the user the ability to ,say for example, zoom the chart when moving the mouse pointer over it. Would be nice for small charts in a crowded worksheet.

 

[RoryA]

I can't wait to see what you come up with.