Comment zoomer ou agrandir les cellules sélectionnées dans Excel?
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
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.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
