Merhaba
11597 Satırlık verim mevcut. Her 11 satırdan 1 Grafik Çıkıyor. Bu grafikleri oluşturup masaüstüme pdf olarak kayıt etmeyi planlayarak büyük iş yükünden kurtulmayı düşündüm ama uygulamaya dökerken hata alıyorum. Hata aldığım kodu aşağı ekliyorum.


ActiveSheet.Shapes("Grafik 3").IncrementLft 89.1176377953
ActiveSheet.Shapes("Grafik 3").IncrementTop -210.8823622047
ActiveSheet.Shapes("Grafik 3").ScaleWidth 2.7279413823, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Grafik 3").ScaleHeight 1.9971405658, msoFalse, _
msoScaleFromTopLeft"

Bu kısım beni bitiren kısım. Grafiği oluşturduktan sonra grafiğe boyut vermek istedim çünkü değerler iç içe giriyordu grafikte. Burada bulunan Grafik 3 kısmı her grafik yazdırmadan sonra değişmesi gerekiyor sanırım artık grafiğin değeri neyse sanırım o olması gerekiyor bu grafik 3 olayını çözemedim. Grafik 4, grafik 5, vs. diye gitmesi gerekiyor sanırım

Grafik 3 satırındaBelirtilen adlı öge bulunamadı diye sürekli hata yiyorum. Problemi anlatabildim mi bilmiyorum ama aşağıya tüm kodları ekledim Grafik 3 yazan yere nasıl bir değişken tanımlayabilirim veya nasıl başka bir alternatif üretebilirim, Teşekkürler

Sub Makro1()
'
For i = 2 To 11587 Step 11
For p = 12 To 11597 Step 11

'
    Range("" & "D" & i & ":" & "I" & p).Select
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveSheet.Shapes("Grafik 3").IncrementLft 89.1176377953
    ActiveSheet.Shapes("Grafik 3").IncrementTop -210.8823622047
    ActiveSheet.Shapes("Grafik 3").ScaleWidth 2.7279413823, msoFalse, _
        msoScaleFromTopLeft
    ActiveSheet.Shapes("Grafik 3").ScaleHeight 1.9971405658, msoFalse, _
        msoScaleFromTopLeft
    ActiveChart.SetElement (msoElementDataLabelTop)
    ActiveChart.SetElement (msoElementDataTableWithLegendKeys)
    ActiveChart.ChartTitle.Select
    Selection.Caption = "='veritabanı'!B & i"
    ActiveChart.ChartArea.Select
    ChDir "C:\Users\narhome\Desktop\deneme"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\narhome\Desktop\deneme\" & Sheets("veritabanı").Range("B" & i) & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    ActiveChart.Parent.Delete
Next
Next

 
End Sub