Resize d'images sous Excel

Version imprimable

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:

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

11/02/2015, 11h11
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
11/02/2015, 11h17
sramitator

daccord

merci pour la réponse ;)

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

heu

Bonjour rien de plus simple

sélectionne ton image et lance cette sub
Code:

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:

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