shapes

[Jean-Claude Lecat]

Bonjour à tous
J'ai besoin dans une macro de "récupérer" le texte d'un objet "shape". En l'occurence il s'agit d'un rectangle contenant le titre d'une image. Pour rechercher cette image dans ma base de données à l'aide d'un lien hypertexte, j'ai besoin d'affecter une variable à son nom. Le "textframe" ne semble pas accepter de propriété telle que "value", "caption", ou "text".
Y a-t-il un moyen
ci-dessous la petit macro en question les (?????) représentant ce qui me manque.
Merci de votre aide
JCL

Sub NN2_QuandClic()
CHEMIN = "IMAGCOLEO\charançons\"
ESP = (??????)
RECHESP = (CHEMIN) & (ESP)

Selection.OnAction = "NN2_QuandClic"
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item_(1),Address:= (RECHESP)
End Sub

 

[Valérie]

Salut le forum et Jean-Claude

Tu peux utiliser la syntaxe suivante pour récupérer le texte d'un Shape :
ActiveSheet.Shapes(1).TextFrame.Characters.Text

Mais à ce que je vois ton shape est sélectionné donc un simple
Selection.Characters.text
devrait suffir

@ bientôt
Valérie

 

[Jean-Claude Lecat]

Bonjour Valérie,
Ça marche ! Merci beaucoup !
J'avais bien subodoré le "Characters.text", mais je n'étais pas arrivé à le
mettre en oeuvre.
je te remets ci-dessous la macro fonctionnelle

Sub NN2_QuandClic()

CHEMIN = "IMAGCOLEO\charançons\"
ActiveSheet.Shapes("NN2").Select
ESP = Selection.Characters.Text
ESP2 = (ESP) & ".jpg"

RECHESP = (CHEMIN) & (ESP2)

Selection.OnAction = "NN2_QuandClic"
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1),
Address:= _
(RECHESP)
End Sub

JCL
(oups ! je me demande si je n'ai pas cafouillé avec le forum !)