[решено] Изменение местоположения картинки в Word через COM-объект

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

Изменение местоположения картинки в Word через COM-объект

Привет!

Есть документ docx, где вставлена картинка.

Как изменить у этой картинки местоположение через COM-объект?
Например, на X мм вправо и на Y мм вверх или на X мм влево и на Y мм вниз?

Нашёл. Пример двигает все картинки в документе.

Код:

$path = "D:\temp\text.docx"



$Word = new-object -ComObject Word.Application

$Word.Visible = $False

$doc = $Word.Documents.Open($path,$true)



# 28.35 = 1 см.

# left: увеличение - вправо, уменьшение - влево

# top: увеличение - вниз, уменьшение - вверх

1..$doc.Shapes.Count |% {

$doc.Shapes.Item($_).left = $doc.Shapes.Item($_).left + 28.35

$doc.Shapes.Item($_).top = $doc.Shapes.Item($_).top - 28.35

}



$doc.Save()

$doc.Close() 

$Word.Application.Quit()