Vous êtes actuellement hors ligne, en attente de reconnexion à Internet.

Copier un graphique dans un document Word 6

Ancien nº de publication de cet article : F12220
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.
Symptômes

Dans un formulaire Access, j'ai défini un graphique. Je souhaite
incorporer ce graphique dans un document Word 6 et automatiquement
imprimer et sauver ce document. Comment réaliser ces opérations ?


Résolution

Pour réaliser ces opérations, créez un objet OLE de type
Word.Basic. Ouvrez le document Word au travers ce l'objet, Placez-vous
sur le signet et collez le graphique.


EXEMPLE :

Vous avez créé un document WORD de nom insergra.doc dans un répertoire
e:\docs\divers. Il contient un signet de nom MonGraph au niveau duquel
l'insersion du graphique provenant d'Access va être réalisée. L'extrait
de code suivant décrit les différentes opérations à effectuer. Il peut
être appelé par exemple sur l'événement
Sur click d'un bouton de commande.

Sub Bouton1_Click ()

Dim AppliWord As Object

' copie du graphique dans le presse-papier
Me![MonGraphique].action = 4 ' constante OLE_COPY

' création d'un objet Word.basic à l'aide duquel
' vous allez piloter Word c'est à dire insérer le contenu
' du presse-papier au niveau d'un signet du document word
Set AppliWord = CreateObject("Word.basic")

' ouverture du fichier de données dans lequel le
' graphique va être inséré
AppliWord.FichierOuvrir "e:\docs\divers\insergra.doc"

' déplacement sur le signet contenu dans le document
AppliWord.EditionAtteindre "MonGraph"

' vous collez le contenu du presse-papier à la place du signet
AppliWord.EditionColler

' enregistrement du document ainsi modifié
AppliWord.FichierEnregistrer

' impression du fichier avec le graphique
AppliWord.FichierImprimer

' libération de l'objet
Set AppliWord = Nothing

End Sub


REMARQUE :

Cette manipulation peut également être réalisée pour tout type d'objet
pouvant s'insérer dans un cadre d'objet dépendant ou indépendant.
Propriétés

ID d'article : 462220 - Dernière mise à jour : 02/24/2004 16:37:44 - Révision : 2.0

Microsoft Access 2.0 Standard, Microsoft Access 95 Standard

  • mdl KB462220
Commentaires
t>