Вопрос : Как делает положение I холстина чертежа в слове MS 2010

Я имел макрос в слове 2007 сбросило определенный чертеж за моей страницой. Такой же макрос в 2010 сжимал чертеж, и расположено верхний левый угол около дюйм вне фактического Кодего page.

My ниже. Я добавлял в ставя на якорь линиях, но они не изменяют anything.
class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6: 7: 8: 9:

shpCanvas >Dim " class= " " codeSnippet801745 id=

class=

Ответ : Как делает положение I холстина чертежа в слове MS 2010

Oops. Здесь Кодий.

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 () Тусклый doc как Word.Document Тусклое Sh как форма Тусклое PicFile как шнур Тусклое rng как ряд Application.ScreenUpdating = ложно Установите doc = ActiveDocument Установите rng = doc. Параграфы (1).Range PicFile = «J:\My Pictures\Al\DSCF1882.jpg» Установленное Sh = doc. Shapes.AddPicture (PicFile, ложное, поистине, rng) С Sh .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage .RelativeVerticalPosition = wdRelativeVerticalPositionPage .LockAspectRatio = True . Левая сторона = 0 . Верхняя часть = 0 . Ширина = rng.PageSetup.PageWidth .WrapFormat.Type = wdWrapBehind . Имя = «фотоий 1.jpg Дэвид Bailey» Конец с Application.ScreenUpdating = True Подводная лодка конца