SNS 로그인
Google Naver Kakao
조회 수 45246 추천 수 0 댓글 43
?

단축키

Prev이전 문서

Next다음 문서

위로 아래로 인쇄 첨부
첨부파일   등록일    파일크기  다운 수
Extra Form
Extra Form
    Tip이 도움이 되었다면 댓글과 평가 부탁합니다. Tip에 대한 궁금한 점은 댓글로 남겨 주시면 성심껏 답변 드립니다.
?
  • 루트 2016.11.21 12:56
    감사합니다.
    매우 유용합니다.
  • 웃자 2017.05.10 17:07
    좋은 자료 정말 감사 합니다.
    질문이 하나 있습니다.
    "시트 보호"를 해버리면 런타임 오류가 발생 합니다.
    잡을수 있는 방법이 있는지요?
  • profile
    팔공산 2017.05.10 19:35 글쓴이

    웃자 님에게 달린 댓글

    어떤 부분을 "시트 보호" 하시는 지는 모르겠지만
    제가 전체영역 선택해서 "시트 보호" 해 보니 오류 없이 잘 작동합니다.
    엑셀 2016 입니다.
  • 필수 2017.05.19 15:39
    저에게 꼬옥 필요한 글입니다! 정말 감사해요. 그런데 맥을 사용하고 있는데 여기서는
    '런타임 오류 '1004':
    메서드 'GetOpenFilename'('_Application' 개체 내) 실패
    라고 뜨거든요... 어떻게 하면 될까요?
  • 필수 2017.05.19 18:18 Files첨부 (1)

    윈도우에서 하니까 잘됩니다!! 감사합니다 ㅎㅅㅎ 

    질문이 있습니다! 

    1. 이미지 칸에 버튼을 만들었는데 옆 셀에 이미지가 들어갑니다! 원래 그런건가요?

    2. 여기 넣었던 이미지를 다시 추출/저장 하고싶은데요, 칸에 비집고 들어간 왜곡된 이미지가 아닌 원본 그대로 저장할수 있는 방법은 없나요? 엑셀안에 이미지 저장하는 방식으로 '다른이름으로저장하게 - 웹페이지 형식'으로 하면  jpg형식들이 따로 나오는데요, 여기는 왜곡된 이미지만 나오더라구요! 엑셀안에서 이미지가 변형되면 그게 최종 이미지가 되는건가요? 

    엑셀을 잘 몰라서 하는 질문일수 있어서 조심스러우나 꼭 필요해서 여쭤봅니다!! 정말 감사합니다 

  • profile

    필수 님에게 달린 댓글

    1. 원래 그렇지 않습니다.^.^

    버턴을 누르기 전에 마우스커스를 이미지를 넣고 싶은 셀에 두세요.

    2. 정확하지는 않지만 아래 같이 해 보세요.(저도 해 보지는 않았습니다.)

    [수정전]
    .LockAspectRatio = msoFalse
    End With

    [수정후]
    .LockAspectRatio = msoTrue

    .ScaleHeight 1, msoTrue

    .ScaleWidth 1, msoTrue

    End With


    근데 이렇게 하면 지정한 셀에 맞추어 지지 않습니다.

    삽입 후 일일이 셀에 맞추어 주어야 합니다.


    아님 수정전 메크로로 이미지 넣어시고 이미지를 더블 클릭하시면 상단 메뉴에 

    "그림 압축"메뉴가 보이실 것입니다.

     해상도를 적당히 조정하세요.


    아님

    [다른 이름으로 저장] 메뉴 아래쪽 [도구 - 그림압축] 메뉴에서 호출할 수 있습니다. 


    [그림 압축] 메뉴에서 원하는 크기의 ppi를 선택하고 확인 버튼을 클릭하면 됩니다. 

    (여기서는 전자메일 항목을 선택했습니다.)

    엑셀 그림 이미지 압축 파일 용량 크기 줄이기

  • 서기 2017.10.30 18:43

    팔공산 님에게 달린 댓글

    안녕하세요 궁금 점이 있어서 문의드립니다 엑셀 매크로 사진 삽입하면서 사진 다 깨져버려서 한 이백개의 파일 정도 되는데 그거 복구할 방법 없을까요ㅠㅠㅠㅠ
  • profile
    팔공산 2017.10.30 19:11 글쓴이

    서기 님에게 달린 댓글

    님의 정확한 의도는 잘 모르겠으나
    아마도 매크로로 짜 놓은 파일들의 이동으로 인해 이미지가 다 사라졌다는 말씀인지?

    이미지의 경로에 이미지가 없는 경우는 다시 살릴 수 있는 방법은 없을 듯 하고요,
    이미지가 살아 있는 환경에서 위의 본문에서 설명한
    "그림을 문서에 포함시키지 않고 경로만 지정되게 해서 엑셀문서를 작성한경우 엑셀문서안에 이미지를 포함 저장하는 코드" 이 부분으로 다시 매크로 실행하셔야 할 듯 합니다.
  • 서기 2017.10.30 20:32

    답변 정말 갑사합니다.. ㅠㅠ 이거 해결안하면 몇일 밤을 세야할지도.. 파일이 몇백개라...


    엑알못이라 그냥 따라서 복사해서 붙여넣기로하고

    단축키 alt+w로 넣어서 사용했는데..


    읽어봐도 무슨말인지 ..


    이미 작성된 메크로 파일안에 사진을 포함시키고 싶은건데요..


    위 글처럼 alt+f11 누르고 기존 메크로 삭제후

    Sub embed_Pics_Permanently()

       

        Dim shtNo As Integer                                     

        Dim i As Integer                                           

        Dim wks As Worksheet                                  

        Dim shpC As Shape                                      

        Dim picLeft As Single                                    

        Dim picTop As Single                                   

        

        Application.ScreenUpdating = False                

        

        shtNo = ActiveSheet.Index                             

        For i = 1 To Sheets.Count                              

            Sheets(i).Activate                                     

            

            For Each shpC In Sheets(i).Shapes           

                If shpC.Type = 11 Then                          

                    

                    picLeft = shpC.Left                            

                    picTop = shpC.Top                           

                        

                    shpC.Copy                                       

                    ActiveSheet.PasteSpecial Link:=False 

                    shpC.Delete                                     

                        

                    Selection.Left = picLeft

                    Selection.Top = picTop

                End If

            Next shpC

        Next i

       

        MsgBox "매크로가 종료되었습니다."

        

       Sheets(shtNo).Activate

    End Sub

    를 붙여넣었는데 안되네요

    정말 진심을 담아 부탁드립니다. 해결방법이 없을까요??


  • profile
    팔공산 2017.10.31 00:40 글쓴이

    서기 님에게 달린 댓글

    먼저 Alt+F11 하신후 Module1에 위의 문구 작성하신 후 저장 - F5(실행) 키 누르면 

    "매크로가 종료되었습니다." 메세지 나오면서 끝.   

  • 서기 2017.10.31 01:13

    팔공산 님에게 달린 댓글

    아..밤새작접중이였는데..해볼께요 정망 감사합니다ㅠㅠ
  • alca 2017.12.18 00:04
    정말 좋은 정보네요. 쉬운 설명 덕분에 어렵지 않게 응용할 수 있었습니다. 감사합니다!
  • 나는 2017.12.28 11:30
    관리자님..메크로 코드좀 편리하게 응용할수있게...첨부파일좀 부탁드리겠습니다..
  • profile
    팔공산 2017.12.28 22:29 글쓴이

    나는 님에게 달린 댓글

    굳이 첨부파일이 필요하나요.
    코드복사해서 넣으시면 되는데요
    참고로 로그인하셔야 화면 복사가능합니다.

  • 슬픈직원 2018.01.13 15:01
    관리자님 잘사용하고있는데 질문한가지 있습니다

    저희 현장 같은경우에는 선 2PT 로 조정하고
    엑셀칸에 꽉차게 만들어야하는데 좋은방법 소개좀 부탁드립니다
    답글이나 qodrnl10@gmail.com 이메일 답변 부탁드립니다
  • profile
    팔공산 2018.01.13 19:40 글쓴이

    슬픈직원 님에게 달린 댓글

    우선 제가 선 2PT가 무엇인지 잘 모르겠네요ㅠㅠ
    그리고 본문에 있는 메크로 삽입하면 엑셀칸에 꽉차지 않나요?
  • 링거 2018.04.25 09:39
    코드를 어떻게 복사하죠?
  • profile
    팔공산 2018.04.25 12:45 글쓴이

    링거 님에게 달린 댓글

    회원가입하시면 우측마우스 작동합니다.
  • 칭구 2018.10.14 10:25
    대단하십니다 감사합니다~~^*^
  • 안녕하세요. 귀중한 자료 정말 감사드립니다.

    그런데 다음과 같은 런타임 오류가 확인됩니다.

    확인 부탁드리겠습니다. 감사합니다.런타임 오류.JPG

  • profile
    팔공산 2019.02.09 09:57 글쓴이

    ever 님에게 달린 댓글

    제가 오류나는 것 까지야 어떻게 알겠습니까.
    위의 코드들은 제가 작업시 사용하던 메크로라 별 문제는 없을 것 같은데...
    제가 인터넷 검색해 보니 붙여넣기 오류라는데 Copy된 부분이 없다는 군요.
    그 이상은 저도...
  • 도와주세요 2019.12.19 17:30
    Sub PastePicture()
    Dim H, W, L, T As Variant

    With Selection
    H = .Height - 6
    W = .Width - 6
    L = .Left + 3
    T = .Top + 3
    End With

    Application.ScreenUpdating = False
    ActiveSheet.Pictures.Paste.Select

    With Selection.ShapeRange
    .LockAspectRatio = msoFalse
    .Height = H - 6
    .Width = W - 6
    .Left = L + 3
    .Top = T + 3
    End With
    Application.ScreenUpdating = True

    사진 셀에 맞춰서 붙여넣기 함수 사용 중인데 이것도 용량을 위에처럼 줄여서 넣을 수 있는 방법이 있을까요?? 응용을 해봤는데 계속 실패 하네요
  • KSpapa 2020.01.13 14:18
    많은 도움 받았습니다. 감사합니다.
  • 제로쉬 2020.11.14 10:01

    KSpapa 님에게 달린 댓글

    alt+f11을 누루고 모듈1에 아래 내용을 복사한후 저장했습니다.
    Sub embed_Pics_Permanently()



    Dim shtNo As Integer

    Dim i As Integer

    Dim wks As Worksheet

    Dim shpC As Shape

    Dim picLeft As Single

    Dim picTop As Single



    Application.ScreenUpdating = False



    shtNo = ActiveSheet.Index

    For i = 1 To Sheets.Count

    Sheets(i).Activate



    For Each shpC In Sheets(i).Shapes

    If shpC.Type = 11 Then



    picLeft = shpC.Left

    picTop = shpC.Top



    shpC.Copy

    ActiveSheet.PasteSpecial Link:=False

    shpC.Delete



    Selection.Left = picLeft

    Selection.Top = picTop

    End If

    Next shpC

    Next i



    MsgBox "매크로가 종료되었습니다."



    Sheets(shtNo).Activate

    End Sub

    사진첨부 버튼을 만들어 클릭하면 "매크로가 종료되었습니다" 메시지만 나오고 그림파일 창이 뜨지 않는데
    혹시 원인을 좀 알 수 있을까요?
    저도 그림파일의 이동 이름변경등으로 애를 먹고 있는 1인 입니다.
  • profile
    팔공산 2020.11.14 12:04 글쓴이

    제로쉬 님에게 달린 댓글

    님이 붙여넣기한 메크로는 사진첨부 하는 메크로가 아니고
    기존에 첨부된 사진을 엑셀문서안에 이미지를 포함 저장하는 메크로입니다.
    버턴을 클릭해서 사진첨부를 되게 할려면 본문 상단의 메크로를 적용하세요.
  • 우덜덜 2021.05.11 19:02
    안녕하세요 궁굼한점이 있습니다.
    이미 다른 메크로로 사진대지 해서 작성했는데 다른분께 이메일로 보냈더니 역시나 사진파일이 없다보니 엑스박스가 뜹니다. 혹시 지금 작성해놓은 파일 메크로만 바꾸면 다시작성할 필요없이 엑박 안뜨고 잘 될까요?
  • profile
    팔공산 2021.05.11 19:37 글쓴이

    우덜덜 님에게 달린 댓글

    문서 하단에 보면 해당 내용 있습니다.

    p.s 이것은 저의 경험에서 나온 팁입니다.

    그림을 문서에 포함시키지 않고 경로만 지정되게 해서 엑셀문서를 작성한경우 엑셀문서안에 이미지를 포함 저장하는 코드입니다.
  • 감사합니다 2021.05.17 13:13
    감사합니다... 이미지 링크로 넣었다가 안떠서 당황했는데 올려주신 매크로로 해결됬습니다.. 이미지가 500개가 넘었는데 정말 감사합니다. ㅠㅠ
  • 보람 2021.12.08 16:24
    안녕하세요?
    알려주신 코드로 편하게 이미지 작업을 하였습니다.
    정말 감사합니다.
    추가로 문의드리는 내용은 다중 이미지 삽입시 코드를 알 수 있을지 입니다.
    혹시 알 수 있을까요? 부탁드립니다.
  • profile
    팔공산 2021.12.08 16:54 글쓴이

    보람 님에게 달린 댓글

    https://blog.naver.com/rosa0189/221512177229
    이 블로그를 참조해 보세요.
  • 메크로가뭐에요 2021.12.16 15:56

    원본 사진이 이동되거나 다른 피씨에서 사진대지 파일을 열었을때 사진이 X로 표시되는 경우 해결방법은 없는건가요?
    명령어로 뭔가를 많이 적어 주셧는데 저건 어디다 입력하는건가요?

  • profile
    팔공산 2021.12.16 19:43 글쓴이

    메크로가뭐에요 님에게 달린 댓글

    본문을 안 읽고 댓글을 작성하신 것 같군요.
    님이 문의 하신 답은 본문에 다 있습니다.
  • 공돌이 2023.02.06 17:08
    안녕하세요. 엑셀 매크로 오류 때문에 문의드렸습니다.
    어제까지 잘 쓰던 매크로가 오늘 저장할려고 하니까 '일부기능을 제한하거나 복구를-' 이렇게 오류 문구가 나오면서 저장이 안되는데 해결 방법을 알려주실 수 있나오?
  • profile
    팔공산 2023.02.06 17:32 글쓴이

    공돌이 님에게 달린 댓글

    저도 그냥 위에 글 작성한 정도만 압니다.
    오류까지야 제가 알기가 어렵습니다.

     

    참고하세요, 구글링입니다.

    https://kun3.tistory.com/entry/%EC%97%91%EC%85%80Excel-%EC%A0%80%EC%9E%A5-%EC%98%A4%EB%A5%98-%EA%B0%84%EB%8B%A8%ED%9E%88-%ED%95%B4%EA%B2%B0%ED%95%98%EB%8A%94-%EB%B0%A9%EB%B2%95

  • 조조 2023.09.11 18:57
    안녕하세요. 좋은 정보 잘 보았습니다.
    근데 기존거 삭제하고 바꾸고 나서 F5를 누르니 오류가 뜨네요. 그래서 디버그를 누르니 "shpC.Copy"이 부분이 표시가 되더라구요. 그래서 그걸 지우고 했더니 완료는 되는데 사진들이 다 통일 되 버리더라구요.

    shpC.Copy 이 부분에서 뭐가 문제일까요? ㅠㅠ
  • profile
    팔공산 2023.09.11 19:49 글쓴이

    조조 님에게 달린 댓글

    글을 작성 한지가 오래 되기도 했고
    저도 자세한 부분 까지는 잘 알지 못합니다.
  • 조조 2023.09.12 09:35

    팔공산 님에게 달린 댓글

    네. 알겠습니다. 어쨌든 유용한 정보 감사합니다.^^
  • 기존에 완전삽인 안되는 매크로로 작업했던 것을 님의 수정 메크로를 적용하니 아래 사진과 같은 오류가 나는데 혹시 아시는지요?

    KakaoTalk_20230912_163442472.jpg

  • profile
    팔공산 2023.09.13 07:09 글쓴이

    조조 님에게 달린 댓글

    요즘은 제가 이 매크로를 사용할일이 없어서 잘 모릅니다.
  • pine25 2023.12.19 15:18
    유익한 정보에 감사드립니다.
    세상의 진보는 배움을 공유할 수 있는 점점들이 결국 만들어 가는 것이라고 역사는 말하는거 같다.
    아낌없이 자신의 앎을 나눔으로 행복을 누릴 수 있는 역량이야 말로 사람을 아름답게 만든다.
  • profile
    팔공산 2023.12.19 18:45 글쓴이

    pine25 님에게 달린 댓글

    좋은 댓글 감사합니다
  • ㅇㅇ 2024.01.02 22:27
    좋은 코드 감사드립니다.
    챗 gpt로 이미지불러오고 자동으로 엑셀에 저장되게 코드하나로 합쳐서 유용하게 사용중입니다.
  • profile
    팔공산 2024.01.03 07:20 글쓴이

    ㅇㅇ 님에게 달린 댓글

    합쳐진 유용한 코드도 공유해 주시면 안 될까요

  1. 엑셀 시트에 삽입된 그림 추출하기

    엑셀 시트에 삽입된 그림을 추출하는 방법은 여러가지가 있습니다. 1. 각 그림 파일을 복사(Ctrl + C) 후 다른 곳에 붙여넣기(Ctrl + V) 하는 방법. (이 방법을 사용하면 해상도가 많이 떨어지게...
    Date2017.05.19 Category :Excel 팔공산 Views7549 file
    Read More
  2. 엑셀 VBA 개인용 매크로 통합문서 저장

    이전문서에 엑셀 VBA 매크로 코드를 만드는 방법을 작성했는데요 이번에는 자주 사용하는 매크로 코드를 어떠한 문서를 열던지 작동 되도록 하는 방법을 작성 해보도록 하겠습니다. 일단 매크로...
    Date2016.07.12 Category :Excel 팔공산 Reply2 Views6939 file
    Read More
  3. 엑셀 메크로 그림(이미지)을 엑셀 파일에 직접 포함시키는 방법

    엑셀작업을 하다보면 VBA 메크로로 셀에 자동맞춤으로 이미지를 삽입되게 하면 이미지작업이 많을시 무척 편리하게 이용할 수 있습니다. [VBA메크로 만드는 방법] 열려진 엑셀문서에서 Alt+F11(...
    Date2016.07.11 Category :Excel 팔공산 Reply43 Views45246 file
    Read More
  4. No Image

    Ms Office cd를 넣어라는 메세지가 나올때 조치

    디스크 정리 등을 실행하고 갑자기 MS-OFFICE 씨디를 넣으라는 메시지가 나타날 때 사용해 보시기 바랍니다.. 원본 씨디를 어디에 뒀는지 모를 때 파일을 다운 받은 후에 그냥 실행하면 레지스트...
    Date2008.03.09 Category :Excel 팔공산 Views3448 file
    Read More
목록
Board Pagination Prev 1 Next
/ 1
    "