Discussion :

[bifconsult]

Bonjour à tou(te)s,

Pourriez-vous m'apporter une aide dominicale ?

Je cherche le moyen de sélectionner un nombre n d'images afin de les grouper. Le problème est que je ne connais pas n à l'avance.

Normalement, pour sélectionner 3 images, j'utilise :

Code :

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

ActiveSheet.Shapes.Range(Array(("img_001"), ("img_002"), ("img_003"))).Select

Comment faire si j'ai 10 images par exemple ? Y a-t-il une syntaxe particulière ou une autre fonction ? Ou une autre méthode ? Ou un moyen d'ajouter une nouvelle image à un groupe créé, au fur et à mesure ?

Merci à tou(te)s

BC

[issoram]

Bonjour,

Avec une syntaxe comme ça peut être:

Code :

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

1
2
3
4
5
6
7
8
Sub TEST()
    Dim TabImage() As Variant
    ReDim TabImage(1 To 3)
    For i = 1 To 3
        TabImage(i) = "img00 " & i
    Next i
    ActiveSheet.Shapes.Range(TabImage).Select
End Sub

Pour ajouter une (ou des) image(s) tu redimensionnes ton tableau et y ajoute la(les) nouvelle(s) images (leurs noms). Ensuite pour y accéder

Code :

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

ActiveSheet.Shapes.Range(TabImage)

Bon dimanche

[Philippe Tulliez]

Bonjour,
Une autre option pour sélectionner toutes les images de la feuille active

Code :

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

ActiveSheet.Shapes.SelectAll

et pour grouper les images sélectionnées

Code :

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

Selection.ShapeRange.Group.Select

[bifconsult]

Bonjour,

Avec une syntaxe comme ça peut être:

Code :

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

1
2
3
4
5
6
7
8
Sub TEST()
    Dim TabImage() As Variant
    ReDim TabImage(1 To 3)
    For i = 1 To 3
        TabImage(i) = "img00 " & i
    Next i
    ActiveSheet.Shapes.Range(TabImage).Select
End Sub

Pour ajouter une (ou des) image(s) tu redimensionnes ton tableau et y ajoute la(les) nouvelle(s) images (leurs noms). Ensuite pour y accéder

Code :

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

ActiveSheet.Shapes.Range(TabImage)

Bon dimanche

Merci. C'est presque ça. En tout cas ça me donne une piste solide pour finaliser mon morceau de code.

Merci