Redimensionner une image dans Excel (VBA) grâce à des cellules
Résolu
STVNA
Messages postés
32
Statut
Membre
-
STVNA Messages postés 32 Statut Membre -
STVNA Messages postés 32 Statut Membre -
Bonjour à tous !
En 2015, j'ai posté cette question : https://forums.commentcamarche.net/forum/affich-31772094-redimensionner-une-image-automatiquement-avec-excel-vba
On aimerait maintenant redimensionner une image dans Excel de cette manière : lorsque l'on met une largeur et une hauteur dans des cellules, une image se redimensionne toute seule en fonction de ces valeurs et donc en utilisant VBA.
Merci d'avance !
En 2015, j'ai posté cette question : https://forums.commentcamarche.net/forum/affich-31772094-redimensionner-une-image-automatiquement-avec-excel-vba
On aimerait maintenant redimensionner une image dans Excel de cette manière : lorsque l'on met une largeur et une hauteur dans des cellules, une image se redimensionne toute seule en fonction de ces valeurs et donc en utilisant VBA.
Merci d'avance !
A voir également:
- Vba redimensionner image
- Image iso - Guide
- Légender une image - Guide
- Reduire taille image - Guide
- Acronis true image - Télécharger - Sauvegarde
- Image gratuite - Guide
1 réponse
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.
Merci pour votre réponse !
Mais cela ne fonctionne pas. Où doit-on exactement placer la macro ?
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
Et que voulez-vous par mettre les valeurs en points ?
Merci d'avance.
Le point vaut 1/72 de pouce et le pouce vaut 2.54 cm. Le classeur doit être enregistré au format .xlsm et les macros doivent activées. Si tu as toujours un problème, mets ton classeur sur mon-partage.fr et poste le lien obtenu.
Daniel