Как мне изменить этот код, чтобы уменьшить вставленное изображение на 50%?

Sub Tester()
    Sheet1.Range("D5:E16").Copy
    Sheet2.Activate
    Sheet2.Range("A1").Select
    ActiveSheet.Pictures.Paste Link:=True
    Application.CutCopyMode = False
End Sub

Как я могу уменьшить изображение в несколько раз при вставке ??


image copy range vba shrink
person Justin Roberts    schedule 01.07.2017    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Чтобы изменить размер изображения, вы можете использовать это:

Picture.ShapeRange.Width = 0.5 * Picture.Width
Picture.ShapeRange.Height = 0.75 * Picture.Height

Более подробный пример можно найти здесь . Мне нравится разделять части вставки и изменения размера, это делает код гибким.

person David G    schedule 01.07.2017