[Predatore]

Цитата:

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

Вот только никак не разберусь, что делать если мне не нужно масштабировать картинки? Мне нужно выгружать их в реальном размере, которого у меня никак не получается узнать

Ковыряние в VBA привело вот к такой строчке ActiveSheet.Pictures.Insert (PicturePath), которая замечательно работает в Эксесле, но в Наве ругается на то, что не знает, что такое Insert (Не знаю, принципиально ли то, что вместо ActiveSheet, в Наве я использую WorkSheet, как мне кажется, по сути это одно и то же)

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

Dim PicRange As Range: Set PicRange = Range("A1:B2")
Dim ph As Picture: Set ph = PicRange.Parent.Pictures.Insert(PicturePath)
ph.Top = PicRange.Top: ph.Left = PicRange.Left

Только в этом случае, я не могу найти Picture в Наве. Нашёл другой объект, называется Graphic, но когда я пытаюсь скомпилить в Наве

Graphic :=  XlRange.Parent.Pictures.Insert(PicturePath);

Он опять же ругается на то, что не знает что такое Insert