자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

vba [vba] 선택한 셀에 선택한 이미지 삽입

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 7,340회 작성일 20-02-15 22:55

본문

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

댓글목록

등록된 댓글이 없습니다.