나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 김현수 (khs69)

추천:  2
파일:     조회:  1119
제목:   현재 PDF저장 코딩을 jpeg저장으로 수정할려합니다.
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >>2016

Private Sub btn_all_pdf_Click() 'PDF파일로 모든리스트 출력하기

    Dim i As Long
    '2d Array
   Dim vX As Variant: vX = Me.ListBox1.List
   Dim v As Variant
   Dim rngX As Range, shtX As Worksheet
   Set shtX = Worksheets("영수증")
   Dim sFile As String
   
   Application.ScreenUpdating = False
   
   For i = 0 To UBound(vX, 1)
   
        v = vX(i, 0)
        
        If v <> "" Then
        
            ' Listbox값을 A1에 대입
            [A1].Value = v
            '인쇄 범위
            Set rngX = shtX.Range("T5", shtX.Range("AL30"))
            ' 파일명
            sFile = shtX.[AQ11].Value & "\" & shtX.[AQ10].Value & ".pdf"
            '기존 파일 지우기
            If Dir(sFile) <> "" Then Kill sFile
            ' pdf 생성
            rngX.ExportAsFixedFormat xlTypePDF, sFile
            
        Else
       ' Stop
             Exit For
        End If
   Next i
   
   Application.ScreenUpdating = True
    
End Sub

위 코딩은 PDF로 저장하는 코딩으로, 이를 jpeg형식으로 저장하는 방식으로 변경을 할려니, 워낙에 초보라서 잘 안됩니다.
그냥 PDF -> jpeg 혹은 jpg로 수정하니 안되네요 

어떻게 수정이 이루어져야 하는지
부탁드립니다. 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2019-07-30(13:23)
최종수정일 : 2019-07-30(13:23)