nom du champ image

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2007

• #2

Re : nom du champ image

Bonjour nanard25, le forum.

Teste la macro ci-dessous pour cette question:

J'aimerais s'il est possible de connaître le nom d' un champ image.

Cliquez pour agrandir...

Code:

Sub test()
Dim x as Long, i as Long
x = ActiveSheet.Shapes.Count
For i = 1 To x
MsgBox ActiveSheet.Shapes(i).Name
Next
End Sub

 

Dernière édition: 22 Octobre 2007

Vote positif 0 Vote négatif

N

nanard25

Guest

• 22 Octobre 2007

• #3

Re : nom du champ image

Merci pour cette réponse hyper rapide,

Effectivement, toutes les images sont listées, mais j'aimerai connaitre uniquement le nom des pictures

merci encore

 

Vote positif 0 Vote négatif

N

nanard25

Guest

• 22 Octobre 2007

• #4

Re : nom du champ image

j'ai trouvé cette fonction : ActiveSheet.Pictures.Delete

mais toutes mes images sont détruites
en fait l'image que j'aimerais supprimer est dans la cellule H3

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2007

• #5

Re : nom du champ image

Re


Pour supprimer

Code:

Sub test_supprime()
Dim x as long, y as String 'merci nanard
x = ActiveSheet.Pictures.Count
For i = 1 To x
y = ActiveSheet.Pictures(i).TopLeftCell.Address(0, 0)
If y = "H3" Then ActiveSheet.Pictures(i).Delete
Next
End Sub

 

Dernière édition: 22 Octobre 2007

Vote positif 0 Vote négatif

N

nanard25

Guest

• 22 Octobre 2007

• #6

Re : nom du champ image

Merci Staple1600,

Cela marche super, juste une petite erreur

La définition de y est du texte donc doit être à String

Dim x As Long, y As String

Merci pour tout et merci à Tous, Bravo pour ce forum et bon courage à Tous
Nanard25🙂

 

Vote positif 0 Vote négatif