Skip to main content
Support is Offline
Today is our off day. We are taking some rest and will come back stronger tomorrow
Official support hours
Monday To Friday
From 09:00 To 17:30
  Wednesday, 06 July 2022
  1 Replies
  5.7K Visits
Buongiorno a tutti,

ho trovato un codice molto utile sul sito che ingrandisce la cella una volta selezionata. tuttavia la ingrandisce come immagine e quindi non è possibile cambiarne il contenuto, cosa che invece vorrei fare pratica vorrei ingrandire la cella selezionandola per poi correggerne il contenuto, se necessario....mi sapete aiutare ? nel seguito il Codice....GRAZIE!!!!!!!

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
End If
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Transparency = 0
End With
End With
End With
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub

1 year ago
Hi there,

Sorry that you cannot edit the cell enlarged with a VBA code. However, you can use Kutools for Excel's Bigger Formula Bar feature:


If you do not have Kutools for Excel installed in your computer, please click the link below to download. The add-in offers a full-feature trial for 30 days:

Attachments (1)
  • Page :
  • 1
There are no replies made for this post yet.