OVH Cloud OVH Cloud

Coller un graphique en image en macro

11 réponses
Avatar
Laurent
Bonjour
J'aurais besoin d'aide pour automatiser une action dans Word.
Je mets à jour régulièrement un document Word récapitulant des données de
tableaux Excel. Je souhaite automatiser cette action, mais il y a une chose
que je n'arrive pas à faire :
Je n'arrive pas à coller mes graphiques en tant qu'image avec l'option
d'habillage aligné sur le texte. mais je n'arrive pas à faire les deux soit
je colle "aligné" soit je colle "en image".
Pouvez vous m'aider SVP ?

Merci d'avance
Laurent

10 réponses

1 2
Avatar
Tisane
Bonjour Laurent,

J'aurais besoin d'aide pour automatiser une action dans Word.
Je mets à jour régulièrement un document Word récapitulant des
données de tableaux Excel. Je souhaite automatiser cette action, mais
il y a une chose que je n'arrive pas à faire :
Je n'arrive pas à coller mes graphiques en tant qu'image avec l'option
d'habillage aligné sur le texte. mais je n'arrive pas à faire les
deux soit je colle "aligné" soit je colle "en image".


Tes 2 dernières phrases me laissent songeuse...
Tu veux coller "aligné" OU coller "en image" ?
Tu peux modifier le type de collage par défaut dans le menu Outils |
Options, onglet [Edition], "Insérer/coller des images en tant que".

Nota : mais pourquoi ne pas lier ton graphique Excel dans Word puisque tu
mets à jour régulièrement ?
--
Tisane

Avatar
Laurent
Je veux coller en image ... ET ... "Aligné sur le texte"...
En image car le fichier lié change tous les mois (archiver tous les mois) et
que si je laisse une liaison, mon document Word qui contient une vingtaine de
graphique passe de 434 Ko à 70 Mo....
"Aligné sur le texte", car les images flottantes même ancré ont tendance à
se "ballader" un peu.
Donc je fais manullement un collage spécial en tant qu'image puis sur les
propriétés de l'image je sélectionne l'habillage adéquate. Lorsque je veux
automatiser j'utilise :
Selection.PasteSpecial Link:úlse, DataType:=wdPasteEnhancedMetafile,
Placement:=wdFloatOverText, DisplayAsIcon:úlse
si je remplace le wdFloatOverText par WdInLine ca ne fonctionne pas... sauf
si j'enlève le Datatype :
Selection.PasteSpecial Link:úlse, Placement:=wdInLine, DisplayAsIcon:úlse
Mais la mon graphique n'est plus en image.

J'ai essayé avec l'enregistrement automatique d'une macro mais la fonction
"aligné sur le texte" n'est plus active en enregistrement.



Bonjour Laurent,

J'aurais besoin d'aide pour automatiser une action dans Word.
Je mets à jour régulièrement un document Word récapitulant des
données de tableaux Excel. Je souhaite automatiser cette action, mais
il y a une chose que je n'arrive pas à faire :
Je n'arrive pas à coller mes graphiques en tant qu'image avec l'option
d'habillage aligné sur le texte. mais je n'arrive pas à faire les
deux soit je colle "aligné" soit je colle "en image".


Tes 2 dernières phrases me laissent songeuse...
Tu veux coller "aligné" OU coller "en image" ?
Tu peux modifier le type de collage par défaut dans le menu Outils |
Options, onglet [Edition], "Insérer/coller des images en tant que".

Nota : mais pourquoi ne pas lier ton graphique Excel dans Word puisque tu
mets à jour régulièrement ?
--
Tisane





Avatar
Circé
Bonjour Laurent,

Il se trouve que Laurent a formulé :
Je veux coller en image ... ET ... "Aligné sur le texte"...
En image car le fichier lié change tous les mois (archiver tous les mois) et
que si je laisse une liaison, mon document Word qui contient une vingtaine de
graphique passe de 434 Ko à 70 Mo....


Impossible !!!
Parce que un lien de pèse rien !
Je pense que tu confonds Incorporation et Liaison...

Circé
http://faqword.free.fr

Avatar
Anacoluthe
Bonjour !

'Laurent' nous a écrit ...
Selection.PasteSpecial Link:úlse, DataType:=wdPasteEnhancedMetafile,
Placement:=wdFloatOverText, DisplayAsIcon:úlse
si je remplace le wdFloatOverText par WdInLine ca ne fonctionne pas...


Et puis cette ligne modifiée marche parfaitement chez moi ! :-)

Votre Selection est bien dans le texte n'est-ce pas ? :-p
(pas hors alignement comme une zone de texte par hasard...)

Anacoluthe
« Ce n’est pas la colle qui fait le collage. »
- Max ERNST

Avatar
Laurent
Je ne comprends pas, sous Office 2000 ca ne fonctionne pas, voici ce que je
fais :
Je sélectionne mon graphique dans Excel et je le copie
Ensuite je me place à l'endroit ou je veux insérer mon graphique en image
(dans le texte, et pas dans une zone de texte), je lance ma macro :
Sub colleImage()
Selection.PasteSpecial Link:úlse, DataType:=wdPasteEnhancedMetafile,
Placement:=wdInLine, DisplayAsIcon:úlse
End Sub
Mon image est toujours en flottant.
Test effectué sur un office 2003 : même symptome



Bonjour !

'Laurent' nous a écrit ...
Selection.PasteSpecial Link:úlse, DataType:=wdPasteEnhancedMetafile,
Placement:=wdFloatOverText, DisplayAsIcon:úlse
si je remplace le wdFloatOverText par WdInLine ca ne fonctionne pas...


Et puis cette ligne modifiée marche parfaitement chez moi ! :-)

Votre Selection est bien dans le texte n'est-ce pas ? :-p
(pas hors alignement comme une zone de texte par hasard...)

Anacoluthe
« Ce n’est pas la colle qui fait le collage. »
- Max ERNST





Avatar
Laurent
C'est vrai j'ai confondu.... mais de la à dire qu'un lien ne pèse rien, ce
n'est pas tout à fait vrai :o)
Je n'utilise pas de lien parce que tous les destinataires du fichier Word
n'ont pas forcément accès aux fichiers Excel. Je pourrais utiliser un pdf
pour la diffusion, mais certains destinataire sont susceptibles d'y apposer
leurs commentaires (pas possible avec un adobe reader).


Bonjour Laurent,

Il se trouve que Laurent a formulé :
Je veux coller en image ... ET ... "Aligné sur le texte"...
En image car le fichier lié change tous les mois (archiver tous les mois) et
que si je laisse une liaison, mon document Word qui contient une vingtaine de
graphique passe de 434 Ko à 70 Mo....


Impossible !!!
Parce que un lien de pèse rien !
Je pense que tu confonds Incorporation et Liaison...

Circé
http://faqword.free.fr






Avatar
Tisane
Bonjour Laurent,

C'est vrai j'ai confondu.... mais de la à dire qu'un lien ne pèse
rien, ce n'est pas tout à fait vrai :o)
Je n'utilise pas de lien parce que tous les destinataires du fichier
Word n'ont pas forcément accès aux fichiers Excel. Je pourrais
utiliser un pdf pour la diffusion, mais certains destinataire sont
susceptibles d'y apposer leurs commentaires (pas possible avec un
adobe reader).


Si tu utilises Adobe Acrobat 7 (7.0.8), tu peux autoriser tes destinataires
à ajouter des commentaires à ton document pdf, même s'ils n'ont qu'Adobe
Reader :
- menu Commentaires | Autoriser la saisie des commentaires et l'analyse dans
Adobe Reader

--
Tisane

Avatar
Laurent
...mais je n'ai pas Acrobat 7, j'ai toujours la version 5...


Bonjour Laurent,

C'est vrai j'ai confondu.... mais de la à dire qu'un lien ne pèse
rien, ce n'est pas tout à fait vrai :o)
Je n'utilise pas de lien parce que tous les destinataires du fichier
Word n'ont pas forcément accès aux fichiers Excel. Je pourrais
utiliser un pdf pour la diffusion, mais certains destinataire sont
susceptibles d'y apposer leurs commentaires (pas possible avec un
adobe reader).


Si tu utilises Adobe Acrobat 7 (7.0.8), tu peux autoriser tes destinataires
à ajouter des commentaires à ton document pdf, même s'ils n'ont qu'Adobe
Reader :
- menu Commentaires | Autoriser la saisie des commentaires et l'analyse dans
Adobe Reader

--
Tisane





Avatar
Tisane
Je pourrais
utiliser un pdf pour la diffusion, mais certains destinataire sont
susceptibles d'y apposer leurs commentaires (pas possible avec un
adobe reader).


Si tu utilises Adobe Acrobat 7 (7.0.8), tu peux autoriser tes
destinataires à ajouter des commentaires à ton document pdf, même
s'ils n'ont qu'Adobe Reader :
- menu Commentaires | Autoriser la saisie des commentaires et
l'analyse dans Adobe Reader


...mais je n'ai pas Acrobat 7, j'ai toujours la version 5...


Ok, mais la version n'étant pas indiquée dans ton message, j'ai préféré
signaler l'existence de cette possibilité pour les autres utilisateurs.
Il est toujours difficile d'affirmer que quelque chose n'est pas possible en
informatique ;-)

--
Tisane



Avatar
Circé
Bonsoir,


Laurent avait soumis l'idée :
C'est vrai j'ai confondu.... mais de la à dire qu'un lien ne pèse rien, ce
n'est pas tout à fait vrai :o)


Un lien, c'est juste un champ LINK, autant dire que pèse quelques ko,
pas plus !!! rien à voir avec tes Mo !!

Cela étant dit, ton code fonctionne bien chez moi aussi, mais tu peux
essayer d'utiliser à la place cette ligne de code :
Selection.PasteAndFormat (wdChartPicture)

en réglant auparavant tes options de collage :
Outils / Options / Editions / Insérer/coller des images en tant que :
aligné sur le texte.

Circé
http://faqword.free.fr

Je n'utilise pas de lien parce que tous les destinataires du fichier Word
n'ont pas forcément accès aux fichiers Excel. Je pourrais utiliser un pdf
pour la diffusion, mais certains destinataire sont susceptibles d'y apposer
leurs commentaires (pas possible avec un adobe reader).


Bonjour Laurent,

Il se trouve que Laurent a formulé :
Je veux coller en image ... ET ... "Aligné sur le texte"...
En image car le fichier lié change tous les mois (archiver tous les mois)
et que si je laisse une liaison, mon document Word qui contient une
vingtaine de graphique passe de 434 Ko à 70 Mo....


Impossible !!!
Parce que un lien de pèse rien !
Je pense que tu confonds Incorporation et Liaison...

Circé
http://faqword.free.fr








1 2