IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Insérer image dans footer


Sujet :

VBA Word

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    Octobre 2011
    Messages
    25
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2011
    Messages : 25
    Points : 17
    Points
    17
    Par défaut Insérer image dans footer
    Bonjour,

    je dispose d'un document word de 5 pages. Chaque page correspond à une section.
    Je souhaite ajouter via une macro un logo dans les pieds de page des pages 2 à 5.
    J'utilise le code ci-dessous.

    Mon problème est que si le document word est ouvert de telle sorte qu'une seule page apparaît en largeur à l'écran (word ouvert sur la moitié de mon écran), tout fonctionne correctement.
    Si par contre word s'ouvre en pleine largeur d'écran avec deux pages affichés, la macro n'insère le logo que sur la page 2.

    Merci pour votre aide

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Public Sub insert_logo_footer(ch As String, v As Single, h As Single)
    Dim img As Shape
     
    Set img = ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary) _
    .InlineShapes.AddPicture(FileName:=ch, LinkToFile:=False, SaveWithDocument:=True)
        With img
            .RelativeHorizontalPosition = 1
            .RelativeVerticalPosition = 1
            .Left = CentimetersToPoints(1.18)
            .Top = CentimetersToPoints(v)
            .LockAspectRatio = msoTrue
            .ScaleHeight h, True
        End With
    End Sub

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Février 2010
    Messages
    194
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2010
    Messages : 194
    Points : 378
    Points
    378
    Par défaut
    Bonjour,

    je suis pas un expert mais je pense que dans tous les cas les macros word sont faite pour fonctionnées en mode d'affichage Page.
    Je te conseil donc d'ajouter un truc du genre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
     
    Sub demo()
    Dim VueCourante As WdViewType
     
    with ActiveWindow.ActivePane.View
        VueCourante = .Type
       .Type = wdPrintView
       'puis pour travailler sur le pied de page 
       .SeekView = wdSeekCurrentPageFooter
    end with
     
    'ton code ici
     
     'Sortie du Pied de page
     with  ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageHeader
        .SeekView = wdSeekMainDocument
        .View.Type = VueCourante
    End with
    End Sub
    De plus un truc pour les pieds de page. si ton document comporte un pied de page unique pour toutes les pages il est préférable d'activer la liaison entre page.
    Cela à pour effet de répéter le pied de page sur toute les pages liées

    si l'on reprend la macro du dessus cela doit donné un truc du genre :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Sub demo()
    Dim VueCourante As WdViewType
     
    with ActiveWindow.ActivePane.View
        VueCourante = .Type
       .Type = wdPrintView
       'puis pour travailler sur le pied de page 
       .SeekView = wdSeekCurrentPageFooter
    end with
    Selection.WholeStory
    Selection.Tables(1).Select 
    Selection.HeaderFooter.LinkToPrevious = True Then
     
    'ton code ici
     
     'Sortie du Pied de page
     with  ActiveWindow.ActivePane.View
        .SeekView = wdSeekCurrentPageHeader
        .SeekView = wdSeekMainDocument
        .View.Type = VueCourante
    End with
    End Sub
    Mais pour un fonctionnement optimal de cette liaison le saut de section doit être de type "saut de section page suivante".
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Selection.InsertBreak Type:=wdSectionBreakNextPage

Discussions similaires

  1. Insérer image dans div
    Par sandytarit dans le forum Mise en page CSS
    Réponses: 9
    Dernier message: 30/05/2007, 11h39
  2. insérer image dans base de données
    Par eriz dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 16/04/2007, 13h03
  3. HELP ! insérer Image dans le main ?
    Par lex13 dans le forum AWT/Swing
    Réponses: 11
    Dernier message: 04/04/2007, 15h12
  4. insérer images dans nbm
    Par jessie dans le forum NetBeans
    Réponses: 1
    Dernier message: 18/01/2007, 00h32
  5. [MySQL] insérer image dans bdd grace a un formulaire
    Par pod1978 dans le forum PHP & Base de données
    Réponses: 10
    Dernier message: 14/03/2006, 09h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo