Why?, what could it be?
- To post as a guest, your comment is unpublished.· 1 years agoHi, Mazzi,
The above code works well in my Excel workbook, which Excel version do you use?
As we all know, Excel has a Zoom feature to help us to increase the size of the cell value in the whole worksheet. But, sometimes, we just need to zoom or magnify only the selected cells. Are there any good ideas for us to enlarge the selected cells only in a worksheet?
May be there in no direct way for us to magnify the selected cells in Excel, but, here, I can introduce a VBA code to deal with this job as a workaround. Please do as follows:
1. Right click the sheet tab that you want to enlarge the selected cells automatically, and then choose View Code from the context menu, in the opened Microsoft Visual Basic for applications window, copy and paste the following code into the blank Module:
VBA code: Zoom or magnify the selected cells:
Private Sub worksheet_selectionchange(ByVal Target As Range) 'Updateby Extendoffice Dim xRg As Range Dim xCell As Range Dim xShape As Variant Set xRg = Target.Areas(1) For Each xShape In ActiveSheet.Pictures If xShape.Name = "zoom_cells" Then xShape.Delete End If Next If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub Application.ScreenUpdating = False xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture Application.ActiveSheet.Pictures.Paste.Select With Selection .Name = "zoom_cells" With .ShapeRange .ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft .ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft With .Fill .ForeColor.SchemeColor = 44 .Visible = msoTrue .Solid .Transparency = 0 End With End With End With xRg.Select Application.ScreenUpdating = True Set xRg = Nothing End Sub
2. Then save and close this code window, now, when you select or click some data cells, the cells will be magnified as a picture automatically, see screenshot:
Note: The selected cells will be changed back to original size after selecting other cells.