구 분

VBA 코드

설 명 

 변수선언

Dim strFile As String

Dim sht As Worksheet

Dim rngInsert As Range

각 문자열, 활성 시트, 셀 범위 등의 변수를 선언합니다.

 변수set

Set sht = ActiveSheet

현재 활성화된 시트를 sht에 할당합니다. 

이를 통해 현재 작업 중인 시트를 쉽게 참조할 수 있습니다.

 파일 선택

대화 상자 호출

strFile = Application.GetOpenFilename(filefilter:="모든파일(.),.", Title:="사진선택")

GetOpenFilename 메서드를 사용하여 파일 선택 대화 상자를 표시합니다. 

사용자는 파일을 선택하고 그 경로가 strFile 변수에 저장됩니다. 

filefilter는 파일 형식을 지정하고, Title은 대화 상자의 제목입니다.

 조건문

(파일 선택 확인)

If strFile = "False" Then

MsgBox "사진이 선택되지 않았습니다.", , "비즈폼"

사용자가 파일 선택을 취소했을 경우 strFile은 문자열 "False"로 설정됩니다. 이 조건문은 사용자가 파일을 선택하지 않았을 때 경고 메시지를 표시하고 서브루틴을 종료합니다.

서브루틴 종료 

Exit Sub

서브루틴을 종료합니다. 

파일 선택이 취소된 경우 이후 코드는 실행되지 않습니다.

 변수 초기화

Set rngInsert = Selection

사용자가 현재 선택한 셀 범위를 rngInsert에 할당합니다.

이 범위는 이미지가 삽입될 위치를 결정합니다.

 이미지 삽입

sht.Shapes.AddPicture Filename:=strFile, _

                      LinkToFile:=msoFalse, _

                      SaveWithDocument:=msoTrue, _

                      Left:=rngInsert.Left, _

                      Top:=rngInsert.Top, _

                      Width:=rngInsert.Width, _

                      Height:=rngInsert.Height

AddPicture 메서드를 사용하여 이미지를 추가합니다.

이 메서드는 다음과 같은 매개변수를 사용합니다.

- Filename:=strFile : 선택한 파일의 경로

- LinkToFile:=msoFalse : 이미지를 문서에 포함시키고, 외부 링크를 사용하지 않겠다는 설정

- SaveWithDocument:=msoTrue : 문서와 함께 이미지를 저장하겠다는 설정

- Left:=rngInsert.Left : 삽입할 이미지의 왼쪽 위치를 설정합니다.

- Top:=rngInsert.Top : 삽입할 이미지의 위쪽 위치를 설정합니다.

- Width:=rngInsert.Width : 삽입할 이미지의 너비를 설정합니다.

- Height:=rngInsert.Height : 삽입할 이미지의 높이를 설정합니다.

 Sub 단추3_Click()

    Dim strFile As String

    Dim sht As Worksheet

    Dim rngInsert As Range

    Set sht = ActiveSheet

    strFile = Application.GetOpenFilename(filefilter:="모든파일(*.*),*.*", Title:="사진선택")

    If strFile = "False" Then  MsgBox "사진이 선택되지 않았습니다.", , "비즈폼"

        Exit Sub

    End If

    Set rngInsert = Selection

    sht.Shapes.AddPicture Filename:=strFile, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, _

    Left:=rngInsert.Left, Top:=rngInsert.Top, Width:=rngInsert.Width, Height:=rngInsert.Height

 End Sub