Coller le contenu du shapes dans cellule

[carlos]

Bonjour
j'ai un shapes qui se nomme "AutoShape 7" et qui contient la valeur A1

comment coller la valeur de l'"AutoShape 7""A1" dans la cellule A1
range("A1").value = ActiveSheet.Shapes("AutoShape 7").Characters.Text

Merci

Carlos

 

[carlos]

Re : Coller le contenu du shapes dans cellule

Re

Voici une PJ

Carlos

 

[skoobi]

Re : Coller le contenu du shapes dans cellule

Bonjour carlos,

insère textframe comme ceci:

texte = ActiveSheet.Shapes("AutoShape 2")[COLOR=Blue][B].TextFrame[/B][/COLOR].Characters.Text

 

[carlos]

Re : Coller le contenu du shapes dans cellule

Bonjour Skoobi

Nickel

Merci

Carlos

 

[reve24]

Re : Coller le contenu du shapes dans cellule

Bonjour

ce fil m a interpellé , et serait il de faire le contraire
c est a dire a partir d une liste en colonne A
CREER DES SHAPES


Merci

 

[skoobi]

Re : Coller le contenu du shapes dans cellule

Bonjour reve24,

voici la syntaxe pour créer des shapes:

activesheet.shapes.AddShape(Type As MsoAutoShapeType, Left As Single, Top As Single, Width As Single, Height As Single)

Et l'exemple:

Sub forme()
Dim Shp As Shape
Set Shp = ActiveSheet.Shapes.AddShape(msoShapeBalloon, 0, 0, 200, 200)
End Sub

Pas sûr que ça réponde à la question mais ça servira surement à d'autres.