
Sub grafico()
Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
WS.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:= WS.Range("F6:F9")
ActiveChart.ChartType = xlXYScatter
End Sub |
ActiveChart.HasTitle = True ActiveChart.ChartTitle.Text = "MyChart" |
ActiveChart.SetElement (msoElementChartTitleAboveChart)
Selection.Caption = "miografico" |
