Coller le contenu du shapes dans cellule

C

carlos

XLDnaute Impliqué

• 9 Avril 2010

• #2

Re : Coller le contenu du shapes dans cellule

Re

Voici une PJ

Carlos

 

Pièces jointes

• Coller Valeur Autoshapes 2 en A1.xls

  24.5 KB · Affichages: 73

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 9 Avril 2010

• #3

Re : Coller le contenu du shapes dans cellule

Bonjour carlos,

insère textframe comme ceci:

Code:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 9 Avril 2010

• #4

Re : Coller le contenu du shapes dans cellule

Bonjour Skoobi

Nickel

Merci

Carlos

 

Vote positif 0 Vote négatif

R

reve24

XLDnaute Occasionnel

• 10 Avril 2010

• #5

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 12 Avril 2010

• #6

Re : Coller le contenu du shapes dans cellule

Bonjour reve24,

voici la syntaxe pour créer des shapes:

Code:

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

Et l'exemple:

Code:

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.

 

Dernière édition: 12 Avril 2010

Vote positif 0 Vote négatif