Excel Forum

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 "

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 "

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 "

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