Vraag : Hoe ik een tekeningscanvas in MS Word 2010 plaats

Ik had een macro in Word 2007 dat een bepaalde tekening achter mijn pagina dumpte. De zelfde macro in 2010 is de tekening gekrompen, en geplaatst de hoogste linkerhoek over een duim buiten de daadwerkelijke/>My code page.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:

Dim als Vorm
          
    Vastgestelde shpCanvas = Verlaten ActiveDocument.Shapes.AddCanvas (: =0, Bovenkant: =0, Breedte: =860, Hoogte: =596)
    
    shpCanvas.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    shpCanvas.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    
    shpCanvas.CanvasItems.AddPicture FileName: = " C:\CompanyData\InternalDocs\graphics\Letterhead.jpeg ", LinkToFile: =False, SaveWithDocument: Verlaten =True: =0, Bovenkant: =0, Breedte: =596, Hoogte: =860
    shpCanvas.WrapFormat.Type = wdWrapBehind

Antwoord : Hoe ik een tekeningscanvas in MS Word 2010 plaats

Oops. Hier is de code.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Sub InsertPicture ()
    Schemerig doc. als Word.Document
    Schemerige Sh als Vorm
    Schemerige PicFile als Koord
    Schemerige rng als Waaier
    
    Application.ScreenUpdating = Vals
        Vastgesteld doc. = ActiveDocument
        Reeks rng = doc. Paragrafen (1). Waaier
        PicFile = „J:\My Pictures\Al\DSCF1882.jpg“
        Vastgestelde Sh = doc. Shapes.AddPicture (Vals, Ware PicFile, rng)
        Met Sh
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .LockAspectRatio = Waar
            . Linkerzijde = 0
            . Bovenkant = 0
            . Breedte = rng.PageSetup.PageWidth
            .WrapFormat.Type = wdWrapBehind
            . Naam = „David Bailey Photo 1.jpg“
        Eind met
    Application.ScreenUpdating = Waar

Sub van het eind
Andere oplossingen  
 
programming4us programming4us