Обрезка изображений макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обрезка изображений макросом (Макросы/Sub)

Vadissimus

Дата: Пятница, 22.08.2014, 14:20 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте, друзья.

Вставлять картинки макросом я научился, просто записав это действие.
Теперь необходимо научиться эти изображения обрезать. Пробовал записать макрос - при исполнении ничего не происходит.

Код такой:
[vba]

Код

Range("C5").Select
     ActiveSheet.Pictures.Insert( _
         Excel.Application.ActiveWorkbook.Path & "\Превью А.jpg" _
         ).Select
     Selection.ShapeRange.IncrementTop -4.5
     Selection.ShapeRange.IncrementLeft -24.75
     Selection.ShapeRange.LockAspectRatio = msoFalse
     Selection.ShapeRange.IncrementLeft 22.6299212598
     Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
     Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 164
     Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
     Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 0

     Range("O5").Select
     ActiveSheet.Pictures.Insert( _
         Excel.Application.ActiveWorkbook.Path & "\Превью Б.jpg" _
         ).Select
     Selection.ShapeRange.IncrementTop -4.5
     Selection.ShapeRange.IncrementLeft -24.75
     Selection.ShapeRange.LockAspectRatio = msoFalse
     Selection.ShapeRange.IncrementTop 4.5354330709
     Selection.ShapeRange.PictureFormat.Crop.PictureWidth = 300
     Selection.ShapeRange.PictureFormat.Crop.PictureHeight = 164
     Selection.ShapeRange.PictureFormat.Crop.PictureOffsetX = 0
     Selection.ShapeRange.PictureFormat.Crop.PictureOffsetY = 0

[/vba]

Можете помочь?

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обрезка изображений макросом (Макросы/Sub)

Страница 1 из 1
1