Snasui Excel Forum

Code: Select all

    Dim str As String
    Dim rgExp As Range
    Set rgExp = Range("B3:H29")

    rgExp.CopyPicture Appearance:=xlScreen, Format:=xlPicture
 
    With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
    Width:=rgExp.Width, Height:=rgExp.Height)
    .Name = "ChartVolumeMetricsDevEXPORT"
    .Activate
    End With
    
   ActiveChart.Paste
   ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export Filename:="C:\Users\username\OneDrive\picture\page\1\" & Range("AB9").Value & "_" & Range("AC9").Value & " _" & Range("AD9").Value & ".jpg"
   ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete