Tüm Grafikleri Mevcut Tüm Çalışma Sayfalarından Excel Çalışma Kitabında Yeni Oluşturulan Bir Tabloya Toplu Taşımanın 2 Yolu

Excel çalışma kitabınızdaki her çalışma sayfasında birden fazla grafik varsa ve şimdi tüm grafikleri yeni oluşturulmuş bir çalışma sayfasına toplu olarak taşımak istiyorsanız, bu yazıyı inceleyebilirsiniz. Burada size 2 kolay yöntem tanıtacağız.

Bir Excel çalışma kitabının her çalışma sayfasındaki veriler için grafikler oluşturduktan sonra, verileri bu grafiklere göre daha iyi analiz edebilmek için tüm bu grafikleri aynı çalışma sayfasında toplamak isteyebilirsiniz. Başka bir deyişle, hepsini yeni bir çalışma sayfasına taşımayı umabilirsiniz. Birkaç grafik varsa, tek tek hareket etmek için aşağıdaki Yöntem 1'i kullanabilirsiniz. Yine de, sayısız çizelge varsa, ikincisini kullanmanız daha iyi olur.

Yöntem 1: Grafiği Tek Tek El İle Taşıyın

1. İlk başta, tüm grafikleri taşımak istediğiniz yeni bir çalışma sayfası oluşturun.
2. Ardından, bir çalışma sayfası açın ve içindeki bir çizelgeye adım atın.
3. Ardından, grafiğe sağ tıklayın ve içerik menüsünden “Grafik Taşı” seçeneğini seçin.
4. Açılan "Grafik Taşı" iletişim kutusunda, "Nesne" listesinden yeni sayfayı seçin ve "Tamam" ı tıklayın.
5. Bir kerede, seçilen grafik taşınacaktır.
6. Artık tüm çalışma sayfalarındaki tüm grafikleri tek tek işlemek için bu yolu kullanabilirsiniz.

Yöntem 2: Excel VBA ile Toplu Taşıma

1. Başlamak için, Excel VBA düzenleyicisini “ göre başlatın.Excel'inizde VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, aşağıdaki kodu bir modüle veya projeye yerleştirin.

Sub MoveAllCharts()
    Dim strNewSheet As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objChart As Object

    'Create a new sheet
    strNewSheet = "Charts"
    ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1)).Name = strNewSheet
    Set objTargetWorksheet = Application.Worksheets(strNewSheet)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strNewSheet Then
           'Move each chart to the new sheet one by one
           For Each objChart In objWorksheet.ChartObjects
               objChart.Chart.Location xlLocationAsObject, strNewSheet
           Next objChart
        End If
    Next

    objTargetWorksheet.Activate
End Sub

3. Daha sonra bu makroyu hemen çalıştırmak için doğrudan “F5” tuşuna basın.
4. Makro bittiğinde, VBA editöründen çıkın.
5. Excel ana penceresinde, tüm grafikleri görebileceğiniz yeni bir çalışma sayfası görebilirsiniz.

karşılaştırma

Hasarlı Excel Dosyasını Onar

Excel ara sıra çökebileceğinden, Excel dosyası bozulmaya eğilimlidir. Böyle bir durumda, güçlü ve güvenilir bir xlsx kurtarma araç, örneğin DataNumen Excel Repair. Excel dosyanız bozulduğunda ve Excel'in otomatik kurtarma özelliği çalışmadığında kullanışlı olacaktır.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com