ximage 구문 에러관련 문의

VBA
작성자
박상운
작성일
2022-07-21 15:49
조회
62
엑셀버전 : M365

운영체제 : 윈도우11


질문 요약 : 구문에러를 잡아주세요~ ㅠ_ㅠ

제가 ximage에서 크기 조정 옵션을 없애려고 합니다.

 

그 문의 내용으로는 아래 코드 중 크기 조정 옵션에 해당하는 코드를 찾아서 삭제하고 싶습니다.

 

Function xIMAGE(Link, Optional Margin As Long = 0, Optional UpdateImage As Boolean = True)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'수정 및 배포 시 출처를 반드시 명시해야 합니다.
 
'■ xIMAGE 함수
'■ 인터넷 URL 또는 특정 파일 경로의 이미지를 삽입합니다.
'■ 사용방법
'=xImage("https://www.google.com/images/branding/googlelogo/1x/googlelogo_color_272x92dp.png")
'■ 인수 설명
'_____________Link                  : 웹 URL 또는 파일 경로입니다. 웹 URL일 경우 링크는 반드시 https:// 또는 http:// 로 시작해야 합니다.
'_____________Margin             : 셀 안에 삽입할 그림에 여백을 줍니다. 픽셀 단위로 입력합니다. 기본값은 0(=여백없음)입니다.
'_____________UpdateImage   : TRUE 일 경우 기존 셀 안에 삽입되어 있던 그림을 삭제하고 새로운 그림으로 갱신합니다. 기본값은 TRUE 입니다.
'###############################################################
 
Dim aRng As Range: Dim aWS As Worksheet
Dim shpImg As Shape
 
On Error Resume Next
 
Set aRng = Application.Caller
Set aWS = aRng.Parent
 
Application.EnableEvents = False
 
If IsEmpty(Link) Then xIMAGE = CVErr(xlValue): Exit Function
 
For Each shpImg In aWS.Shapes
    If shpImg.TopLeftCell.Address = aRng.Address Then
        If UpdateImage = True Then
            shpImg.Delete
        Else
            xIMAGE = True
            GoTo Final
            Exit Function
        End If
    End If
Next
 
Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
aRng.Left + Margin, aRng.Top + Margin, _
aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2)
shpImg.Placement = xlMoveAndSize
 
If shpImg Is Nothing Then
    xIMAGE = CVErr(xlValue)
Else
    xIMAGE = True
End If
 
Final:
Set shpImg = Nothing:    Set aRng = Nothing:    Set aWS = Nothing
Application.EnableEvents = True
 
End Function

관련 게시판에 이미 물어보아 얻은 답변 내용은 위 붉은 색 글씨를 삭제해보라는 답변이었는데요

그 결과는 아래의 이미지와 같이 구문 에러가 났습니다;;

 

 

혹시 다른 연결된 문제가 있을까 해서 "Funtion xIMAGE"에서 "Optional Margin As Long = 0"도 삭제해보고

코드를 이렇게 저렇게 해보았는데도 안되네요... ㅠ_ㅠ

 

부디 도움을 부탁드립니다

전체 5

  • 2022-07-21 16:33

    @박상운

    aRng.MergeArea.Width - Margin * 2, aRng.MergeArea.Height - Margin * 2

    aRng.MergeArea.Width, aRng.MergeArea.Height

    로 바꾸세요


    • 2022-07-21 16:46

      @ak 님 감사합니다! 바로 알려주신 대로 해보았습니다... 그런데.... ㅠ_ㅠ

      여전히 칸에 맞춰져서 들어옵니다..;;;

      code_2.png


      • 2022-07-21 16:48

        이거 쉽게 생각했는데... 어제 오늘을 이렇게~ 저렇게~ 고민을 해보아도 원하는 결과가 나오지 않아

        도움을 청합니다... ㅠ_ㅠ

        result_2.png


        • 2022-07-21 16:55
          채택된 답변

          @박상운 님 Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
          aRng.Left, aRng.Top, -1, -1)

           

          마진을 없애는게 아니라 그냥 이미지 사이즈 그대로 넣는걸 말씀하신거군요, 그냥 -1을 넣으면 됩니다.


          • 2022-07-21 16:58

            @ak 님 됐습니다!!! 됐습니다!!!! 이게 됐습니다!!!!!! 감사합니다!!! ㅠ_ㅠ


전체 7,345
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1160
오빠두엑셀 2022.07.31 8 1160
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 98
오빠두엑셀 2022.08.04 4 98
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 117 | 조회 6138
오빠두엑셀 2021.10.28 117 6138
41136 함수/공식
New 동적차트를 위한 이름관리자 함수 만들기 엑셀파일첨부파일
블링블링 | 23:12 | 추천 0 | 조회 2
블링블링 23:12 - 2
41132 함수/공식
New 함수를 간단히 할 수 있을까요? 엑셀파일 (1)
안동근 | 19:59 | 추천 0 | 조회 18
안동근 19:59 - 18
41129 기능/도구
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기 첨부파일 (6)
fabikim | 18:29 | 추천 0 | 조회 29
fabikim 18:29 - 29
41126 VBA
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의 엑셀파일 (2) 답변완료
pjc**** | 16:35 | 추천 0 | 조회 35
pjc**** 16:35 - 35
41123 함수/공식
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요) 첨부파일 (2) 답변완료
일개회사원 | 14:52 | 추천 0 | 조회 34
일개회사원 14:52 - 34
41117 피벗테이블
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ 첨부파일 (2) 답변완료
ㅎㅎ | 13:49 | 추천 0 | 조회 33
ㅎㅎ 13:49 - 33
41116 피벗테이블
New 피벗테이블 슬라이서 문의 첨부파일 (1)
조동호 | 13:38 | 추천 0 | 조회 25
조동호 13:38 - 25
41114 함수/공식
New Lookup 함수사용시 출력되는 날짜의 형식오류 첨부파일 (3)
조민양 | 13:16 | 추천 0 | 조회 24
조민양 13:16 - 24
41112 피벗테이블
New 엑셀 피벗테이블 필터부분을 가리는 방법을 알고 싶습니다! 첨부파일 (3)
이재호 | 12:58 | 추천 0 | 조회 26
이재호 12:58 - 26
41107 함수/공식
New 중첩 이프 함수 해결 방법 / 중첩 if 해결 방법 / 다중조건 첨부파일 (2) 답변완료
떡상가즈아 | 11:00 | 추천 0 | 조회 36
떡상가즈아 11:00 - 36
41106 함수/공식
New 2X2 엑셀 값 비교하는 함수가 가능할까요? 첨부파일 (1)
클루 | 10:56 | 추천 0 | 조회 32
클루 10:56 - 32
41099 파워쿼리/피벗
New 여러개의 데이터 파일(같은 양식)을 데이터연결하여 하나의 파일로 관리(주기 관리)하는 방법 엑셀파일 (4) 답변완료
pjc**** | 08:47 | 추천 -1 | 조회 55
pjc**** 08:47 -1 55
41096 피벗테이블
New 피벗테이블 날짜 슬라이서 제작시 오류 첨부파일 (2)
naver_616841992e55a | 06:11 | 추천 0 | 조회 34
naver_616841992e55a 06:11 - 34
41095 VBA
New 매크로 관련 질문이예요. 도움 부탁드립니다. (3)
AANNNDDDYY | 02:48 | 추천 0 | 조회 43
AANNNDDDYY 02:48 - 43
41094 함수/공식
New 수식의 이름관리자가 열리지 않습니다 (4)
abbado | 01:16 | 추천 0 | 조회 33
abbado 01:16 - 33
41090 VBA
New 길이 계산 관련 문의 드립니다. 첨부파일 (2)
심우민 | 2022.08.11 | 추천 -1 | 조회 43
심우민 2022.08.11 -1 43
41087 문서서식
New 셀 초록색 표시 오류 해결 유튜브를 봤습니다. (1)
이성일 | 2022.08.11 | 추천 0 | 조회 33
이성일 2022.08.11 - 33
41086 함수/공식
New 어떤 수식 사용해야되는지 알려주세요ㅜ 첨부파일 (4)
🍒 | 2022.08.11 | 추천 0 | 조회 54
🍒 2022.08.11 - 54
41083 VBA
New VBA LISTBOX 활용에 대한 궁금증 엑셀파일 (3) 답변완료
박성원 | 2022.08.11 | 추천 0 | 조회 39
박성원 2022.08.11 - 39
41080 함수/공식
New index, match 함수 사용해서 일치하는 날짜 찾기 첨부파일 (2)
033cola | 2022.08.11 | 추천 0 | 조회 33
033cola 2022.08.11 - 33
41079 VBA
New 엑셀시트PDF저장관련(저장하고싶은 시트만 체크박스를이용하여 선택) 엑셀파일 (2) 답변완료
qkznl**** | 2022.08.11 | 추천 0 | 조회 27
qkznl**** 2022.08.11 - 27
41076 함수/공식
New 시간과 분으로 된 형식을 분단위로 바꾸는 방법 첨부파일 (3)
김군 | 2022.08.11 | 추천 0 | 조회 34
김군 2022.08.11 - 34
41075 함수/공식
New 약 20여개 파일(폼은 동일)이 있는데 데이터 결과값만 파악할수 있는파일을 만드는 해결방법 엑셀파일
pjc**** | 2022.08.11 | 추천 1 | 조회 38
pjc**** 2022.08.11 1 38
41067 함수/공식
New 몇 일 이후의 날짜 계산 오류 첨부파일 (3) 답변완료
보라색양털 | 2022.08.11 | 추천 1 | 조회 36
보라색양털 2022.08.11 1 36
41064 함수/공식
New 카운트관련 3번째 질의 드립니다. ㅠㅠ 엑셀파일 (1)
Thekey_guy | 2022.08.11 | 추천 0 | 조회 30
Thekey_guy 2022.08.11 - 30
41061 함수/공식
New 월별로 해당하는 건수를 계산하고 싶어요 엑셀파일 (2)
꿈꾸는부자 | 2022.08.10 | 추천 0 | 조회 57
꿈꾸는부자 2022.08.10 - 57
41060 피벗테이블
New 합계, 개수로 각각 다른 값의 피벗테이블을 만들었으나 동일한 응시율이 표시되는 이유??? 엑셀파일 (3)
sky3**** | 2022.08.10 | 추천 0 | 조회 48
sky3**** 2022.08.10 - 48
41058 함수/공식
New Excel 2019 수식 FILTER 첨부파일 (1)
Merci getta | 2022.08.10 | 추천 0 | 조회 57
Merci getta 2022.08.10 - 57
41052 VBA
New 특정문자 제거 (2) 답변완료
천하무적 | 2022.08.10 | 추천 0 | 조회 70
천하무적 2022.08.10 - 70
41046 함수/공식
New 마지막 셀 이동을 위한 Match 함수에서 문자열과 선택옵션 -1의 의미 (3)
| 2022.08.10 | 추천 0 | 조회 58
2022.08.10 - 58