Sub PastePicture()
Dim H, W, L, T As Variant

With Selection
H = .Height - 6
W = .Width - 6
L = .Left + 3
T = .Top + 3
End With

Application.ScreenUpdating = False
ActiveSheet.Pictures.Paste.Select

With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Height = H - 6
.Width = W - 6
.Left = L + 3
.Top = T + 3
End With
Application.ScreenUpdating = True

사진 셀에 맞춰서 붙여넣기 함수 사용 중인데 이것도 용량을 위에처럼 줄여서 넣을 수 있는 방법이 있을까요?? 응용을 해봤는데 계속 실패 하네요