DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Grafik_Ciz()
Dim cht As Chart
Dim wks As Worksheet
Set wks = Sheets("Sayfa1")
wks.ChartObjects.Delete
Set cht = Charts.Add
Set cht = cht.Location(xlLocationAsObject, wks.Name)
With cht
With .Parent
.Top = Range("C16").Top
.Left = Range("C16").Left
.Width = Range("C16:K16").Width
.Height = Range("C16:C32").Height
End With
.ChartType = xlColumnStacked
.SetSourceData wks.Range("C3:F9"), xlColumns
.Legend.Delete
.Axes(xlValue).MajorGridlines.Delete
.PlotArea.ClearFormats
End With
Set cht = Nothing
Set wks = Nothing
End Sub
Private Sub CommandButton1_Click()
Call Grafik_Ciz
End Sub