Save a plot in Excel VBA as an image

Question

Good afternoon. I am trying to save my plot as an image in the desktop. I 've tried different methods, with no success. Could someone help me? here is the plot creation code that works. I should add only the saving part.

Sub Prova_Grafico()

'' Part 1 delete the previous plots

Dim i As Integer

For i = 1 To ActiveSheet.Shapes.Count

    ActiveSheet.Shapes(i).Delete

Next i

'' Title

Range("a12").Select

Titolo = Range("b4").Value

'' Parte 2 Plot creation

ActiveCell.CurrentRegion.Select 'Cell selection

Dim Grafico As Shape 'plot set

Set Grafico = ActiveSheet.Shapes.AddChart2(, xlXYScatter) ' Plot creation

With Grafico.Chart

    .ChartType = xlXYScatter

    .HasTitle = True

    .ChartTitle.Text = Titolo

    .ChartTitle.Font.Size = 30 ' Modify the font size as per your requirement

End With

‘Add Horizontal line

ActiveSheet.ChartObjects(Grafico.Name).Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection.NewSeries

ActiveChart.FullSeriesCollection(2).Name = "=""Series 2"""

ActiveChart.FullSeriesCollection(2).XValues = "=Main!$F$58:$G$58"

ActiveChart.FullSeriesCollection(2).Values = "=Main!$F$59:$G$59"

ActiveChart.FullSeriesCollection(2).Select

With Selection.Format.Line

    .Visible = msoTrue

    .ForeColor.ObjectThemeColor = msoThemeColorAccent1

    .ForeColor.TintAndShade = 0

    .ForeColor.Brightness = 0

    .ForeColor.RGB = RGB(255, 0, 0)

End With

ActiveChart.FullSeriesCollection(2).Points(2).Select

Selection.MarkerStyle = -4142

Range("a1").Select

End Sub

Answer 1

Traduco in italiano:
Buonpomeriggio sto cercando di fare un codice excel vba per salvare un grafico fatto in excel VBA in immagine sul mio desktop, ma non riesco. sapreste aiutarmi?
Questo è il codice per il grafico.
Ringrazio e auguro una buona giornata
mauro
Sub Prova_Grafico()

'' Part 1 delete the previous plots

Dim i As Integer

For i = 1 To ActiveSheet.Shapes.Count

    ActiveSheet.Shapes(i).Delete

Next i

'' Title

Range("a12").Select

Titolo = Range("b4").Value

'' Parte 2 Plot creation

ActiveCell.CurrentRegion.Select 'Cell selection

Dim Grafico As Shape 'plot set

Set Grafico = ActiveSheet.Shapes.AddChart2(, xlXYScatter) ' Plot creation

With Grafico.Chart

    .ChartType = xlXYScatter

    .HasTitle = True

    .ChartTitle.Text = Titolo

    .ChartTitle.Font.Size = 30 ' Modify the font size as per your requirement

End With

‘Add Horizontal line

ActiveSheet.ChartObjects(Grafico.Name).Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection.NewSeries

ActiveChart.FullSeriesCollection(2).Name = "=""Series 2"""

ActiveChart.FullSeriesCollection(2).XValues = "=Main!$F$58:$G$58"

ActiveChart.FullSeriesCollection(2).Values = "=Main!$F$59:$G$59"

ActiveChart.FullSeriesCollection(2).Select

With Selection.Format.Line

    .Visible = msoTrue

    .ForeColor.ObjectThemeColor = msoThemeColorAccent1

    .ForeColor.TintAndShade = 0

    .ForeColor.Brightness = 0

    .ForeColor.RGB = RGB(255, 0, 0)

End With

ActiveChart.FullSeriesCollection(2).Points(2).Select

Selection.MarkerStyle = -4142

Answer 2

ciao

gentilmente scrivete in Italiano

questo foum è in lingua Italiana

grazie