Code pour sélectionner toutes les images d'une feuille

Modeste

XLDnaute Barbatruc

• 15 Janvier 2009

• #2

Re : Code pour sélectionner toutes les images d'une feuille

A toutes fins utiles ... sans macro, on peut demander à Excel de faire la même chose: Edition --> Atteindre --> Bouton "Cellules ..." (en bas à gauche de la boîte de dialogue) --> Cocher "Objets"
Si besoin, utiliser l'enregistreur de macro en faisant cette manip' puis récupérer le code créé ( ... et l'adapter, le cas échéant)

Luc

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Janvier 2009

• #3

Re : Code pour sélectionner toutes les images d'une feuille

Bonjour,

Boucle pour accéder à chaque shape:

For Each s In ActiveSheet.Shapes

Sélectionner tous les shapes d'un champ:

Code:

  For Each s In ActiveSheet.Shapes
   If Not Intersect(s.TopLeftCell, Range("$A$1:$D$20")) Is Nothing Then
      s.Select False
   End If
  Next s

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Janvier 2009

• #4

Re : Code pour sélectionner toutes les images d'une feuille

Bonjour à tous,

Voici une macro qui sélectionne tous les objets "Picture" (en masquant d'abord les autres objets et en les affichant après la sélection) :

Code:

Sub Macro1()
With ActiveSheet
For i = 1 To .Shapes.Count
If Left(.Shapes(i).Name, 7) <> "Picture" Then .Shapes(i).Visible = False
Next
[COLOR="Red"]ActiveSheet.DrawingObjects.Select[/COLOR] 'sélectionne tous les objets visibles
For i = 1 To .Shapes.Count
If Left(.Shapes(i).Name, 7) <> "Picture" Then .Shapes(i).Visible = True
Next
End With
End Sub

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Janvier 2009

• #5

Re : Code pour sélectionner toutes les images d'une feuille

Bonjour à tous

si tu n'as que des objets images sur ta feuilles :

Code:

Sheets("Feuil1").Shapes.SelectAll

bon après midi
@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Janvier 2009

• #6

Re : Code pour sélectionner toutes les images d'une feuille

Bonjour à tous

Pour ne sélectionner que les images de la feuille affichée:

Code:

activesheet.pictures.select

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Janvier 2009

• #7

Re : Code pour sélectionner toutes les images d'une feuille

Salut MJ13,

Ta solution est la plus simple. Je ne savais pas que Pictures (avec un s) existait, merci.

A+

 

Vote positif 0 Vote négatif

alfazoulou

XLDnaute Occasionnel

• 15 Janvier 2009

• #8

Re : Code pour sélectionner toutes les images d'une feuille

Merci à tous

 

Vote positif 0 Vote négatif