Récupérer le texte dans un rectangle

Le
Catherine Ruppen
Bonjour à tous,

Sur une feuille Excel 2003 se trouvent plusieurs rectangles créés avec
la barre d'outils dessin. Il y a du texte dans ces rectangles et je
souhaiterais connaitre la syntaxe en VBA pour récupérer ce texte dans
une variable.

Merci d'avance pour votre réponse.
Catherine
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23133341
bonjour Catherine,

Sub test()
For Each objShp In ActiveSheet.Shapes
If Left(.Name, 9) = "Rectangle" Then
LTexte = objShp.TextFrame.Characters.Text
End If
Next
End Sub

isabelle

Le 2011-02-16 19:43, Catherine Ruppen a écrit :
Bonjour à tous,

Sur une feuille Excel 2003 se trouvent plusieurs rectangles créés avec
la barre d'outils dessin. Il y a du texte dans ces rectangles et je
souhaiterais connaitre la syntaxe en VBA pour récupérer ce texte dans
une variable.

Merci d'avance pour votre réponse.
Catherine

JB
Le #23133511
Bonjour,

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#RecupTexte

Sub RecupTexteShapes()
ligne = 2
For Each s In Sheets(1).Shapes
Cells(ligne, 1) = s.Name
Cells(ligne, 2) = s.TextFrame.Characters.Text
Cells(ligne, 3) = s.TopLeftCell.Address
Cells(ligne, 4) = s.Type
ligne = ligne + 1
Next s
End Sub

JB
http://boisgontierjacques.free.fr


On 17 fév, 01:43, Catherine Ruppen
Bonjour à tous,

Sur une feuille Excel 2003 se trouvent plusieurs rectangles créés ave c
la barre d'outils dessin. Il y a du texte dans ces rectangles et je
souhaiterais connaitre la syntaxe en VBA pour récupérer ce texte dans
une variable.

Merci d'avance pour votre réponse.
Catherine
michdenis
Le #23134221
Bonjour,

Il y a aussi ceci :
'-------------------------------
Sub test()
Dim Obj As Shape
For Each Obj In Sheet1.Shapes
If TypeName(Obj.OLEFormat.Object) = "Rectangle" Then
MsgBox Obj.OLEFormat.Object.Text
End If
Next
End Sub
'-------------------------------


MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme