Excel de Grafik-Makro sorunu

[eeozbek]

Merhaba,
Makro kullanarak grafik çizdirmek istiyorum.Kodu aşağıda.Fakat makroyu ilk çalıştırdığımda kod doğru çalışıyor.Ama tekrar çalıştırdığımda kodda Grafik 8 yazıyor ama Çizilmek istenen grafik Grafik 9 ve bu yüzden hata veriyor.Her seferinde grafik nosunu excel otomatik 1 arttırıyor.Bu sorunu nasıl çözerim.Teşekkürler


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

'
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:C7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes("Grafik 8").ScaleWidth 1.46, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Grafik 8").ScaleHeight 1.16, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Grafik 8").ScaleHeight 1.34, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Grafik 8").ScaleWidth 1.32, msoFalse, msoScaleFromTopLeft
End Sub

 

[emrexcel123]

tekrar

arkadaşım bir konuyu tekrar açmana gerek yoktu cevap verilirse uygularsın verilmezse bu yeni konu açmanı gerektirmez...

 

[xxcell]

GEÇİCİ ÇÖZÜM ÖNERİM ŞÖYLE
------------------------------------
Sub Makro2()
'
' Makro2 Makro
' Makro 3798eeoz tarafından 4/25/2007 tarihinde kaydedildi.
'

'
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sayfa1").Range("A1:C7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
grafik_ismi = Mid(ActiveChart.Name, Len(ActiveSheet.Name) + 1, Len(ActiveChart.Name))
ActiveSheet.Shapes(grafik_ismi).ScaleWidth 1.46, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes(grafik_ismi).ScaleHeight 1.16, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes(grafik_ismi).ScaleHeight 1.34, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(grafik_ismi).ScaleWidth 1.32, msoFalse, msoScaleFromTopLeft
End Sub



GEÇİCİ ÇÖZÜM ÇÜNKÜ ; charts.add yaptığın sürece yeni grafik ekleyeceksin. Ve üstüste bissürü grafik oluşacak.

 

[eeozbek]

Öneriniz için teşekkür ederim ama devamlı data eklenip grafik yenilenecek.Dolayısıyla Grafik adındaki rakam büyüdükçe sorun cıkacak.2. bir yol Grafik oluşturulur oluşmaz adını değiştirmeye çalıştım ama olmadı