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

FAQ Word

logo
Sommaire > VBA > Images
        Comment insrer, redimensionner et positionner une image dans un document Word existant ?
        Comment coller dans Word une slection de cellules au format image Bitmap ?
        Comment insrer et modifier une image ?
        Comment insrer une image dans l'en-tte de mon document ?
        Quels sont les diffrents types d'images que l'on peut trouver dans un document ?
        Comment insrer un Gif anim dans un document Word ?

rechercher
precedent sommaire suivant telechargermiroir


Comment insrer, redimensionner et positionner une image dans un document Word existant ?
auteur : SilkyRoad
Ncessite d'activer la rfrence "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  insrer
    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 insre : 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 arrire plan derrire le texte
    End With

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

Comment coller dans Word une slection de cellules au format image Bitmap ?
auteur : SilkyRoad
Ncessite d'activer la rfrence "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 insrer et modifier une image ?
auteur : bidou
Les images insres 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 insre une image est la rduit de moiti


Comment insrer une image dans l'en-tte de mon document ?
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-tte ou le pied de page d'un document, il faut atteindre la section du document.


Quels sont les diffrents types d'images que l'on peut trouver dans un document ?
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 indpendante du texte, elle se trouve devant, derrire, encadre, ... votre image est de type Shape et appartient la collection Shapes.

Le traitement de ces images se droule de la mme manire, cependant, certaines proprits sont fondamentalement diffrentes.

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 vrifier le type d'images prsent dans votre document.


Comment insrer un Gif anim dans un document Word ?
auteurs : Aiacciu, Lebeau Olivier
Cette mthode a t teste sous Word 2007

Dans l'onglet dveloppeur, choisir dans le groupe Contrles le bouton Outils Hrits.
Utilisez le bouton Autres Contrles 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'vnement 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 derrire le texte.
Basculez en mode cration, avec un clic droit, choisissez Format de contrle. Et dans habillage, placez le o bon vous semble.

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


rechercher
precedent sommaire suivant telechargermiroir

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.