Frage : Wie i-Position ein Zeichnungssegeltuch in MS Word 2010 tun

Ich hatte ein Makro in Wort 2007, das eine bestimmte Zeichnung hinter meiner Seite entleerte. Das gleiche Makro 2010 geschrumpft die Zeichnung, und die oberste linke Ecke ein ungefähr Zoll außerhalb des tatsächlichen page.

My Codes in Position gebracht ist unten. Ich hinzugefügt in den befestigenlinien gt, aber sie ändern nicht anything.
 
1:
2:
3:
4:
5:
6:
7:
8:
9:

Dim shpCanvas als Form
          
    shpCanvas = ActiveDocument.Shapes.AddCanvas einstellen (verließ: =0, Oberseite: =0, Breite: =860, Höhe: =596)
    
    shpCanvas.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    shpCanvas.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    
    shpCanvas.CanvasItems.AddPicture Dateiname: = " C:\CompanyData\InternalDocs\graphics\Letterhead.jpeg ", LinkToFile: =False, SaveWithDocument: =True, gelassen: =0, Oberseite: =0, Breite: =596, Höhe: =860
    shpCanvas.WrapFormat.Type = wdWrapBehind

Antwort : Wie i-Position ein Zeichnungssegeltuch in MS Word 2010 tun

Oops. Ist hier der 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:

VorInsertPicture ()
    Schwaches Doc. als Word.Document
    Schwaches SH als Form
    Schwaches PicFile als Schnur
    Schwaches rng als Strecke
    
    Application.ScreenUpdating = falsch
        Einstellen Doc. = ActiveDocument
        Rng = Doc. einstellen. Punkte (1).Range
        PicFile = „J:\My Pictures\Al\DSCF1882.jpg“
        Gesetztes SH = Doc. Shapes.AddPicture (PicFile, falsches, zutreffendes, rng)
        Mit SH
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .LockAspectRatio = ausrichten en
            . Links = 0
            . Oberseite = 0
            . Breite = rng.PageSetup.PageWidth
            .WrapFormat.Type = wdWrapBehind
            . Name = „Foto 1.jpg David-Bailey“
        Ende mit
    Application.ScreenUpdating = ausrichten en

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us