[VBA-W]collage spécial graphe [Résolu]

[dev81]

Bonjour,
J'insère un graphe excel dans word et je voudrais l'insérer dans le texte et pas sur le texte.
De plus je souhaiterai le réduire de moitié.

Comment fait on?Merci

Code :

1
2
3
4
5
6
7
8
9
Set Xlf2 = XlCl.Worksheets("Sheet2") '< la feuille
        For Each obj In Xlf2.ChartObjects
            With Xlf2.ChartObjects(obj.Name)
                .Copy
            End With
            Selection.Paste
            DoEvents
        Next
        VidePressePapier

[dadavyvy]

Et avec ?

Code :

1
2
3
4
5
6
Set Xlf2 = XlCl.Worksheets("Sheet2") '< la feuille
For Each obj In Xlf2.ChartObjects
    obj.Chart.ChartArea.Copy
    Selection.Paste
    DoEvents
Next obj

[ouskel'n'or]

Sur VBA 97, tu peux préciser "Dissocier du texte Oui/non" (case à cocher)
Le code

Code :

1
2
    Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement _
        :=wdInLine

Tu dis, j'en profiterai pour le préciser dans "Vos contributions"
Merci
A+

[dev81]

Merci pour le renseignement

[dev81]

Envoyé par ouskel'n'or

Sur VBA 97, tu peux préciser "Dissocier du texte Oui/non" (case à cocher)
Le code

Code :

Tu dis, j'en profiterai pour le préciser dans "Vos contributions"
Merci
A+

Elle est sur Word 2002?Et si oui, elle se trouve ou cette case à cocher.
La premiere réponse me convient.