나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 버섯돌이 (lsbrehab)

추천:  2
파일:     조회:  2410
제목:   매크로 버튼 클릭시 실행하는 방법
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전: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

구석마을님의 소스인데요 이건 워크시트에 그냥 글자 넣으면 실행되는 거라 
제가 원하는거는 매크로 버튼하나 만들어서 그거 클릭하면 실행되게 할려고 합니다.
아무리 해도 잘 안됩니다.
좀 도와주세요 ㅠㅠ
 
[불량 게시물 신고]  
코알라Sub Add_Picture()
Dim strFile   As String
 
 On Error GoTo MM
    
If ActiveCell.Value <> "" Then
   strFile = "\\ix2\영주장복\카드사용기록부\카드사용기록부사인\" & ActiveCell.Value & ".png"
   Application.ScreenUpdating = False
   With ActiveCell.MergeArea.Offset(0, 1)
        With .Parent.Shapes.AddPicture(strFile, msoFalse, msoTrue, .Left + 2, .Top + 4, .Width - 20, .Height - 40)
             .LockAspectRatio = msoFalse
             .Name = ActiveCell.Value
        End With
   End With
   Application.ScreenUpdating = True
End If
Exit Sub
MM:
  MsgBox "입력하신 이름에 해당하는 그림이 없습니다.", , "그림삽입"
End Sub
01-26 (11:00)
삭제 ■신고
버섯돌이코알라님 감사합니다. 그런데 하나더 질문드립니다. 현재 참조하는셀이 커서가 지정하고 있는 셀을 참조하는것 같은데 이방식으로 하면 직원본인은 결재가 가능한데 회계담당자나 부장 국장이 결재할경우 직원이름을 하나하나 클릭해서 결재 버튼을 눌러야 하기 때문에 불편한 사항이 발생합니다. 혹시 위에 처럼 참조하는 셀의 경로를 지정할수는 없는지요?01-26 (12:05)
삭제 ■신고
        
  

작성일 : 2017-01-25(15:08)
최종수정일 : 2017-01-25(15:08)