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] 품목 사진 리스트 / 사진대지 / 쇼핑몰 사진대지 / 쇼핑몰 품목 사진 관리대장 20.02.15
댓글목록
등록된 댓글이 없습니다.