vba [vba] 선택한 셀에 선택한 이미지 삽입
페이지 정보
본문
Sub insert_Pic()
Dim Pic As Variant
Pic = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png")
If Pic = False Then Exit Sub
With ActiveSheet.Pictures.Insert(Pic).ShapeRange
.LockAspectRatio = msoFalse
.Height = Selection.Height - 4
.Width = Selection.Width - 4
.Left = Selection.Left + 2
.Top = Selection.Top + 2
End With
End Sub
- 이전글[vba] vba를 활용한 이미지 삽입 시 링크삽입과 영구삽입 20.02.15
- 다음글[vba] 현재셀(ActiveCell)의 Screen X/Y 좌표 알아내기 20.02.11
댓글목록
등록된 댓글이 없습니다.