FAQ Word

Sommaire > VBA > Images
        Comment ins�rer, redimensionner et positionner une image dans un document Word existant ?
        Comment coller dans Word une s�lection de cellules au format image Bitmap ?
        Comment ins�rer et modifier une image ?
        Comment ins�rer une image dans l'en-t�te de mon document ?
        Quels sont les diff�rents types d'images que l'on peut trouver dans un document ?
        Comment ins�rer un Gif anim� dans un document Word ?

��

��

��

Comment ins�rer, redimensionner et positionner une image dans un document Word existant ?

[haut]

auteur : SilkyRoad

N�cessite d'activer la r�f�rence "Microsoft Word xx.x Object Library" :

vba


Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String

    On Error Resume Next

    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("monDocument.doc")    'ouvrir le document Word

    WordDoc.InlineShapes.AddPicture Filename:= _
                                   "C:\Image1.JPG"    'adapter le chemin de l'image � ins�rer
    On Error GoTo 0

    With WordDoc.InlineShapes(1)    'adapter l'index si d'autres images existantes dans le document
        .Height = 190.75    'changement dimension image ins�r�e : hauteur
        .Width = 254#    'largeur
        .ConvertToShape
    End With

    With WordDoc.Shapes(1)
        .Top = 200    'position verticale de l'image dans le document
        .Left = 150    'position horizontale de l'image dans le document
        .ZOrder msoBringInFrontOfText    'image au premier plan devant le texte
        '.ZOrder msoSendBehindText 'option pour image en arri�re plan derri�re le texte
    End With

    'WordDoc.Close 'fermer le document Word
    'WordApp.Quit 'fermer l'application Word

Comment coller dans Word une s�lection de cellules au format image Bitmap ?

[haut]

auteur : SilkyRoad

N�cessite d'activer la r�f�rence "Microsoft Word xx.x Object Library" :

vba


Dim WordApp As Word.Application

    Selection.Copy

    Set WordApp = CreateObject("Word.Application")
    On Error Resume Next
    WordApp.Documents.Add
    WordApp.Visible = True

    WordApp.Selection.PasteSpecial DataType:=wdPasteBitmap
    Application.CutCopyMode = False

Comment ins�rer et modifier une image ?

[haut]

auteur : bidou

Les images ins�r�es dans le texte sont membres de la collection InlineShapes

Dim objDoc As Document, objShape As InlineShape

Set objDoc = Application.Documents.Add
Set objShape = Selection.InlineShapes.AddPicture(FileName:="C:\developpez\logo_developpez.gif", LinkToFile:=False, SaveWithDocument:=True)
With objShape
    .LockAspectRatio = msoTrue
    .Height = .Height * 0.5
    .Width = .Width * 0.5
End With

Ce code ins�re une image est la r�duit de moiti�

Comment ins�rer une image dans l'en-t�te de mon document ?

[haut]

auteur : Lebeau Olivier


Sub AjouterImage()
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
.Shapes.AddPicture FileName:="c:\temp\licence.jpg", LinkToFile:=False, SaveWithDocument:=True
End With
End Sub

Pour atteindre l'en-t�te ou le pied de page d'un document, il faut atteindre la section du document.

Quels sont les diff�rents types d'images que l'on peut trouver dans un document ?

[haut]

auteur : Lebeau Olivier

Dans un document Word, on peut retrouver deux types d'images. Ces types d'images sont fonction de la position de l'image par rapport au texte. Si l'image se trouve dans l'alignement du texte, vous avez affaire � une image du type "InlineShape". Les images InlineShape appartiennent � la collection InlineShapes. Si votre image est ind�pendante du texte, elle se trouve devant, derri�re, encadr�e, ... votre image est de type Shape et appartient � la collection Shapes.

Le traitement de ces images se d�roule de la m�me mani�re, cependant, certaines propri�t�s sont fondamentalement diff�rentes.


Sub TestTypeImage()
Dim i As Integer
If Not IsNull(ActiveDocument.InlineShapes.Count) Then
    i = ActiveDocument.InlineShapes.Count
    MsgBox "Votre document comporte " & i & vbCrLf & " Images de type InlineShape !"
End If
If Not IsNull(ActiveDocument.Shapes.Count) Then
    i = ActiveDocument.Shapes.Count
    MsgBox "Votre document comporte " & ActiveDocument.Shapes.Count & vbCrLf & " Images de type Shape !"
End If
End Sub

Le code ci-dessus vous permettra de v�rifier le type d'images pr�sent dans votre document.

Comment ins�rer un Gif anim� dans un document Word ?

[haut]

auteurs : Aiacciu, Lebeau Olivier

Cette m�thode a �t� test�e sous Word 2007

Dans l'onglet d�veloppeur, choisir dans le groupe Contr�les le bouton Outils H�rit�s.
Utilisez le bouton Autres Contr�les et dans la liste, choisissez Microsoft Web Browser.

Vous vous retrouvez avec un affichage comme celui-ci.

Dans le VBE, pour ThisDocument, vous choisissez dans la liste Document

et l'�v�nement Open

Ajoutez le code suivant :


Private Sub Document_Open()
WebBrowser.Navigate "C:\Documents and Settings\Olivier\Mes documents\Mes images\Gifs\easy.gif"
End Sub

Pour parfaire l'affichage il reste quelques petites modifications � apporter.
Dans la liste de gauche choisissez WebBrowser1 et dans celle de droite DocumentComplete.

Modifez le code pour qu'il ressemble � ceci :


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'supprime les scrollbars
WebBrowser1.Document.body.scroll = "no" 
'supprime les traits de profondeur
WebBrowser1.Document.body.Style.BorderStyle = "none" 
End Sub

Si vous voulez mettre votre gif derri�re le texte.
Basculez en mode cr�ation, avec un clic droit, choisissez Format de contr�le. Et dans habillage, placez le o� bon vous semble.

Il ne vous reste qu'� sauvegarder le fichier en *.docm, le fermer et le r�ouvrir.

��

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.