[XL-2002] Image et texte d'accompagnement [Résolu]

[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 :

Code :

1
2
3
4
5
6
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 :

Code :

1
2
3
4
5
6
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

Code :

1
2
3
4
5
6
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.