Вставка картинки и отступ

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

Вставка картинки и отступ (Макросы/Sub)

Henry

Дата: Среда, 21.05.2014, 18:15 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Добрый день!

Есть макрос, который позволяет вставить картинку и подогнать ее под размеры ячейки автоматически.
Что нужно добавить в код, чтобы картинка помещалась в ячейку с отступом в 2 пикселя от краев?

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect(Range("B:B"), Target) Is Nothing Then
          If Application.Dialogs(xlDialogInsertPicture).Show Then
              With Selection
                  .ShapeRange.LockAspectRatio = msoTrue
                  .Height = Target.Height
                  If .Width > Target.Width Then
                      .Width = Target.Width
                  End If
              End With
          End If
      End If
End Sub

[/vba]

Спасибо заранее за ответ.

Сообщение отредактировал Henry - Среда, 21.05.2014, 18:16

Ответить

nilem

Дата: Среда, 21.05.2014, 18:27 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Привет, Henry,
так?:
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("B:B"), Target) Is Nothing Then Exit Sub
If Application.Dialogs(xlDialogInsertPicture).Show Then
     With Selection
         .Height = Target.Height - 2
         .Top = Target.Top + 1
         .Left = Target.Left + 1
         If .Width > Target.Width Then .Width = Target.Width - 1
     End With
End If
End Sub

[/vba]