Inserer du texte !!!!

3 réponses

Matt

27/11/2003 à 11:47

Bonjour =E0 tous !
J'ai une macro qui me permet de cr=E9er des rectangles au=20
dimension voulu en renseignant celle ci dans des cellules=20
d=E9termin=E9, cependant je voudrais pouvoir insere dans ces=20
rectangles le texte contenu dans une cellule d=E9termin=E9,=20
comment puis je faire...?

Merci de vos r=E9ponse - ci-joint la macro

Matt

Sub Ins=E9rerUnRectangle()
W =3D [b4]: H =3D [c4]
Set Rectangle =3D ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
W =3D [b5]: H =3D [c5]
Set Rectangle =3D ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
End Sub

3 réponses

Emcy

27/11/2003 à 13:19

Salut,

pourquoi n'ytilises tu pas une zone de text plustot
qu'une shape ?

Utilises l'entregistreur de macro pour savoir comment
insérer du Text

ça te va?

-----Message d'origine-----
Bonjour à tous !
J'ai une macro qui me permet de créer des rectangles au
dimension voulu en renseignant celle ci dans des
cellules

déterminé, cependant je voudrais pouvoir insere dans ces
rectangles le texte contenu dans une cellule déterminé,
comment puis je faire...?

Merci de vos réponse - ci-joint la macro

Matt

Sub InsérerUnRectangle()
W = [b4]: H = [c4]
Set Rectangle = ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
W = [b5]: H = [c5]
Set Rectangle = ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
End Sub

.

Denis Michon

27/11/2003 à 14:00

Bonjour Matt,

voici une procédure qui boucle sur tous les objets de ta feuille et va insérer le contenu dans chaque objet de type rectangle
seulement. Le contenu sera celui de la plage A1:Ax de la feuille 1

Tu devras adapter selon ton application...le nom de la feuille , plage de cellules...

'---------------------------
Sub InsérerDuTexteDansRectangle()

Dim Sh As Object
Dim T As MsoAutoShapeType
T = msoShapeRectangle

With Worksheets("Feuil1")
For Each Sh In .Shapes
If Sh.Type = T Then
A = A + 1
Sh.OLEFormat.Object.Text = .Range("A" & A)
End If
Next
End With

End Sub
'---------------------------

Salutations!

"Matt" a écrit dans le message de news:093e01c3b4d3$e0b085f0$
Bonjour à tous !
J'ai une macro qui me permet de créer des rectangles au
dimension voulu en renseignant celle ci dans des cellules
déterminé, cependant je voudrais pouvoir insere dans ces
rectangles le texte contenu dans une cellule déterminé,
comment puis je faire...?

Merci de vos réponse - ci-joint la macro

Matt

Sub InsérerUnRectangle()
W = [b4]: H = [c4]
Set Rectangle = ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
W = [b5]: H = [c5]
Set Rectangle = ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
End Sub

Alain CROS

27/11/2003 à 15:39

Bonjour.
Avec les paramètres pour les rectangles en ligne de a4 a e4 pour le premier rectangle
a5 a e5 pour le second, etc...
Sub InsertRectangles(I&, J&)
Dim K&
For K = I To J
ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("a" & K), Range("b" & K), _
Range("c" & K), Range("d" & K)).TextFrame.Characters.Text = Range("e" & K)
Next K
End Sub
Sub test()
InsertRectangles 4&, 5&
End Sub

Alain CROS.

"Matt" a écrit dans le message de news: 093e01c3b4d3$e0b085f0$
Bonjour à tous !
J'ai une macro qui me permet de créer des rectangles au
dimension voulu en renseignant celle ci dans des cellules
déterminé, cependant je voudrais pouvoir insere dans ces
rectangles le texte contenu dans une cellule déterminé,
comment puis je faire...?

Merci de vos réponse - ci-joint la macro

Matt

Sub InsérerUnRectangle()
W = [b4]: H = [c4]
Set Rectangle = ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
W = [b5]: H = [c5]
Set Rectangle = ActiveSheet.Shapes.AddShape
(msoShapeRectangle, _
L, T, W, H)
End Sub

Inserer du texte !!!!

3 réponses

Veuillez sélectionner un problème