Sub test()
With ActiveSheet
For i = 1 To .Pictures.Count
MsgBox .Pictures(i).Name
Next
End With
End Sub
Sub test()
With ActiveSheet
For i = 1 To .Pictures.Count
MsgBox TypeName(.Pictures(i))
Next
End With
End Sub
With ActiveSheet
MsgBox .Pictures(.Pictures.Count).Name
End With
Mon intervention n'avait aucun autre but que celui de répondre à la question posée, telle que posée et concernant la collection (cachée) Pictures.ok c'est bien beau mais comment cibler l'image(1) sans boucle alors ?
et ben non !!!!!!! pas dans mon contexteWith ActiveSheet
MsgBox .Pictures(.Pictures.Count).Name
End With
Juste une petite chose qui me heurte*: le titre de la discussiony a pas de mal j'ai voulu heurté personne
Sub Macro1()
ActiveSheet.Pictures.Insert("C:\Users\STAPLE\Pictures\test.jpg").ShapeRange.Name = "TOTO"
MsgBox TypeName(ActiveSheet.Shapes("TOTO"))
End Sub
Bonjour le fil
[aparté]
Juste une petite chose qui me heurte*: le titre de la discussion
Titre qui fait pédaler dans la semoule les Discussions similaires
Sur ce, un bon week-end à tous
*: en vrai, j'ai pas eu mal, mais je pige pas un truc moi non plus
Comment un vieux de vieille du forum n'a pas le réflexe d'affubler ses discussions d'un titre explicite ?
[/aparté]
• Sinon pourquoi ne pas nommer l'image (avec le même nom) à chaque insertion ?
Comme cela plus de problème à chercher l'image, puisqu'on connait son nom.VB:Sub Macro1() ActiveSheet.Pictures.Insert("C:\Users\STAPLE\Pictures\test.jpg").ShapeRange.Name = "TOTO" MsgBox TypeName(ActiveSheet.Shapes("TOTO")) End Sub
Comme c'est dommage d'avoir des titres non explicites qui foutent le souk dans les Discussions similairesc'est dommage de ne pas pourvoir se servir des collections quand meme