Note: The other languages of the website are Google-translated. Back to English
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
  1.6K Visits
0
Votes
Undo
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 .....in 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
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 months ago
·
#2863
0
Votes
Undo
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:

bigger-formula.png

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: https://www.extendoffice.com/product/kutools-for-excel.html

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