Discussion :

[sramitator]

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

[pgz]

Bonjour.

C'est normal puisque c'est exactement ce que tu as codé : redimensionner toutes les formes, sans tenir compte de la sélection...

Cordialement,

pgz

[sramitator]

daccord

merci pour la réponse

aurait-u une piste alors pour gérer la sélection?

[patricktoulon]

Bonjour rien de plus simple

sélectionne ton image et lance cette sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub resizeImage()
If TypeName(Selection) = "Picture" Then Selection.Width = 150
End Sub

ou bien met la ligne de code dans le select change du worksheet comme ceci
et ca se fera automatiquement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TypeName(Selection) = "Picture" Then Selection.Width = 150
End Sub

Au plaisir