none
Intégrer une image à un modèle Word RRS feed

  • Question

  • J'ai créer un modèle Word avec plusieurs macro. L'une d'elles consiste à placer une image au dessus d'un texte sélectionné. Cette macro est construite à l' aide d'un champ Eq et fonctionne parfaitement. Si dessous le code de cette macro.

    Sub Image(control As IRibbonControl)
        Selection.Cut
        Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
        Selection.TypeText Text:="EQ \O(\s\up8("
        Selection.InlineShapes.AddPicture FileName:="F:\Documents\chapeau.bmp", LinkToFile:=False, SaveWithDocument:=True
        Selection.TypeText Text:=");"
        Selection.PasteAndFormat (wdPasteDefault)
        Selection.TypeText Text:=")"
        Selection.Fields.ToggleShowCodes
        Selection.MoveRight Unit:=wdCharacter, Count:=1

    End Sub

    Mon problème est le suivant :

    Je voudrais par exemple copier ce modèle sur une clef USB et pouvoir l'utiliser sur un autre ordinateur. Le chemin actuel de l'image sur mon ordinateur

    ( "F:\Documents\chapeau.bmp") ne sera donc plus valide.

    Existe-t-il un moyen d'intégrer l'image à mon modèle ? Quelle modification dans le code de la macro ? ( cela m'éviterait sans doute de copier également l'image et de modifier à chaque fois le chemin de l'image dans le code de la macro )

    J' ai cherché dans l'aide de Word mais n'ai rien trouvé à ce sujet.

    Merci de votre aide.

     

     

    jeudi 29 avril 2010 19:36

Réponses

  • Bonsoir,

    Mon problème n' était pas d'insérer mon image " chapeau" mais de l'intégrer dans mon modèle afin qu'elle soit disponible dans une macro par exemple.

    Je pense avoir résolu mon problème en utilisant les blocs de construction qui peuvent être intégré à un modèle. J’ai défini mon image « chapeau » comme un bloc de construction ( galerie :insertion automatique,   catégorie :général, Modèle : mon modèle)

    Ces blocs de construction  ( dans Microsoft Office Word 2007) sont similaires aux insertions automatiques utilisées dans les versions précédentes et peuvent contenir du texte, des images et une mise en forme

    Ces blocs de construction sont accessibles :

    -       depuis le ruban de word : Insertion/QuickPart/Oganisateur de bloc de construction…

    -       par programmation : voir aide de Visual basic  BuildingBlock

    J' ai modifié la ligne 4 du code de ma macro de la façon suivante:

    ActiveDocument.AttachedTemplate.BuildingBlockEntries("chapeau").Insert   Where:=Selection.Range, RichText:=True

    Cordialement MJ

     

    • Proposé comme réponse Misange lundi 3 mai 2010 07:36
    • Marqué comme réponse Alex Petrescu lundi 3 mai 2010 07:42
    dimanche 2 mai 2010 20:32

Toutes les réponses

  • Bonjour,

     

    Il n’est pas possible d’ajouter un fichier image à un modèle Word. Il faut copier l’image si vous voulez déplacer le modèle sur une autre machine.

     

    Cordialement,

    Alex


    Appel à contribution ! http://social.msdn.microsoft.com/Forums/fr-FR/vbasicfr/thread/bd974e0e-5519-4122-b8fc-3b998207c34f
    vendredi 30 avril 2010 15:27
  • Bonsoir tétard
    [...]
    > ( "F:\Documents\chapeau.bmp") ne sera donc plus valide.
    >
    > Existe-t-il un moyen d'intégrer l'image à mon modèle ? Quelle
    > modification dans le code de la macro ? ( cela m'éviterait sans doute de
    > copier également l'image et de modifier à chaque fois le chemin de
    > l'image dans le code de la macro )
     
    Si vous intégrez l'image dans votre modèle, elle va apparaitre à
    l'endroit ou vous l'aurez placée.
    Encore que vous pourriez la mettre invisible, puis par macro la coller à
    différents endroits en visible.
     
    Si vous pouviez être plus explicite, sur l'utilisation de cette image,
    on pourrait vous aider plus efficacement.
    Vous ne voulez aps la mettre en filigrane par exemple ?
     
    Sinon il faudrait la mettre dans le même dossier que votre modèle et
    utiliser le chemin d'accès au modèle pour votre image.
     
    > J' ai cherché dans l'aide de Word mais n'ai rien trouvé à ce sujet.
     
    Vu la pauvreté grandissante de l'aide, ce n'est pas étonnant.
     
     
    vendredi 30 avril 2010 19:13
  • Bonsoir,

    Je pense avoir résolu mon problème en utilisant les blocs de construction qui peuvent être intégré à un modèle. J’ai défini mon image « chapeau » comme un bloc de construction ( galerie :insertion automatique,   catégorie :général, Modèle: mon modèle)

    Ces blocs de construction  ( dans Microsoft Office Word 2007) sont similaires aux insertions automatiques utilisées dans les versions précédentes et peuvent contenir du texte, des images et une mise en forme

    Ces blocs de construction sont accessibles :

    -       depuis le ruban de word : Insertion/QuickPart/Oganisateur de bloc de construction…

    -       par programmation : voir aide de Visual basic  BuildingBlock

    J'ai modifié la ligne 4 du code de ma macro de la façon suivante:

    ActiveDocument.AttachedTemplate.BuildingBlockEntries("chapeau").Insert   Where:=Selection.Range, RichText:=True

    J'ai essayé mon modèle sur une autre machine et cela fonctionne bien.

    Cordialement MJ

     

    dimanche 2 mai 2010 20:25
  • Bonsoir,

    Mon problème n' était pas d'insérer mon image " chapeau" mais de l'intégrer dans mon modèle afin qu'elle soit disponible dans une macro par exemple.

    Je pense avoir résolu mon problème en utilisant les blocs de construction qui peuvent être intégré à un modèle. J’ai défini mon image « chapeau » comme un bloc de construction ( galerie :insertion automatique,   catégorie :général, Modèle : mon modèle)

    Ces blocs de construction  ( dans Microsoft Office Word 2007) sont similaires aux insertions automatiques utilisées dans les versions précédentes et peuvent contenir du texte, des images et une mise en forme

    Ces blocs de construction sont accessibles :

    -       depuis le ruban de word : Insertion/QuickPart/Oganisateur de bloc de construction…

    -       par programmation : voir aide de Visual basic  BuildingBlock

    J' ai modifié la ligne 4 du code de ma macro de la façon suivante:

    ActiveDocument.AttachedTemplate.BuildingBlockEntries("chapeau").Insert   Where:=Selection.Range, RichText:=True

    Cordialement MJ

     

    • Proposé comme réponse Misange lundi 3 mai 2010 07:36
    • Marqué comme réponse Alex Petrescu lundi 3 mai 2010 07:42
    dimanche 2 mai 2010 20:32
  • Bonjour
     
    > Je pense avoir résolu mon problème en utilisant les blocs de
    > construction qui peuvent être intégré à un modèle. J’ai défini mon image
    > « chapeau » comme un bloc de construction ( galerie :insertion
    > automatique, catégorie :général, Modèle : mon modèle)
    >
    > Ces blocs de construction ( dans Microsoft Office Word 2007) sont
    > similaires aux insertions automatiques utilisées dans les versions
    > précédentes et peuvent contenir du texte, des images et une mise en forme
    >
    > Ces blocs de construction sont accessibles :
    >
    > - depuis le ruban de word : Insertion/QuickPart/Oganisateur de bloc de
    > construction…
    >
    > - par programmation : voir aide de Visual basic BuildingBlock
    >
    > J' ai modifié la ligne 4 du code de ma macro de la façon suivante:
    >
    > ActiveDocument.AttachedTemplate.BuildingBlockEntries("chapeau").Insert
    > Where:=Selection.Range, RichText:=True
     
    belle solution !
    Merci pour le suivi.
     
     
     
    lundi 3 mai 2010 06:47