Récupérer le texte dans un rectangle

Le
Catherine Ruppen
Bonjour tous,

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

Merci d'avance pour votre rponse.
Catherine
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