indexs dans collection pictures incohérents

[patricktoulon]

bonjour a tous
j'ai un soucis avec pictures
cette petite boucle me liste mêmes les bouton activX et toutes shapes confondues
alors que je n'ai qu'une seule image

Sub test()
    With ActiveSheet
        For i = 1 To .Pictures.Count
            MsgBox .Pictures(i).Name
        Next
    End With

End Sub

c'est un peu gênant

Résumé et résolution adoptée pour cette longue discussion

la collection pictures intégrant tout le oléobjects y compris les activeX
on est obligé de faire une boucle et de créer un range de shapes de type (13)msopicture
il y donc 2 solutions simples

Laurent en post91 qui la créé en selectionnant tout les shapes concernées
moi en post95 qui le cree avec un tableau de noms d'images

 

[Staple1600]

a savoir que c'est la collection shapes qui liste tout

On se rejoint sur ce point
(cf message#35)

 

[sylvanu]

C'est rectifié.
Mais par pitié, pas d’agressivité sur ce site. Vous gâchez tout.

 

[laurent950]

Ha ha ha Pat-Crack hi hi hi pourtant c'est un Crack... aïe aïe aïe

 

[patricktoulon]

re
je ne suis pas agressif du tout @sylvanu c'est toi qui t'es échauffé cet aprem
et en plus malgré mon signalement tu persistais je comprenais pas la

@laurent950 je suis pas un crack du tout
il est vrai que j'ai cette réputation de prendre les choses a contre courant envers et contre même des règles( et je m'en fout ) du développeur ,mais ca me permet d'explorer avec une autre vision parfois ça m'est profitable parfois moins dans le cas present il va falloir que j'explore ça dans un autre angle (va savoir ce que je vais trouver)
je trouve absurde de devoir boucler pour chopper l'image(1) qui est la seule

 

[laurent950]

Re Patrick,
justement j'ai aussi chercher aujourd'hui, car je suis dans ce même avis mais je me pose cette question :
Excel c'est un tableur est donc des coordonées : pour accéder à la cellule A1 la position est connu mais pour l'image sur la feuille excel la position n'est pas connus ? sauf si cette image est à une position sur cette feuille est ont peux y acceder directement... mais si trois images qui sont coller les une sur les autres (des doublons) comment choisir la bonne ? c'est incroyable de passer par une boucle... j'ai le même soucis avec autocad pour récuperer des objets dans les dessins !
C'est vraiment complexe

 

[patricktoulon]

re
complexe non mais il y a des trous

 

[Staple1600]

Re

pour l'image sur la feuille excel la position n'est pas connus ?

Si elle est connue
Voir mon petit bout de code dans le message#43

 

[jmfmarques]

Si l'on me permet :
1) et surtout :Je regrette l'absence dans cette discussion de Michel (MichelXLD, alias Silkyroad). S'il passe par là : qu'il soit assuré de toute mon amitié.
2) Il est toujours malsain de tenter de détourner la vocation fondamentale de fonctions, méthodes, etc ... (d'éléments, membres ..., si vous préférez cette dénomination).
Il s'agit ici de la collection Pictures, qui n'est pas là pour servir à des développements, mais uniquement pour assurer la compatibilité avec des versions ANTERIEURES. Et elle le fait bien, dans CE sens-là. Elle n'est pas là pour permettre de nouvelles "exploitations".
Amitiés à tous.

 

[Staple1600]

Re

[aparté]
Il y a belle lurette que MichelXLD ne passe plus sur XLD (hélas)
(Comme beaucoup d'autres d'ailleurs...)
[/aparté]

 

[laurent950]

Bonsoir Patrick,
Voici la solution pour un acces a l'image sans aucune boucle en rapport avec le poste #1

Code :

Sub ImageCible()
Dim Imag As Shape
' Si une image sur la feuille = Array(1)
    'ActiveSheet.Shapes.Range(Array(1)).Select
' suite si on veux stocké cette image dans un objet
' Nom et Coordonné d'origine de l'image.
    Debug.Print ActiveSheet.Shapes.Range(Array(1)).Name
    Debug.Print ActiveSheet.Shapes.Range(Array(1)).Left
    Debug.Print ActiveSheet.Shapes.Range(Array(1)).Top
    Debug.Print ActiveSheet.Shapes.Range(Array(1)).Width
    Debug.Print ActiveSheet.Shapes.Range(Array(1)).Height
' Stockage de l'image
Set Imag = ActiveSheet.Shapes(ActiveSheet.Shapes.Range(Array(1)).Name)
' Acces a cette image sans boucle
Imag.Select
    Debug.Print Imag.Name
    Debug.Print Imag.Left
    Debug.Print Imag.Top
    Debug.Print Imag.Width
    Debug.Print Imag.Height
End Sub

Ps : Lien utiles

Travailler avec des images en VBA - TUTO DE RIEN

Dans le cours d’aujourd’hui nous allons voir comment travailler avec des images en VBA en recherchant une image avec VBA puis de récupérer le lien et le placer dans une cellule. Ce n’est pas tout car nous allons aussi voir comment afficher l’image du lien. En fait non nous allons créer un objet...

www.tutoderien.com

Shape à effacer

Je suis toujours avec mes Cartes Grises Dans le code j'arrive bien à créer et placer la CG. Le problème est que je n'arrive pas à lui fixer un nom pour pouvo...

forum.excel-pratique.com

Objet Shape (Excel)

Rubrique de référence sur Office VBA

docs.microsoft.com

Pb selection - shapes - range - Macros et VBA Excel

J'ai un certain nombre d'objets graphiques (des Shapes) dont je dispose du nom. Mon but est d'écrire une macro qui puisse les grouper en un seul objet. Le souci, c'est que selon les fois, il n'y aura pas le même

www.developpez.net

Add an Image from VBA in Excel - Analyst Cave

How to add images from VBA in Excel. Delete, replace or modify existing images using Visual Basic for Applications

analystcave.com

 

[patricktoulon]

re
Alors la !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
je m'incline
tu a droit a tout mon respect Laurent
bravo!!!!!!!!!!!!!!!!
j'ai testé avec des activx et images et des shapes les images ont un ordre de creation aleatoire et ca match a tout les coup
avec plusieurs images impeccable

1 pour la première 2 pour la seconde etc.......
bravo!!!!!

je peux donc utiliser x images

 

[laurent950]

Re Staple,
Mais tu as fais une boucle au poste #43 ?

 

[Staple1600]

Re

laurent950
Allo, la Terre ?
(cf message#54)
Et comme dit précédemment, si on utilise une seule image, il suffit de la nommer
(cf message#11)

 

[Staple1600]

Re

=>(1) laurent950
Relire le message#11

 

[Staple1600]

Re

=>(2) laurent950
Je citais le message#43 uniquement pour ceci
shp.BottomRightCell
Qui permettait de déduire
MsgBox shp.BottomRightCell.Address
et répondait à ton interrogation que je citais

pour l'image sur la feuille excel la position n'est pas connus ?

NB: On peut également utiliser TopLeftCell