Redimensionner une image dans Excel (VBA) grâce à des cellules
Résolu/Fermé
STVNA
Messages postés
31
Date d'inscription
dimanche 17 septembre 2017
Statut
Membre
Dernière intervention
30 avril 2020
-
13 déc. 2018 à 12:08
STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020 - 21 déc. 2018 à 12:50
STVNA Messages postés 31 Date d'inscription dimanche 17 septembre 2017 Statut Membre Dernière intervention 30 avril 2020 - 21 déc. 2018 à 12:50
A voir également:
- Vba redimensionner image
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
- Google recherche par image - Guide
- Faststone image viewer - Télécharger - Visionnage & Diaporama
1 réponse
danielc0
Messages postés
832
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
19 avril 2024
74
13 déc. 2018 à 14:47
13 déc. 2018 à 14:47
Bonjour,
En supposant qu'il n'y ait qu'une seule image sur la feuille, mets cette macro dans le module de la feuille :
A1=hauteur
A2= largeur
Avec les valeurs en points.
Cordialement.
En supposant qu'il n'y ait qu'une seule image sur la feuille, mets cette macro dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] <> "" And [A2] <> "" And IsNumeric([A1]) And IsNumeric([A2]) Then
If Target.Address = "$a$1" Or Target.Address = "$a$2" Then
With ActiveSheet.Pictures(1)
.Height = [A1]
.Width = [A2]
End With
End If
End If
End Sub
A1=hauteur
A2= largeur
Avec les valeurs en points.
Cordialement.
13 déc. 2018 à 16:11
Merci pour votre réponse !
Mais cela ne fonctionne pas. Où doit-on exactement placer la macro ?
13 déc. 2018 à 16:22
Fais un clic droit sur l'onglet de la feuille contenant l'image et clique sur "Visualiser le code". Colle la macro dans la partie droite de la fenêtre VBE.
Daniel