Comment agrandir ou réduire l'image en un clic dans Excel?
Supposons qu'il y ait plusieurs images dans une feuille qui sont de tailles différentes. Avez-vous des moyens d'agrandir ou de réduire ces images en une seule taille en un seul clic? Il n'y a pas de fonctionnalité intégrée pour le résoudre, mais dans cet article, j'introduis un code VBA pour agrandir ou réduire toutes les images de la feuille en un seul clic.
Agrandir et réduire les images en un clic par VBA
Agrandir et réduire les images en un clic par VBA
Suivez les étapes ci-dessous pour agrandir ou réduire les images en un seul clic.
1. Cliquez avec le bouton droit de la souris sur l'onglet de la feuille où vous souhaitez redimensionner les images, puis sélectionnez Voir le code depuis le menu contextuel.
2. Dans le popping Microsoft Visual Basic pour Applications et collez le code ci-dessous dans le script vide.
VBA: agrandissez et réduisez les images en un seul clic
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
Application.ScreenUpdating = False
Dim xRg As Range, sPic As Shape
For Each sPic In ActiveSheet.Shapes
If Target.Column > 1 Then
Set xRg = Target.Offset(, -1)
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
If .TopLeftCell.Address = xRg.Address Then
.Height = 350
.Width = 250
End If
End If
End With
ElseIf Target.Column = 1 Then
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
.Height = 60
.Width = 60
End If
End With
End If
Next sPic
Application.ScreenUpdating = True
End Sub
3. Enregistrez le code et fermez la fenêtre. Et lorsque vous cliquez sur n'importe quelle cellule de la colonne A, toutes les images seront réduites. Voir la capture d'écran:
4. Et lorsque vous cliquez sur la cellule qui en haut à droite de l'image, l'image relative sera agrandie. Voir la capture d'écran:
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!