| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2013
* 아래줄에 질문을 작성하세요 >>
안녕하세요..
여기서 사진을 넣는 매크로를 찾아서 실행해 보니 잘 됩니다.
그런데 2가지 정도가 걸려서요..
첫번째는 화일을 다른 컴으로 옮겼을때 사진이 깨집니다.
두번째는 사진의 크기가 사진을 넣을곳의 셀크기랑 다릅니다.
어떻게 수정해야 할까요?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StrFile As String
Application.ScreenUpdating = False
On Error GoTo MM
If Target.Column = 1 And Target.Row > 1 And Target.Value <> "" Then
StrFile = ThisWorkbook.Path & "₩img₩" & Target.Value & ".jpg"
ActiveSheet.Pictures.Insert(StrFile).Select
With Selection
.Top = Target.Offset(0, 3).Top
.Left = Target.Offset(0, 3).Left
.Width = Target.Offset(0, 3).Width
.Height = Target.Offset(0, 3).Height
End With
End If
Target.Offset(0, 1).Select
Exit Sub
MM:
MsgBox "입력하신 코드에 해당하는 그림이 없습니다.", , "./img 디렉토리 및 확장자 확인"
Target.Select
End Sub
==============[바람님 글에 대한 답변입니다]==============
With Selection
' 그림의 가로,세로비율 고정 해제
.ShapeRange.LockAspectRatio = msoFalse
.Top = Target.Offset(0, 3).Top
.Left = Target.Offset(0, 3).Left
.Width = Target.Offset(0, 3).Width
.Height = Target.Offset(0, 3).Height
End With
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
