Copier un graphique dans un document Word 6

Numéro d'article: 462220 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F12220
Agrandir tout | Réduire tout

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

Numéro d'article: 462220 - Dernière mise à jour: mardi 24 février 2004 - Version: 2.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 2.0 Standard
  • Microsoft Access 95 Standard
Mots-clés : 
mdl KB462220
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
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.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com