[엑셀] 지정한 셀 크기에 맞게 사진 삽입하기

매크로 설명

 

• 셀 또는 셀 범위를 선택하여 해당 셀 크기에 맞게 사진을 삽입하는 매크로이다.
• 선택된 셀이 범위인 경우 해당 셀을 병합한 뒤에 삽입한다.
• 매크로를 사용하는 방법은 아래 동영상 참고

매크로 실행 동영상

 

VBA Code

 

Sub insert_image()
Dim selRng As Range
Dim rngTop As Double
Dim rngLeft As Double
Dim rngHeight As Double
Dim rngWidth As Double
  On Error Resume Next
    Set selRng = Application.InputBox(prompt:="셀 또는 범위를 선택하세요.", Type:=8) '셀 선택
      If Err.Number > 0 Then
      	Exit Sub     '선택하지 않은 경우 매크로 종료
      End If
  On Error Goto 0
  
  If selRng.Count > 1 Then
  	selRng.Merge          '셀 범위가 입력된 경우 병합
  End If
  
  rngTop = selRng.Top       '셀 정보 변수에 입력
  rngLeft = selRng.Left
  rngHeight = selRng.Height
  rngWidth = selRng.Width  
  
  With Application.Dialogs(xlDialogInsertPicture)
  	.Show                '사진 불러오기 대화상자
  End With
  
  With Selection
    .ShapeRange.LockAspectRatio = False     '가로/세로 비율 고정 해제  
    .Height = rngHeight                     '사진 크기/위치 설정  
    .Width = rngWidth 
    .Top = rngTop  
    .Left = rngLeft 
  End With
  
End Sub 

 

 

 Copyright (2018) Ruahneuma. All Rights Reserved.