Bonjour,
Voici mon problème: Je voudrai redimensionner des images sous excel. Ma macro marche bien si je séléctionne plusieurs images sur la feuille elles se redimensionnent. Cependant si je ne séléctionne qu'une image parmis celles qui sont sur la feuilles toutes les images se redimenssionnent et non seulement celle que j'ai séléctionnée. Comment faire?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27 Sub Imagex3() ' ' Imagex3 Macro ' Redimensionnement Imagex3 ' ' 'Declarons nos variables Dim PecentSize As Integer Dim inShape As Shape Dim i As Integer Dim nbrImagesSelect As Long nbrImagesSelect = ActiveSheet.Shapes.Count 'Récupération du nombre d'images de la SELECTION i = 1 'On parcours toutes les images de la selection et on les redimmensionne une à une ' ==> on met un compteur i à 1 (première image i=1) 'tant que le compteur n'à pas atteint le nombre d'images alors on redimensionne l'image n°i 'enfin on ajoute 1 à i pour parcourir l'image suivante (i=i+1) While i <= nbrImagesSelect Set inShape = ActiveSheet.Shapes(i) 'Redimensionnement de la largeur inShape.Width = 150 i = i + 1 Wend ' ' End Sub
Partager