Fråga : Hur jag placerar en dra kanfas i MS Word 2010

Jag hade en makro in att uttrycka 2007 som dumpade en detalj som drar bak min sida. Den samma makroen i 2010 har krympt dra, och placerat lämnade det bästa tränga någon om en flytta sig mycket långsamt utanför den faktiska page.
My kodifierar är nedanfört. Jag har tillfogat i ankra fodrar, men de ändrar inte anything.
 > för 
1:
2:
3:
4:
5:
6:
7:
8:
9:
" codeBody " " shpCanvas för >Dim för class= " för
" klar "

Svar : Hur jag placerar en dra kanfas i MS Word 2010

Oops. Är här kodifiera.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

UnderInsertPicture ()
    Dunkel doc som Word.Document
    Dunkelt Sh som Shape
    Dunkla PicFile som stränger
    Dunkel rng som spänner
    
    Application.ScreenUpdating = falskt
        Uppsättning doc = ActiveDocument
        Fastställd rng = doc. Stycker (1). Spänna
        PicFile = ”J:\My Pictures\Al\DSCF1882.jpg”,
        Fastställdt Sh = doc. Shapes.AddPicture (PicFile, falskt, riktigt, rng)
        Med Sh
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .LockAspectRatio = True
            . Lämnad = 0
            . Överträffa = 0
            . Bredd = rng.PageSetup.PageWidth
            .WrapFormat.Type = wdWrapBehind
            . Namnge = ”det David borggårdfotoet 1.jpg”,
        Avsluta med
    Application.ScreenUpdating = True

Avsluta suben
Andra lösningar  
 
programming4us programming4us