ximage 구문 에러관련 문의
VBA
작성자
박상운
작성일
2022-07-21 15:49
조회
62
제가 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"도 삭제해보고
코드를 이렇게 저렇게 해보았는데도 안되네요... ㅠ_ㅠ
부디 도움을 부탁드립니다
전체 7,345
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
![]() ![]() |
![]() ![]() |
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 | - | 2 |
41132 | 함수/공식 |
New 함수를 간단히 할 수 있을까요?
![]() ![]() |
![]() |
19:59 | - | 18 |
41129 | 기능/도구 |
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기
![]() ![]() |
![]() |
18:29 | - | 29 |
41126 | VBA |
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의
![]() ![]() |
![]() |
16:35 | - | 35 |
41123 | 함수/공식 |
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요)
![]() ![]() |
![]() |
14:52 | - | 34 |
41117 | 피벗테이블 |
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ
![]() ![]() |
![]() |
13:49 | - | 33 |
41116 | 피벗테이블 |
New 피벗테이블 슬라이서 문의
![]() ![]() |
![]() |
13:38 | - | 25 |
41114 | 함수/공식 |
New Lookup 함수사용시 출력되는 날짜의 형식오류
![]() ![]() |
![]() |
13:16 | - | 24 |
41112 | 피벗테이블 |
New 엑셀 피벗테이블 필터부분을 가리는 방법을 알고 싶습니다!
![]() ![]() |
![]() |
12:58 | - | 26 |
41107 | 함수/공식 |
New 중첩 이프 함수 해결 방법 / 중첩 if 해결 방법 / 다중조건
![]() ![]() |
![]() |
11:00 | - | 36 |
41106 | 함수/공식 |
New 2X2 엑셀 값 비교하는 함수가 가능할까요?
![]() ![]() |
![]() |
10:56 | - | 32 |
41099 | 파워쿼리/피벗 |
New 여러개의 데이터 파일(같은 양식)을 데이터연결하여 하나의 파일로 관리(주기 관리)하는 방법
![]() ![]() |
![]() |
08:47 | -1 | 55 |
41096 | 피벗테이블 |
New 피벗테이블 날짜 슬라이서 제작시 오류
![]() ![]() |
![]() |
06:11 | - | 34 |
41095 | VBA |
New 매크로 관련 질문이예요. 도움 부탁드립니다.
(3)
![]() |
![]() |
02:48 | - | 43 |
41094 | 함수/공식 |
New 수식의 이름관리자가 열리지 않습니다
(4)
![]() |
![]() |
01:16 | - | 33 |
41090 | VBA |
New 길이 계산 관련 문의 드립니다.
![]() ![]() |
![]() |
2022.08.11 | -1 | 43 |
41087 | 문서서식 |
New 셀 초록색 표시 오류 해결 유튜브를 봤습니다.
(1)
![]() |
![]() |
2022.08.11 | - | 33 |
41086 | 함수/공식 |
New 어떤 수식 사용해야되는지 알려주세요ㅜ
![]() ![]() |
![]() |
2022.08.11 | - | 54 |
41083 | VBA |
New VBA LISTBOX 활용에 대한 궁금증
![]() ![]() |
![]() |
2022.08.11 | - | 39 |
41080 | 함수/공식 |
New index, match 함수 사용해서 일치하는 날짜 찾기
![]() ![]() |
![]() |
2022.08.11 | - | 33 |
41079 | VBA |
New 엑셀시트PDF저장관련(저장하고싶은 시트만 체크박스를이용하여 선택)
![]() ![]() |
![]() |
2022.08.11 | - | 27 |
41076 | 함수/공식 |
New 시간과 분으로 된 형식을 분단위로 바꾸는 방법
![]() ![]() |
![]() |
2022.08.11 | - | 34 |
41075 | 함수/공식 |
New 약 20여개 파일(폼은 동일)이 있는데 데이터 결과값만 파악할수 있는파일을 만드는 해결방법
![]() ![]() |
![]() |
2022.08.11 | 1 | 38 |
41067 | 함수/공식 |
New 몇 일 이후의 날짜 계산 오류
![]() ![]() |
![]() |
2022.08.11 | 1 | 36 |
41064 | 함수/공식 |
New 카운트관련 3번째 질의 드립니다. ㅠㅠ
![]() ![]() |
![]() |
2022.08.11 | - | 30 |
41061 | 함수/공식 |
New 월별로 해당하는 건수를 계산하고 싶어요
![]() ![]() |
![]() |
2022.08.10 | - | 57 |
41060 | 피벗테이블 |
New 합계, 개수로 각각 다른 값의 피벗테이블을 만들었으나 동일한 응시율이 표시되는 이유???
![]() ![]() |
![]() |
2022.08.10 | - | 48 |
41058 | 함수/공식 |
New Excel 2019 수식 FILTER
![]() ![]() |
![]() |
2022.08.10 | - | 57 |
41052 | VBA |
New 특정문자 제거
(2)
답변완료
![]() |
![]() |
2022.08.10 | - | 70 |
41046 | 함수/공식 |
New 마지막 셀 이동을 위한 Match 함수에서 문자열과 선택옵션 -1의 의미
(3)
![]() |
![]() |
2022.08.10 | - | 58 |
@박상운 님
를
로 바꾸세요
@ak 님 감사합니다! 바로 알려주신 대로 해보았습니다... 그런데.... ㅠ_ㅠ
여전히 칸에 맞춰져서 들어옵니다..;;;
이거 쉽게 생각했는데... 어제 오늘을 이렇게~ 저렇게~ 고민을 해보아도 원하는 결과가 나오지 않아
도움을 청합니다... ㅠ_ㅠ
@박상운 님 Set shpImg = aWS.Shapes.AddPicture(Link, msoFalse, msoTrue, _
aRng.Left, aRng.Top, -1, -1)
마진을 없애는게 아니라 그냥 이미지 사이즈 그대로 넣는걸 말씀하신거군요, 그냥 -1을 넣으면 됩니다.
@ak 님 됐습니다!!! 됐습니다!!!! 이게 됐습니다!!!!!! 감사합니다!!! ㅠ_ㅠ