액셀vba 자동으로 아웃룩 메일 보내기 할 때 데이터막대 가 사라지는 것 고치는방법

VBA

작성자

yooosj****

작성일

2022-06-21 15:49

조회

엑셀버전 : 엑셀2019

운영체제 : 윈도우10

액셀 VBA 초보지만 널리 공유되어있는 모듈을 사용하여 액셀 -> 아웃룩 자동화를 해보고 있습니다.

RangetoHTML 을 활용하여 원하는 range내의 액셀 정보를 아웃룩으로 생성하는데 까지는 쉽게 성공했는데, 해결하지 못하는게 있어서 고수님들꼐 도움 요청드려요!

질문 : 액셀 cell의 숫자를 conditional formatting -> rules -> data bar를 통해 그래프처럼 나타내고있는데, 이걸 자동 아웃룩 메일로 바꾸면 숫자는 그대로 있지만 data bar가 사라집니다.

혹시 이걸 보완해서 data bar도 나올 수 있게 만들 수 있나요? 방법 알려주시면 고쳐보도록 하겠습니다 감사합니다

액셀에서 보이는 data bar:

아웃룩 메일로 변환하면 안보임 :

사용중인 코드 :

Function RangetoHTML(rng As Range)

' Changed by Ron de Bruin 28-Oct-2006

' Working in Office 2000-2016

Dim fso As Object

Dim ts As Object

Dim TempFile As String

Dim TempWB As Workbook

TempFile = Environ$("temp") & "\" & format(Now, "dd-mm-yy h-mm-ss") & ".htm"

'Copy the range and create a new workbook to past the data in

rng.Copy

Set TempWB = Workbooks.Add(1)

With TempWB.Sheets(1)

.Cells(1).PasteSpecial Paste:=8

.Cells(1).PasteSpecial xlPasteValues, , False, False

.Cells(1).PasteSpecial xlPasteFormats, , False, False

.Cells(1).Select

Application.CutCopyMode = False

On Error Resume Next

.DrawingObjects.Visible = True

.DrawingObjects.Delete

On Error GoTo 0

End With

'Publish the sheet to a htm file

With TempWB.PublishObjects.Add( _

SourceType:=xlSourceRange, _

Filename:=TempFile, _

Sheet:=TempWB.Sheets(1).Name, _

source:=TempWB.Sheets(1).UsedRange.Address, _

HtmlType:=xlHtmlStatic)

.Publish (True)

End With

'Read all data from the htm file into RangetoHTML

Set fso = CreateObject("Scripting.FileSystemObject")

Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)

RangetoHTML = ts.readall

ts.Close

RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _

"align=left x:publishsource=")

'Close TempWB

TempWB.Close savechanges:=False

'Delete the htm file we used in this function

Kill TempFile

Set ts = Nothing

Set fso = Nothing

Set TempWB = Nothing

End Function

yooosj****

회원등급 : 2레벨

포인트 : 48 EP

총질문 : 1 개 (마감율 : 100%)

채택답변 : 0 개

게시글

전체 2

원조백수 님 67

2022-06-22 06:26

채택된 답변

@yooosj**** 님 데이터바를 지원하지는 않을테니 그림으로 복사한 후에 붙여넣어야 할 것 같습니다.
yooosj**** 님 작성자

2022-06-22 14:03

원조백수님 답변 감사드립니다!

그럼 데이터바를 꼭 넣구싶다면 자동화는 포기하고 직접 영역 지정해서 그림으로 복사하기 해야하는 걸까요?

해당 range를 그림으로 자동 복사하게 해주는 코드나 방법은 없을까요?

« 목록에서 함수 이름을 선택하면 선택한 함수를 적용하는 방법 (동일 셀에 여러 개의 함수 중 선택 적용하는 방법)

파워피벗 적용한 파일을 복사나 다른이름으로 저장한 후 '쿼리 및 연결' »

목록보기

전체 6,851

번호	카테고리	제목	작성자	작성일	추천	조회
알림		📌 -- VBA 기초-활용 4주 완성, 특별 스터디 모집을 시작합니다! ~7/8(금) 까지 -- 📌 (89) 오빠두엑셀 \| 2022.06.23 \| 추천 102 \| 조회 15598	오빠두엑셀	2022.06.23	102	15598

공지사항	함수/공식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (79) 오빠두엑셀 \| 2021.10.28 \| 추천 95 \| 조회 5319	오빠두엑셀	2021.10.28	95	5319
38370	VBA	New 행에 마지막 입력값 삭제하는 방법 문의 드림니다. (1) 033cola \| 17:36 \| 추천 0 \| 조회 16	033cola	17:36	0	16
38356	VBA	New VBA 또는 매크로 사용하여 시트1의 원한는 내용만 시트2에 표기하는 스크립트 문의 합니다. 파란맥 \| 16:30 \| 추천 1 \| 조회 16	파란맥	16:30	1	16
38287	VBA	New VBA 범위 입력 소스 문의 합니다. (6) 답변완료 파란맥 \| 08:36 \| 추천 1 \| 조회 39	파란맥	08:36	1	39
38284	기능/도구	New 엑셀 여러가지파일 탭으로 보기 asfdadfs \| 08:18 \| 추천 -1 \| 조회 27	asfdadfs	08:18	-1	27
38260	파워쿼리/피벗	New 청사 출입기록을 월별, 인원별로 정리하고 싶은데 선배님들 조언을 구합니다. 비에리 \| 03:30 \| 추천 0 \| 조회 23	비에리	03:30	0	23
38258	VBA	New 기준열과 동일하게 셀병합 하는 vba (2) 007 \| 02:10 \| 추천 0 \| 조회 39	007	02:10	0	39
38251	함수/공식	New 엑셀 다중조건으로 다른시트에 추출후 수정해서 원본시트에 업데이트방법? 제임스딘 \| 00:33 \| 추천 0 \| 조회 25	제임스딘	00:33	0	25
38197	VBA	New VBA 매크로 SelectionChange 명령문(스크립트) 조언 받고자 합니다. (2) 답변완료 파란맥 \| 2022.07.01 \| 추천 0 \| 조회 22	파란맥	2022.07.01	0	22
38191	함수/공식	New 특정 텍스트만 추출하는 함수에서.. (1) 답변완료 최사무엘 \| 2022.07.01 \| 추천 0 \| 조회 25	최사무엘	2022.07.01	0	25
38187	기능/도구	New 엑린이] 시트값을 자동으로 불러오고 싶습니다 (1) 세잎 \| 2022.07.01 \| 추천 0 \| 조회 26	세잎	2022.07.01	0	26
38183	VBA	New VBA 매크로 SelectionChange 명령문 조언 받고자 합니다. (7) 답변완료 파란맥 \| 2022.07.01 \| 추천 1 \| 조회 36	파란맥	2022.07.01	1	36
38182	함수/공식	New FILTER함수 사용시에 함수가 안먹히는 문제 (1) 엑셀고수되는방법좀 \| 2022.07.01 \| 추천 0 \| 조회 23	엑셀고수되는방법좀	2022.07.01	0	23
38177	함수/공식	New 값을 찾아 가져오고 싶습니다. (1) 땅콩바라기 \| 2022.07.01 \| 추천 0 \| 조회 18	땅콩바라기	2022.07.01	0	18
38175	문서서식	New 핸드폰 번호 서식을 통일 시키고 싶습니다... (2) qwerty \| 2022.07.01 \| 추천 0 \| 조회 19	qwerty	2022.07.01	0	19
38154	함수/공식	New 재고파일을 만들고 있는데 수식이.. ㅠㅠ (1) 최사무엘 \| 2022.07.01 \| 추천 -1 \| 조회 38	최사무엘	2022.07.01	-1	38
38152	VBA	New Sharepoint에 있는 파일에서 ADODB를 이용해 데이터 추출시 에러 발생하는데, 해결방법에 대해 도움 부탁 드립니다 (3) 답변완료 Jas \| 2022.07.01 \| 추천 0 \| 조회 21	Jas	2022.07.01	0	21
38150	함수/공식	New MATCH함수 문의 (1) 답변완료 땅콩바라기 \| 2022.07.01 \| 추천 0 \| 조회 21	땅콩바라기	2022.07.01	0	21
38149	함수/공식	New 번호 매기기 원하는 "0" 제외하고 번호 매기기 ~ 고수님 부탁드립니다. (4) 답변완료 kwt**** \| 2022.07.01 \| 추천 0 \| 조회 17	kwt****	2022.07.01	0	17
38148	함수/공식	New 선생님들 엑셀 너무 어렵습니다. 알려주세요. ㅠㅠ (3) 석고데생 \| 2022.07.01 \| 추천 -1 \| 조회 26	석고데생	2022.07.01	-1	26
38129	함수/공식	New 재고 관리에서 악성재고를 추려내고자 하는데.... (3) 답변완료 최사무엘 \| 2022.07.01 \| 추천 -2 \| 조회 41	최사무엘	2022.07.01	-2	41
38122	VBA	New if 문에서 A=B or C or D의 표현 방법이 무엇인가요? (2) kimki**** \| 2022.07.01 \| 추천 0 \| 조회 26	kimki****	2022.07.01	0	26
38105	VBA	New 엑셀 파일내 모든 테두리선 일괄변경 관련 엑셀고수를향해 \| 2022.07.01 \| 추천 -1 \| 조회 30	엑셀고수를향해	2022.07.01	-1	30
38097	함수/공식	New 뒤자리 0을 없에는 함수을 알고 싶어요? (4) 답변완료 포카라 \| 2022.07.01 \| 추천 0 \| 조회 32	포카라	2022.07.01	0	32
38093	문서서식	New [질문] 숫자 123... 을 하나둘셋 으로 표기 하는 법 (2) 티엠프이 \| 2022.07.01 \| 추천 0 \| 조회 23	티엠프이	2022.07.01	0	23
38091	함수/공식	New 도와주세요ㅜㅜ 값을 찾아서 가져오고 싶습니다. (4) 답변완료 땅콩바라기 \| 2022.07.01 \| 추천 0 \| 조회 28	땅콩바라기	2022.07.01	0	28
38020	VBA	New VBA 클리어 사용하여 특정 셀만 지우고자 합니다. (3) 답변완료 파란맥 \| 2022.07.01 \| 추천 0 \| 조회 28	파란맥	2022.07.01	0	28
37986	VBA	New VBA로 생성된 두 개의 피벗 테이블 슬라이서 연동 (4) 라바 \| 2022.06.30 \| 추천 0 \| 조회 23	라바	2022.06.30	0	23
37955	VBA	New 각 조합 별 중복사용자 수 추출방법 알려주실분.. (1) 윤썽 \| 2022.06.30 \| 추천 0 \| 조회 31	윤썽	2022.06.30	0	31
37804	함수/공식	New 문의합니다) 조건부 서식 채우기 (2) 답변완료 파란맥 \| 2022.06.30 \| 추천 0 \| 조회 50	파란맥	2022.06.30	0	50
37779	문서서식	New 조건부서식으로 글자크기 변경 (2) 답변완료 엑셀초보랍니다 \| 2022.06.30 \| 추천 0 \| 조회 32	엑셀초보랍니다	2022.06.30	0	32