VBA Word Сброс размеров рисунка

[bdfy]

 Set oRng = oDoc.Paragraphs.Last.Range

 oRng.select
 


oRng.InsertParagraphafter
oRng.Collapse 0 'end


oRng.InlineShapes.AddPicture Filename:= _
       file_name, LinkToFile:=False, _
        SaveWithDocument:=True

вставляю таким образом рисунок в документ Word. вот только он почему то всегда масштабируется. уменьшается немного. чтобы это выправить надо заходить в меню рисунка и нажать "сброс". как это сделать программно ? запись макроса ничего не дает ((

[bdfy]

дополню вопрос. изображение получается в визио. экспортом в emf формат. С масштабом в emf все нормально - печатал как картинку 1 к 1 все совпадает.
но как бы я не вставлял это в ворд - масштаб прилично искажается.

Set s = oRng.InlineShapes.AddPicture(Filena me:= _
s.ScaleHeight = 100
s.ScaleWidth = 100

не помогает, хотя галка "относительно исходного размера" стоит.
файлик во вложении. диаметр круга на изображении - 170мм. получить столько после распечатки в ворде - никак не выходит ((

[shanemac51]

размер вашего рисунка 21,6х23,5см

ни как не влезает в а4, только а3

вставтьте в а3 и получите почти желаемое

[bdfy]

да замечательно влазит с легкой обрезкой. кроме того с более мелкими рисунками аналогичная беда. опытным путем установил что помогает масштаб 103 %. но в чем юмор я не понял (

[Вождь]

Проблема где-то на этапе сохранения или создания фала emf. Открывал ваш файл в CorelDraw, там окружность тоже чуть меньше 170 мм. Нужен специалист по emf-формату.

[bdfy]

тогда почему печатая этот emf картинкой в irfan view например я получаю все корректно ? emf создавался в visio 2007

[Вождь]

Сообщение от bdfy

тогда почему печатая ... получаю все корректно

В том то и дело, что при преобразовании в точечный формат круг получается 170 мм, а в векторном он чуть меньше. Перед печатью файл видимо конвертируется. Так что проблема в формате файла, либо в нем самом, либо в его поддержке.

[bdfy]

хм... а что еще векторное можно придумать ? wmf, что еще ?

[Вождь]

Есть еще eps. Попробуйте поднять эту тему на форумах по Visio и т.п.

Векторная графика не имеет размеров. Реальные же размеры прописываются внутри файла в виде кучи параметров. По-моему здесь и надо копать, но тут я не специалист.

Вот подтверждение. Экспортировал в emf из CorelDraw, затем открыл в Word. Искажений не появилось!

[shanemac51]

Сообщение от bdfy

да замечательно влазит с легкой обрезкой. кроме того с более мелкими рисунками аналогичная беда. опытным путем установил что помогает масштаб 103 %. но в чем юмор я не понял (

может функции написаны на разный размер пункта\пикселя