Excel에서 코멘트로부터 이미지를 추출하는 방법은 무엇입니까?

Excel에서는 원하는 대로 쉽게 코멘트에 이미지를 삽입할 수 있지만, 코멘트 상자에서 이미지를 추출하여 셀이나 특정 폴더로 옮기는 것을 고려해 본 적이 있습니까? 이 기사에서는 코멘트로부터 이미지를 추출하는 방법에 대해 설명하겠습니다.

다른 이름으로 저장 기능을 사용하여 코멘트로부터 이미지를 추출하고 폴더에 저장하기

VBA 코드를 사용하여 코멘트로부터 이미지를 셀로 추출하기

다른 이름으로 저장 기능을 사용하여 코멘트로부터 이미지를 추출하고 폴더에 저장하기

코멘트로부터 이미지를 추출하여 폴더에 저장하려면 다음 단계를 따르세요:

1. 저장하려는 이미지가 포함된 코멘트가 있는 시트를 새 빈 통합 문서로 복사합니다.

2. 그런 다음 파일 > 다른 이름으로 저장을 클릭하여 이 새 워크북을 특정 폴더에 웹 페이지 형식으로 저장하세요. 아래 스크린샷을 참조하세요:

3. 그런 다음 저장 버튼을 클릭하여 파일을 저장한 후, 해당 폴더로 이동하여 저장된 이미지를 확인하세요. 두 개의 파일이 생성됩니다. 하나는 HTML 파일이고, 다른 하나는 모든 이미지와 기타 파일을 포함하는 폴더입니다. 아래 스크린샷을 참조하세요:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드를 사용하여 코멘트로부터 이미지를 셀로 추출하기

아래 스크린샷과 같이 코멘트로부터 이미지를 셀로 추출하려면, 여기서 VBA 코드를 작성해 드리겠습니다. 다음 단계를 따라주세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 코멘트로부터 이미지를 셀로 추출하기:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면 현재 워크시트의 모든 코멘트 이미지가 다음 열의 셀로 추출됩니다. 아래 스크린샷을 참조하세요: