[XL-2002] Image et texte d'accompagnement

[faraudch]

Bonjour,
Existe-t-il une fonction vba ou un moyen de récupérer de façon automatique le texte d'accompagnement d'un image.
Mes recherches sont restées infructueuses.
Remerciements.

[aalex_38]

Bonjour,

Je viens de faire un essai avec le recorder VBA qui m'a donné ça :

Sub Macro1()
'
' Macro1 Macro
    ActiveSheet.Pictures.Insert("D:\Mes Documents\Mes images\valerie_5.jpg").Select
    Selection.ShapeRange.AlternativeText = "ceci est le texte de remplacement" & Chr(10) & ""
End Sub

Ensuite je recupère le code comme ça :

Sub essai()
For Each pics In ActiveSheet.Pictures
ActiveSheet.Pictures.Select
MsgBox Selection.ShapeRange.AlternativeText
Next
End Sub

Sans faire de select c'est mieux

Sub essaiII()
Dim pi As Picture
For Each pi In ActiveSheet.Pictures
  MsgBox pi.ShapeRange.AlternativeText
Next
End Sub

[faraudch]

Merci pour votre réponse.
Ca marche super.