Cuestión : Cómo lo hace la posición de I una lona del dibujo en MS Word 2010

Tenía una macro en la palabra 2007 que descargó un dibujo particular detrás de mi página. La misma macro en 2010 ha encogido el dibujo, y colocado la esquina izquierda superior alrededor de una pulgada fuera del código real de page.

My está abajo. He agregado en las líneas de anclaje, pero no están cambiando anything.
 class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
shpCanvas notpretty del >Dim " del class= " de " codeSnippet801745 del id= del
class= del

Respuesta : Cómo lo hace la posición de I una lona del dibujo en MS Word 2010

Oops. Aquí está el código.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

InsertPicture secundario ()
    Doc. dévil como Word.Document
    Sh dévil como forma
    PicFile dévil como secuencia
    Rng dévil como gama
    
    Application.ScreenUpdating = falso
        Fijar doc. = ActiveDocument
        Fijar el rng = el doc. Párrafos (1).Range
        PicFile = “J:\My Pictures\Al\DSCF1882.jpg”
        Sh determinado = doc. Shapes.AddPicture (PicFile, falso, verdad, rng)
        Con Sh
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .LockAspectRatio = verdad
            . Izquierda = 0
            . Tapa = 0
            . Anchura = rng.PageSetup.PageWidth
            .WrapFormat.Type = wdWrapBehind
            . Nombre = “foto 1.jpg de David Bailey”
        Extremo con
    Application.ScreenUpdating = verdad

Submarino del extremo
Otras soluciones  
 
programming4us programming4us