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

VBA
작성자
yooosj****
작성일
2022-06-21 15:49
조회
38
엑셀버전 : 엑셀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
전체 2

  • 2022-06-22 06:26
    채택된 답변

    @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