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
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