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?
Kutools for Excel is a powerful add-in that frees you from performing time-consuming operations in Excel, such as combine sheets quickly, merge cells without losing data, paste to only visible cells, count cells by color and so on. 300+ powerful features / functions for Excel 2019, 2016, 2013, 2010, 2007 or Office 365!
It enables tabbed browsing, editing, and managing of Microsoft Office applications. You can open multiple documents / files in a single tabbed window, such as using the browser IE 8/9/10, Firefox, and Google Chrome. It's compatible with Office 2019, 2016, 2013, 2010, 2007, 2003 or Office 365. Demo
Kutools for Outlook is a powerful add-in that frees you from time-consuming operations which majority of Outlook users has to perform daily! It can save your time from using Microsoft Outlook 2019, 2016, 2013, 2010 or Office 365!
Kutools for Word is a powerful add-in that frees you from time-consuming operations which majority of Word users have to perform daily! It can save your time from using Microsoft Word / Office 2019, 2016, 2013, 2010, 2007, 2003 or Office 365!
Restores the old look and menus of Office 2003 to Microsoft Office 2019, 2016, 2013, 2010, 2007 or Office 365. Don’t lose time in finding commands on the new Ribbon. Easy to deploy to all computers in enterprises and organizations.
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.