Вставка картинки из файла в автофигуру

Вставка картинки из файла в автофигуру - с сохранением пропорций

Пользователь

Сообщений: 137 Регистрация: 21.07.2017

14.08.2017 05:04:41

Доброе утро, форумчане. Помогите разобраться с проблемой.

В папке есть файл jpg.
На листе располагается автофигура (Прямоугольник).
В ячейке I4 - находится адрес файла jpg.
Если вставлять рисунок - как заливку автофигуры, то автофигура норовит растянуть ее под свой размер.

Подскажите, как макросом заставить рисунок - вставиться в автофигуру как заливка - с сохранением пропорций?
(То есть автофигура - должна растягиваться только по большей стороне и с сохранением пропорций.)

Прикрепленные файлы

456456.xls (76.5 КБ)

Jungl

Пользователь

Сообщений: 830 Регистрация: 18.01.2016

14.08.2017 20:17:51

Такой вариант подойдет?

Код

Set Obj = ActiveSheet.Shapes("Прямоугольник 4")
With Obj
    With .Fill
        .Visible = msoTrue
        .UserPicture "D:\123.jpg"
        .TextureTile = msoFalse
    End With
    .Select
    CommandBars.ExecuteMso ("PictureFitCrop")
    Cells(.TopLeftCell.Row, .TopLeftCell.Column).Select
End With

OlegSmirnov Пользователь Сообщений: 137 Регистрация: 21.07.2017	#3 14.08.2017 22:06:49 Jungl, именно так. Большое спасибо вам.

Читают тему