Sub ViDu4() Dim MyChart As Chart Dim DataRange As Range Set DataRange = ActiveSheet.Range("A1:D5") Set MyChart = Charts.Add MyChart.SetSourceData Source:=DataRange MyChart.ChartType = xl3DColumnClustered End Sub Sub ViDu5() Sheets("Chart1").HasTitle = True Sheets("Chart1").ChartTitle.Text = "Doanh so Cong ty Hoa Binh" End Sub
@buithetam8634
2 жыл бұрын
Sub ViDu1() Dim MyChart As Chart Dim DataRange As Range Set DataRange = ActiveSheet.Range("A1:D5") Set MyChart = ActiveSheet.Shapes.AddChart(xl3DColumnClustered, 20, 100, 400, 300).Chart MyChart.SetSourceData Source:=DataRange End Sub Sub ViDu2() With ActiveSheet.ChartObjects(1).Chart .HasTitle = True .ChartTitle.Text = "Doanh so Cong ty Hoa Binh" End With End Sub Sub ViDu3() Dim i As Long With ActiveSheet For i = .ChartObjects.Count To 1 Step -1 .ChartObjects(i).Delete Next i End With End Sub
Пікірлер: 3