Excel'de bir çalışma sayfasına program aracılığıyla tüm eklenmiş grafikleri yazdırma

Microsoft Excel'de, excel çalışma sayfasındaki tüm eklenmiş grafikleri yazdıran bir Microsoft Visual Basic for Applications makro oluşturabilirsiniz. Her grafik ayrı bir sayfaya yazdırılır.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Çalışma sayfasındaki tüm eklenmiş grafikleri yazdırabilen ve her grafiği ayrı bir sayfaya yazdırabilen örnek bir makro oluşturmak için şu adımları izleyin:

1. Excel'i başlatın ve eklenmiş grafiklerin bulunduğu çalışma sayfasını içeren çalışma kitabını açın.

2. Visual Basic Düzenleyici başlatmak için ALT+F11 tuşlarına basın.

3. Ekle menüsünde, Modül'e tıklayın.

4. Modül sayfasında aşağıdaki kodu yazın veya yapıştırın:

   Sub PrintEmbeddedCharts()
        Dim ChartList As Integer
        Dim X As Integer
        ' Variable chartlist stores a count of all embedded charts.
        ChartList = ActiveSheet.ChartObjects.Count
        ' Increments the counter variable 'X' in a loop.
        For X = 1 To ChartList
            ' Selects the chart object.
            ActiveSheet.ChartObjects(X).Select
            ' Makes chart active.
            ActiveSheet.ChartObjects(X).Activate
            ' Prints one copy of active chart.
            ActiveChart.PrintOut Copies:=1
        Next
   End Sub
   

5. Dosya menüsünde Kapat ve Microsoft Excel'e Dön'e tıklayın.

6. Eklenmiş grafikleri içeren çalışma sayfasını seçin.

7. Araçlar menüsünde Makro'ya gidin ve Makrolar'a tıklayın.

8. Makro adı listesinde PrintEmbeddedCharts'a ve ardından Çalıştır'a tıklayın.