Pytanie : Jak I ustawiać rysunkowy kanwa w MS Słowo 2010

I miewać macro w Słowo 2007 che wywalać szczególny rysunek za mój strona. The ten sam macro w 2010 kurczyć się the rysunek, i ustawiać the odgórny lewy kąt o calowy na zewnątrz the faktyczny page.

My kod być faktyczny. I dodawać w the linia, ale zmieniać anything.
 
(1):
2:
3:
4:
5:
6:
7:
8:
9:

Dim shpCanvas Kształt
          
    Ustalony shpCanvas = ActiveDocument.Shapes.AddCanvas (Opuszczać: =0, Wierzchołek: =0, Szerokość: =860, Wzrost: =596)
    
    shpCanvas.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    shpCanvas.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    
    shpCanvas.CanvasItems.AddPicture FileName: = " C:\CompanyData\InternalDocs\graphics\Letterhead.jpeg ", LinkToFile: =False, SaveWithDocument: =True, Opuszczać: =0, Wierzchołek: =0, Szerokość: =596, Wzrost: =860
    shpCanvas.WrapFormat.Type = wdWrapBehind

Odpowiedź : Jak I ustawiać rysunkowy kanwa w MS Słowo 2010

Oops. Tutaj być the kod.
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Okręt podwodny InsertPicture ()
    Ciemnawy doc Jako Word.Document
    Ćmić Sh Kształt
    Ćmić PicFile Sznurek
    Ćmić rng Pasmo
    
    Application.ScreenUpdating = Fałszywy
        Set doc = ActiveDocument
        Ustalony rng = doc. Akapit (1).Range
        PicFile = "J:\My Pictures\Al\DSCF1882.jpg"
        Ustalony Sh = doc. Shapes.AddPicture (PicFile, Fałszywy, Prawdziwy, rng)
        Z Sh
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .LockAspectRatio = Prawdziwy
            . Lewica = (0)
            . Wierzchołek = (0)
            . Szerokość = rng.PageSetup.PageWidth
            .WrapFormat.Type = wdWrapBehind
            . Imię = "David Bailey Fotografia 1.jpg"
        Końcówka Z
    Application.ScreenUpdating = Prawdziwy

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us