Comme nous le savons tous, Excel dispose d'une fonction de zoom pour nous aider à augmenter la taille de la valeur de la cellule dans toute la feuille de calcul. Mais, parfois, il suffit de zoomer ou d'agrandir uniquement les cellules sélectionnées. Y a-t-il de bonnes idées pour nous d'agrandir les cellules sélectionnées uniquement dans une feuille de calcul?
Zoomez ou agrandissez la cellule sélectionnée avec le code VBA
Peut-être n'y a-t-il aucun moyen direct pour nous d'agrandir les cellules sélectionnées dans Excel, mais, ici, je peux introduire un code VBA pour traiter ce travail comme solution de contournement. Veuillez procéder comme suit:
1. Cliquez avec le bouton droit sur l'onglet de la feuille pour lequel vous souhaitez agrandir automatiquement les cellules sélectionnées, puis choisissez Voir le code depuis le menu contextuel, dans le Microsoft Visual Basic pour les applications fenêtre, copiez et collez le code suivant dans le module vide:
Code VBA: Zoomez ou agrandissez les cellules sélectionnées:
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. Ensuite, enregistrez et fermez cette fenêtre de code, maintenant, lorsque vous sélectionnez ou cliquez sur certaines cellules de données, les cellules seront automatiquement agrandies comme une image, voir capture d'écran:
Notes: Les cellules sélectionnées seront rétablies à leur taille d'origine après avoir sélectionné d'autres cellules.
