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. 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 anlayamadım. Grafik 4, grafik 5, vs.
Belirtilen adlı öge bulunamadı diye sürekli hata yiyorum. Problemi anlatabildim mi bilmiyorum ama aşağıya tüm kodları ekledim Grafik 3 yazan yere nsaıl bir değişken tanımlayabilirim veya nasıl başka bir alternatif üretebilirim, Teşekkürler
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. 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 anlayamadım. Grafik 4, grafik 5, vs.
Belirtilen adlı öge bulunamadı diye sürekli hata yiyorum. Problemi anlatabildim mi bilmiyorum ama aşağıya tüm kodları ekledim Grafik 3 yazan yere nsaıl bir değişken tanımlayabilirim veya nasıl başka bir alternatif üretebilirim, Teşekkürler
Kod:
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