Bonjour,
Par quel code puis je insérer une image dans l'en-tête d'un document Word à partir du VBA d'Access ?
Merci de votre aide
lou
Bonjour,
Par quel code puis je insérer une image dans l'en-tête d'un document Word à partir du VBA d'Access ?
Merci de votre aide
lou
Bonjour,
Bel exercice, j'ai donc tenté et trouvé cette solution
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
23
24
25
26
27
28
29
30
31
32
33
34 Sub Word() On Error GoTo erreur Dim wo As Object, dc As Object, f As Field, sh As Shape Set wo = CreateObject("word.Application") 'ouvre Word wo.Visible = True wo.Documents.Add 'ajoute un document Set dc = wo.ActiveDocument dc.Paragraphs.Add dc.Paragraphs(1).Range.Text = vbCrLf & "Bonjour," & vbCrLf & vbCrLf & "L'entête de ce document contient une image" With dc.Sections.First.Headers(wdHeaderFooterPrimary) 'section entête .Shapes.AddOLEObject FileName:="c:\word\image\mygale.bmp", LinkToFile:=False 'ajout d'un objet OLE Set sh = .Shapes(1) sh.PictureFormat.Brightness = 0.2 'pour noircir un peu l'image sh.PictureFormat.Contrast = 0.5 sh.Visible = True sh.Name = "Image" sh.Height = 20 sh.Width = 40 sh.Top = 0 sh.Left = -20 'retrait par rappport à la marge End With dc.SaveAs "c:\word\entete.doc" dc.Close wo.Quit Exit Sub erreur: End Sub
Tout d'abord un grand merci pour t'être préoccupé de mon problème
mais... si ton code amène bien une image et un texte disant qu'il est dans l'entête, il n'en est rien : tout s'imprime dans le corps de texte...
Lou
désolé, je n'avais pas bien regardé....
encore merci
Lou
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager