Tüm görüntüleri Excel'den bir kerede nasıl dışa aktarırım?
Çalışma kitabınızda çok sayıda resminiz olduğunu ve bunları aynı anda belirli bir klasöre kaydetmek istediğinizi varsayalım, genellikle resimleri kaydetmek için manuel olarak tek tek kopyalayıp yapıştırabilirsiniz, ancak bunları kopyalayıp yapıştırmak zaman alıcıdır. defalarca böyle. Burada, bu işi çözmek için size bazı ipuçları sunacağım.
Farklı Kaydet işleviyle tüm görüntüleri Excel'den bir kerede dışa aktarın
Excel yerleşik ile Farklı Kaydet işlevi, bir çalışma kitabını farklı kaydedebilirsiniz. Web Sayfası çizelgeler, şekiller ve diğer nesneler dahil tüm resimleri bir klasöre kaydetmek için. Lütfen aşağıdaki gibi yapın.
1. Kaydetmek istediğiniz resimlerin bulunduğu çalışma kitabını açın. Tıklamak fileto > Farklı Kaydet > Araştır.
2. içinde Farklı Kaydet iletişim kutusu, yapmanız gerekenler:
3. Açılırken Microsoft Excel iletişim kutusunda, Evet düğmesine basın.
4. Dışa aktarılan dosyaların kaydedildiği klasörü açın; içinde bir klasör ve HTML biçiminde bir dosyanın listelendiğini görebilirsiniz. Çizelgeler, şekiller veya nesneler dahil olmak üzere çalışma kitabındaki tüm resimler bu klasöre kaydedilir.
5. İhtiyacınız olan resimleri klasörde tutabilir ve ihtiyacınız olmayan diğerlerini silebilirsiniz.
Harika bir araçla Tüm Görüntüleri Excel'den Aynı Anda Kolayca Dışa Aktarın
Yukarıdaki yöntem, çalışma kitabından tüm nesneleri çıkaracaktır, belki bazılarına ihtiyacınız yoktur. eğer varsa Kutools for Excel Excel'de kurulu, Grafikleri Dışa Aktar özelliği yalnızca ihtiyacınız olan resimleri kaydetmenize yardımcı olabilir.
Kurduktan sonra Kutools for Excellütfen aşağıdaki işlemleri yapın:
1. tık Kutools Artı > İthalat ihracat > Grafikleri Dışa Aktar:
2. içinde Grafikleri Dışa Aktar iletişim kutusu, lütfen aşağıdaki gibi yapılandırın:
3. Ardından, kaç tane resmin başarıyla dışa aktarıldığını söyleyen bir iletişim kutusu açılır, OK düğmesine basın.
Artık hedef klasöre gidebilir ve dışa aktarılan görüntüleri kontrol edebilirsiniz.
Lütfen kurs başvuru formu için Grafikleri Dışa Aktar bu özellik hakkında daha fazla bilgi edinmek için.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
Görüntüleri dışa aktarın ve bitişik hücre değerleriyle yeniden adlandırın
Aşağıdaki ekran görüntüsünde gösterildiği gibi, biri meyve adlarının listesini, diğeri ise meyvelerin karşılık gelen resimlerini içeren iki sütun vardır. Bu görüntüleri dışa aktarmak ve bunlara karşılık gelen meyve adlarıyla otomatik olarak adlandırmak için bu bölümdeki VBA kodunu deneyebilirsiniz.
1. Resimleri dışa aktarmak istediğiniz çalışma sayfasında, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > Modülü. Ardından aşağıdaki VBA'yı Modül penceresine kopyalayın.
VBA kodu: Resimleri bir sütuna aktarın ve otomatik olarak adlandırın
Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
Dim xStrPath As String
Dim xStrImgName As String
Dim xImg As Shape
Dim xObjChar As ChartObject
Dim xFD As FileDialog
Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
If xFD.Show = -1 Then
xStrPath = xFD.SelectedItems.Item(1) & "\"
Else
Exit Sub
End If
On Error Resume Next
For Each xImg In ActiveSheet.Shapes
If xImg.TopLeftCell.Column = 2 Then
xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
If xStrImgName <> "" Then
xImg.Select
Selection.Copy
Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
With xObjChar
.Border.LineStyle = xlLineStyleNone
.Activate
ActiveChart.Paste
.Chart.Export xStrPath & xStrImgName & ".png"
.Delete
End With
End If
End If
Next
End Sub
Notlar:
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Açılan pencerede, resimleri kaydetmek için bir klasör seçin ve ardından Tamam.
Ardından, belirli bir sütundaki tüm resimler dışa aktarılır ve belirttiğiniz gibi bitişik hücre değerleriyle otomatik olarak adlandırılır.
İlgili makale:
Grafikleri Excel'deki grafiklere nasıl aktarabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!