Bir Excel Çalışma Kitabındaki Tüm Grafikleri Bir Windows Klasörüne Toplu Dışa Aktarmanın 3 Yöntemi

Tüm Excel çalışma sayfalarına yayılmış çok sayıda grafik içeren bir Excel çalışma kitabınız var. Şimdi, tüm grafikleri bir Windows klasörüne toplu olarak dışa aktarmak istiyorsanız, bu makalede açıklanan 3 yöntemden herhangi birini kullanabilirsiniz.

Bir Excel çalışma kitabındaki veriler için birden çok grafik oluşturduktan sonra, bu grafikleri de JPEG görüntü dosyaları olarak yerel bir klasöre vermek isteyebilirsiniz. Bu durumda, elbette, grafikleri tek tek manuel olarak kaydetmek için aşağıdaki Yöntem 1'i kullanabilirsiniz. Ancak, Excel dosyasında yüzlerce çalışma sayfası ve çizelge olması durumunda sıkıcı olacaktır. Yani, burada size toplu olarak almanıza izin verebilecek diğer 2 yaklaşımı öğreteceğiz.

Yöntem 1: Grafikleri MS Word'e Kopyalayın/PowerPoint

1. olaraktart, Excel dosyasında bir grafik seçin.
2. Ardından, üzerine sağ tıklayın ve içerik menüsünden “Kopyala” seçeneğini seçin.
3. Ardından, yeni bir Word belgesi oluşturun.
4. Daha sonra “Yapıştır” butonuna tıklayın ve “Özel Yapıştır” seçeneğini seçin.
5. Açılan iletişim kutusunda, "As" listesinden "Resim (JPEG)" öğesini seçin ve "Tamam" düğmesini tıklayın.
6. Bundan sonra, belgeye eklenen resmin üzerine gelin.
7. Ardından, üzerine sağ tıklayın ve “Resim Olarak Kaydet” seçeneğini seçin.
8. "Dosya Kaydet" penceresinde bir ad girin ve seçin tarWindows klasörünü alın.
9. Son olarak, "Kaydet" i tıklayın.
10. Şimdi, diğer grafikleri Excel dosyasından dışa aktarmak için bu yolu kullanabilirsiniz.

Yöntem 2: Çalışma Kitabını Web Sayfası Olarak Kaydet

1. Başlangıçta, açılan Excel çalışma kitabında "Dosya" ya gidin ve "Farklı Kaydet" i tıklayın.
2. Ardından, açılan "Farklı Kaydet" penceresinde, "Farklı kaydet" seçeneğinden "Web Sayfası"nı seçin.
3. Daha sonra, bir hedef Windows klasörü seçin ve “Kaydet”e tıklayın.
4. Bundan sonra, grafiklerin dışa aktarılan resimlerini görebileceğiniz “XXX_files” klasörüne göz atın.

Yöntem 3: Excel VBA ile Toplu Dışa Aktarma

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 ExportAllCharts()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objSheet As Excel.Worksheet
    Dim objChartObject As Excel.ChartObject
    Dim objChart As Excel.Chart

    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       For i = ThisWorkbook.Worksheets.Count To 1 Step -1
           Set objSheet = ThisWorkbook.Worksheets(i)

           If objSheet.ChartObjects.Count > 0 Then
              For Each objChartObject In objSheet.ChartObjects
                  Set objChart = objChartObject.Chart
                  objChart.Export strWindowsFolder & objChart.Name & ".jpg"
              Next
          End If
       Next

       'Open the windows folder
       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
   End If
End Sub

3. Ardından, bu makroyu şimdi çalıştırmak için “F5” tuşuna basın.
4. Ardından, açılır iletişim kutusunda bir Windows klasörü seçin.
5. Hemen, dışa aktarılan grafikleri içeren Windows klasörü görüntülenecektir.

karşılaştırma

Bozuk Excel Dosyalarını Onarın

Excel dosyaları, Word belgeleri gibi diğer yaygın dosyalara benzer şekilde savunmasızdır. Bu nedenle, güçlü bir şekilde muhafaza edilmesi tavsiye edilir. xls onarımı yakın çevrede, örneğin DataNumen Excel Repair. Excel dosyanız zarar gördüğünde 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. bozuk sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com