Tableau d'image

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #2

Re : Tableau d'image

Bonjour,

essaye ceci :

Code:

ActiveSheet.Shapes.SelectAll

bon après midi
@+

 

Vote positif 0 Vote négatif

G

gecanosaga

Guest

• 25 Février 2011

• #3

Re : Tableau d'image

Des fois je me dis que je suis trop c*

Comment faire compliqué (ou tout du moins essayer) alors que la solution était toute simple....

Merci pour ta réponse très rapide Pierrot93 🙂

 

Vote positif 0 Vote négatif

G

gecanosaga

Guest

• 25 Février 2011

• #4

Re : Tableau d'image

Bon alors mon problème est presque le même je n'ai peut être pas besoin de créer un nouveau post !

Alors voila en fait je voudrais ne sélectionner que les image de type "rectangle" car c'est les seuls avec les lesquels je peux faire une rotation. pour le reste va falloir que je me retappe tout mais c'est une autre histoire!
j'ai fais ce code là :

Code:

Sub groupeimage()

    Dim i As Integer
    Dim n As Integer
    Dim a
    
    i = 0
    n = 0
    
    For Each s In ActiveSheet.Shapes
        n = n + 1
    Next s
    
    ReDim a(n)
    
    For Each s In ActiveSheet.Shapes
        nomimage = s.Name
        If nomimage Like "Rectangle*" Then
            a(i) = nomimage
            i = i + 1
        End If
    Next s
    ActiveSheet.Shapes.Range(a).Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.rotation = 270#
End Sub

Malheureusement je suis toujours bloqué au même niveau : au moment de la sélection des éléments.
Pourtant si l'on écrit

ActiveSheet.Shapes.Range(Array("Rectangle 1","Rectangle 2").Select

et ben ça fonctionne ! donc je suis perdu...🙁

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #5

Re : Tableau d'image

Re,

essaye ceci :

Code:

Sub groupeimage()
Dim s As Shape
Range("A1").Select
For Each s In ActiveSheet.Shapes
    If s.Name Like "Rectangle*" Then s.Select False
Next s
End Sub

 

Vote positif 0 Vote négatif

G

gecanosaga

Guest

• 25 Février 2011

• #6

Re : Tableau d'image

Alors là je dis bravo même si je sais pas pourquoi en mettant False ça fonctionne?????

Je ne comprend pas non plus pourquoi ma méthode ne fonctionne pas :'(

Mais la tienne fonctionne super bien merciiii 😀

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Février 2011

• #7

Re : Tableau d'image

Re,

Alors là je dis bravo même si je sais pas pourquoi en mettant False ça fonctionne?????

Cliquez pour agrandir...

utilisation de l'argument "replace" de la méthode "select", "false" permet de ne pas remplacer la selection existantes, ci dessous extrait de l'aide vba..;

Replace Argument de type Variant facultatif. Objet à remplacer.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

G

gecanosaga

Guest

• 25 Février 2011

• #8

Re : Tableau d'image

Merci pour cette explication, c'est sympa 🙂

En tout cas je m'incline bien bas !

 

Vote positif 0 Vote négatif