Monday, October 17, 2016

Magnifying The Selected Cell

Excel Zoom In Cell


For to magnify the cell's view the following solution can be applied :
- The font size of selected cell can be changed with macro.
  
- This macro that added to the worksheet module, looks at the currently selected cell and increases its font size.
 " Zoom_In = 1.75"

- Later the value of the cell is displayed on the shape.
   "sel.CopyPicture Appearance:=xlScreen, Format:=xlPicture      'Create zoom picture
    ActiveSheet.Pictures.Paste.Select
        With Selection
        .Name = "Zoom_Cells"
        With .ShapeRange
            .ScaleWidth Zoom_In, msoFalse, msoScaleFromTopLeft
            .ScaleHeight Zoom_In, msoFalse, msoScaleFromTopLeft
            With .Fill
                .ForeColor.SchemeColor = 44
                .Visible = msoTrue
                .Solid
                .Transparency = 0
            End With
        End With
    End With"