Andres는 클립 보드에 그림이 있습니다. 그는 선택한 셀에 대해 사진을 주석에 넣기를 원합니다. 셀에 주석이 없으면 하나를 만들어야합니다. 이미 의견이있는 경우 사진을 추가해야합니다. Andres는 이것이 매크로를 필요로한다는 것을 알고 있지만 매크로에서 주석으로 작업하여 필요한 작업을 수행하는 방법을 모릅니다.

Microsoft는 최신 Office 365 버전에서 comments_를 _notes_로 참조합니다. 그러나이 팁의 목적을 위해 기존의 _comments 이름으로 계속 언급하겠습니다.

Andres가 원하는 것은 사람이 원하는만큼 쉽지 않습니다. 첫 번째 문제는 VBA에서 클립 보드를 주석으로 보낼 이미지의 소스로 사용할 수있는 방법이없는 것 같습니다. 소스를 파일의 이미지로 변경하여이 문제를 해결할 수 있습니다. 즉, 매크로를 통해 사용자가 주석에 배치 된 이미지 파일을 선택할 수 있도록합니다.

Sub AddCommentPicture()

Dim PicChoice As Variant

If ActiveCell.Comment Is Nothing Then         ActiveCell.AddComment     End If     PicChoice = Application.GetOpenFilename("JPEGs .jpg,.jpg")



If PicChoice = False Then         MsgBox "No file was selected."

Else         ActiveCell.Comment.Shape.Fill.UserPicture PicChoice         ActiveCell.Comment.Shape.LockAspectRatio = True     End If End Sub

매크로는 주석이 있는지 확인하기 위해 활성 셀을 테스트합니다. 그렇지 않은 경우 하나를 추가합니다. 그런 다음 JPG 파일 만 표시하는 열기 대화 상자를 표시합니다. (표시되어야하는 파일 유형을 나타 내기 위해 GetOpenFilename 함수의 매개 변수를 변경할 수 있습니다.) 선택한 파일이 주석에 할당됩니다.

코드는 이미지 크기를 조정하지 않습니다. 원하는 경우 크기 조정에 필요한 코드를 추가 할 수 있습니다. 매크로 끝 부분에있는 이미지의 종횡비를 잠그는 줄 바로 뒤에 해당 코드를 추가 할 수 있습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶으면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (5489)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.