Grafiklerle ilgili Hata

[eeozbek]

Merhaba,
Makro kaydettirip grafik çizdirdim.Grafiğin ve Grafiğin olduğu iç bölgenin renk yazı tipi gibi özelliklerini değiştirdiğimde makro sorunsuz çalışıyor.Fakat Grafik alanıyla ilgili(Dış alan) kenarlık özelliklerini,rengini vb değiştirdiğimde makro hata veriyor ilgili satırda(Koddaki koyu yazılan yer)

Yardımlarınız için teşekkürler şimdiden



Sub Makro1()
'
' Makro1 Makro
' Makro 3798eeoz tarafından 4/25/2007 tarihinde kaydedildi.
'

'
Range("H16").Select
Charts.Add
ActiveChart.ChartType = xlLineStacked
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:B7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Satış"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With Selection.Border
.ColorIndex = 57
.Weight = 4
.LineStyle = 1
End With
Sheets("Sayfa1").DrawingObjects("Grafik 2").RoundedCorners = True
Sheets("Sayfa1").DrawingObjects("Grafik 2").Shadow = True Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=2, _
Degree:=0.270588235294118
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 6
End With
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
End Sub

 

[emrexcel123]

örnek

arkadaşım bir örnek yollar mısın?

 

[hamitcan]

İsteğinize göre, aşağıdakilerden birini deneyin?

ActiveChart.ChartArea.Select 
With Selection.Border
.ColorIndex = 57
.Weight = 4
.LineStyle = 1
End With

ActiveChart.PlotArea.Select 
With Selection.Border
.ColorIndex = 57
.Weight = 4
.LineStyle = 1
End With

 

[eeozbek]

Hamitcan teşekkür ederim.Bir de aşağıdaki satırda hata veriyor.Sanırım "Grafik 2" olarak başlangıçta oluşturduğum için .Makronun yeni oluşturacağı gafik adını nerden alabilirm?

Sheets("Sayfa1").DrawingObjects("Grafik 2").RoundedCorners = True
Sheets("Sayfa1").DrawingObjects("Grafik 2").Shadow = True Selection.Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=2, _
Degree:=0.270588235294118