ต้องการเปลี่ยนจาก Pdf เป็น JPG

[nongmay_za]

สอบถามค่ะ

เวลาที่เราสั่งพิมงาน แต่ต้องการให้เป็น .jpg แต่ที่ทำอยู่ปัจจุบันเป็น pdf
ต้องแก้ไขตรงนี้ExportAsFixedFormat xlTypePDF
อย่างไรค่ะ

ขอคำแนะนำหน่อยค่ะ

Code: Select all

Worksheets("Bill").Activate
    Range("A1:K37").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$37"
    
        
    Dim path As String
    Dim I As Integer
    Dim Filename As String
    
    
    path = Range("Location1").Value & "\"
    
    'C:\Users\Admin\OneDrive\BillLine\¾Õè¹Ôé§
        
            Filename = path & Range("D5").Value & "_" & Range("I5").Value & Range("J5").Value & "_ID" & Range("K3").Value             
            Worksheets("Bill").ExportAsFixedFormat xlTypePDF, Filename
           
            
        
    MsgBox " Done "

ถ้าจะให้ Export เป็นfile .JPG ได้ไหมค่ะ
Worksheets("Bill").ExportAsFixedFormat xlTypePDF, Filename

[nongmay_za]

ไม่ได้แนบตัวอย่างเพราะไฟล์มันใหญ่ มันอัพโหลดไม่ได้ค่ะ

[snasui]

การ Save เป็นภาพไม่สามารถใช้การ Export ได้เหมือน PDF จะต้องใช้ตัวช่วยอื่นเช่น Chart แล้ว Save เป็นภาพ ดูตัวอย่างที่นี่ครับ

https://stackoverflow.com/questions/182 ... -using-vba
https://stackoverflow.com/questions/416 ... e-location
https://stackoverflow.com/questions/253 ... -excel-vba

[nongmayzaaa]

ขอบคุณค่ะ เดียวลองแล้วจะมาแจ้งน่ะค่ะ

[nongmay_za]

ขอคำปรึกษาค่ะ
จริงๆทำได้แล้วค่ะ แต่ติดตรงที่ต้องการให้ ชื่อที่บันทึก เหมือนกับเซลที่มีอยู่ค่ะ
เกิดบัคค่ะ ต้องแก้ไขตรงไหน เริ่มอย่างไรค่ะ
แชร์ไฟล์ค่ะ
https://1drv.ms/x/s!AifSF3XzOAibw3LgxpA ... Z?e=YiFEUX

Code: Select all

Dim rgExp As Range: Set rgExp = Sheets("Bill").Range("A1:K37")
''' Copy range as picture onto Clipboard
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
''' Create an empty chart with exact size of range copied
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=rgExp.Width, Height:=rgExp.Height)
.Name = "ChartVolumeMetricsDevEXPORT"
.Activate
End With
''' Paste into chart area, export to file, delete chart.
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export 'C:\Users\Admin\OneDrive\BillLine\น้าน้อย\
      Filename = Range("D5").Value & "_" & Range("I5").Value & Range("J5").Value & "_ID" & Range("K3").Value & ".jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete



           
            
        
    MsgBox " Done "

[snasui]

กรุณาสร้างไฟล์คำถามโดยเฉพาะโดยตัดไฟล์มาจากต้นฉบับ ถามกันมาเฉพาะที่เป็นปัญหาครับ

[nongmayzaaa]

ไฟล์มันลิ้งกันค่ะพอตัดออกแล้ว มันเกิดบัคเพิ่มค่ะ เลยตัดไม่ถูกจริงๆ ค่ะ

เฉพาะตรงนี้ที่เกิดบัคค่ะ

ขอบคุณค่ะ

Code: Select all

ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export 'C:\Users\Admin\OneDrive\BillLine\น้าน้อย\
      Filename = Range("D5").Value & "_" & Range("I5").Value & Range("J5").Value & "_ID" & Range("K3").Value & ".jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete

โค๊ดเต็ม

Code: Select all

Dim rgExp As Range: Set rgExp = Sheets("Bill").Range("A1:K37")
''' Copy range as picture onto Clipboard
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
''' Create an empty chart with exact size of range copied
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=rgExp.Width, Height:=rgExp.Height)
.Name = "ChartVolumeMetricsDevEXPORT"
.Activate
End With
''' Paste into chart area, export to file, delete chart.
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export 'C:\Users\Admin\OneDrive\BillLine\น้าน้อย\
      Filename = Range("D5").Value & "_" & Range("I5").Value & Range("J5").Value & "_ID" & Range("K3").Value & ".jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete



           
            
        
    MsgBox " Done "

[snasui]

กรุณาระบุ Version Excel ที่ใช้ด้วย ดูตามนี้ครับ https://www.snasui.com/viewtopic.php?st ... 77#p103177

ตัวอย่างการปรับ Code ครับ

Code: Select all

'Other code
Filename = "'C:\Users\Admin\OneDrive\BillLine\¹éÒ¹éÍÂ\"
Filename = Filename & Range("D5").Value & "_" & Range("I5").Value & Range("J5").Value & "_ID" & Range("K3").Value & ".jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export Filename
'Other code

ตัวอย่างการตัดไฟล์มาเฉพาะที่ติดปัญหาตามแนบครับ

[nongmay_za]

ได้เรียบร้อยแล้วค่ะ ขอบคุณมากน่ะค่ะ