이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
![[레벨:2]](http://abyul.com/zbxe/modules/point/icons/default/2.gif "포인트:761point (89%), 레벨:2/30"){kind=icon}
이런젬젬
안녕하세요엑셀의 메모에 사진들이 여럿 들어가 있는 자료가 있습니다.메모의 배경 채우기를 사진으로 해둔 파일인데요, 이 배경이미지를 새것으로 바꾸거나 하는 것은 Range("C8").comment.shape.fill.UserPicture( 파일경로) 이런식으로 하면 변경이 가능하겠다는 것은 알겠는데요,기존에 들어가있는 이미지를 추출해 내고 싶어서 이래저래 고민하고 찾아봤는데도 도저히 답이 없어서 문의 드립니다. 이리저리 검색을 해보다보니, 네이버 지식인에서 아래와 같은 코드를 찾았습니다. 메모의 배경에 있는 그림을 저장하는데, .CopyPicture를 통해 클립보드에 복사하고, 이를 붙여넣는 방식을 취합니다.-------------------------------------------------------------------------Sub Test()
Dim strT As String
Dim shp As Shape
Dim chk(2) As Boolean On Error Resume Next
Set shp = Selection.Comment.Shape
With shp
chk(0) = .Visible
chk(1) = .Line.Visible
chk(2) = .Shadow.Visible
strT = .TextFrame.Characters.Text
.TextFrame.Characters.Text = ""
.Visible = msoTrue
.Line.Visible = msoFalse
.Shadow.Visible = msoFalse
.CopyPicture
ActiveSheet.Paste Range("A1")
.Visible = chk(0)
.Line.Visible = chk(1)
.Shadow.Visible = chk(2)
.TextFrame.Characters.Text = strT
End With On Error GoTo 0
End Sub-------------------------------------------------------------------------이렇게 하면 되기는 하는데,메모의 비율이 사진의 비율과 달라서 찌그러져 있는 경우에는 찌그러진 대로 저장이 된다는 단점이 있죠. 그래서 생각한 것이, 메모의 배경에 들어있는 이미지 객체를 특정할 수 있다면,그 이미지객체의 가로/세로 픽셀수를 체크해서 해당 메모의 크기를 그렇게 조정하고 위의 방법을 쓰거나,그 이미지객체를 바로 특정 셀에 붙여넣거나 하는 방식을 사용할 수 있을것 같은데.. 도저히 못하겠네요..Range("C8").Comment.Shape.Fill.PictureEffects와 같은 방식으로 접근해봐야 하나..라고 시도해 봤으나.. 어찌해야 할지 모르겠네요... 실제로 메모안의 배경에 들어있는 파일을 위의 코드와 같이 간접적으로 추출하는게 아니라 직접 추출/관리하고 싶은거죠..방법이 없을까요????
Dim strT As String
Dim shp As Shape
Dim chk(2) As Boolean On Error Resume Next
Set shp = Selection.Comment.Shape
With shp
chk(0) = .Visible
chk(1) = .Line.Visible
chk(2) = .Shadow.Visible
strT = .TextFrame.Characters.Text
.TextFrame.Characters.Text = ""
.Visible = msoTrue
.Line.Visible = msoFalse
.Shadow.Visible = msoFalse
.CopyPicture
ActiveSheet.Paste Range("A1")
.Visible = chk(0)
.Line.Visible = chk(1)
.Shadow.Visible = chk(2)
.TextFrame.Characters.Text = strT
End With On Error GoTo 0
End Sub-------------------------------------------------------------------------이렇게 하면 되기는 하는데,메모의 비율이 사진의 비율과 달라서 찌그러져 있는 경우에는 찌그러진 대로 저장이 된다는 단점이 있죠. 그래서 생각한 것이, 메모의 배경에 들어있는 이미지 객체를 특정할 수 있다면,그 이미지객체의 가로/세로 픽셀수를 체크해서 해당 메모의 크기를 그렇게 조정하고 위의 방법을 쓰거나,그 이미지객체를 바로 특정 셀에 붙여넣거나 하는 방식을 사용할 수 있을것 같은데.. 도저히 못하겠네요..Range("C8").Comment.Shape.Fill.PictureEffects와 같은 방식으로 접근해봐야 하나..라고 시도해 봤으나.. 어찌해야 할지 모르겠네요... 실제로 메모안의 배경에 들어있는 파일을 위의 코드와 같이 간접적으로 추출하는게 아니라 직접 추출/관리하고 싶은거죠..방법이 없을까요????
