|
|
|
|
|
|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전:2007
* 아래줄에 질문을 작성하세요 >>
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 And (Target.Row Mod 1) = 0 Then
If Target.Columns.Count = 1 Then
Insert_Picture Target
End If
End If
End Sub
Sub Insert_Picture(RngCell As Range)
Dim StrFile As String
On Error GoTo MM
If RngCell.Value <> "" Then
StrFile = "\\ix2\영주장복\카드사용기록부\카드사용기록부사인\" & RngCell.Value & ".png"
ActiveSheet.Pictures.Insert(StrFile).Select
With Selection
.Top = RngCell.Offset(0, 1).Top + 4
.Left = RngCell.Offset(0, 1).Left + 2
.Width = RngCell.Offset(0, 1).Width - 20
'.Height = RngCell.Offset(0, 1).Height -40
.Name = RngCell.Value
End With
End If
Exit Sub
MM:
MsgBox "입력하신 이름에 해당하는 그림이 없습니다.", , "구석마을"
RngCell.Select
End Sub
구석마을님의 소스인데요 이건 워크시트에 그냥 글자 넣으면 실행되는 거라
제가 원하는거는 매크로 버튼하나 만들어서 그거 클릭하면 실행되게 할려고 합니다.
아무리 해도 잘 안됩니다.
좀 도와주세요 ㅠㅠ |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2017-01-25(15:08)
최종수정일 : 2017-01-25(15:08) |
|
|
|