Excel'de grafikleri görsellere nasıl aktarabilirsiniz?
Excel'de, bazen verilerden bazı grafikler oluşturabilirsiniz, böylece veriler daha görsel ve anlaşılır hale gelir. Eğer bu grafikleri belirli bir amaç için kaydetmek veya görsellere aktarmak isterseniz, bunu nasıl yapabilirsiniz?
VBA kodu ile bir grafiği görsel olarak dışa aktarma
Kutools for Excel ile birden fazla grafiği/resmi/şekli görsellere aktarma
VBA kodu ile bir grafiği görsel olarak dışa aktarma
Aşağıdaki VBA kodu, etkin çalışma sayfasından seçili bir grafiği resim olarak aktarmanıza yardımcı olabilir. Resim, uyguladığınız çalışma kitabının aynı konumunda kaydedilecektir. Aşağıdakileri yapın:
1. Dışa aktarmak istediğiniz grafiği seçin.
2. Ardından ALT + F11 tuşlarına basılı tutun, bu Microsoft Visual Basic for Applications penceresini açar.
3. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA: Grafiği görsel olarak dışa aktarma
Option Explicit
Sub ExportChart()
Const sSlash$ = "/"
Const sPicType$ = ".gif"
Dim sChartName$
Dim sPath$
Dim sBook$
Dim objChart As ChartObject
On Error Resume Next
Set objChart = ActiveSheet.ChartObjects(1)
If objChart Is Nothing Then
MsgBox "No charts have been detected on this sheet", 0
Exit Sub
End If
If ActiveChart Is Nothing Then
MsgBox "You must select a single chart for exporting ", 0
Exit Sub
End If
Start:
sChartName = Application.InputBox("Please Specify a name for the exported chart" & vbCr & _
"There is no default name available" & vbCr & _
"The chart will be saved in the same folder as this file", "Chart Export", "")
If sChartName = Empty Then
MsgBox "You have not entered a name for this chart", , "Invalid Entry"
Goto Start
End If
If sChartName = "False" Then
Exit Sub
End If
sBook = ActiveWorkbook.Path
sPath = sBook & sSlash & sChartName & sPicType
ActiveChart.Export Filename:=sPath, FilterName:="GIF"
End Sub
4. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve dışa aktarılan grafik için bir ad girin, ekran görüntüsüne bakın:
5. Ardından Tamam'a tıklayın, seçilen grafik Gif formatına aktarılmıştır ve orijinal dosya ile aynı konumda kaydedilmiştir. Ekran görüntüsüne bakın:
Yukarıdaki VBA koduyla aynı anda yalnızca bir grafiği aktarabilirsiniz, diğer grafikleri aktarmak istiyorsanız lütfen önce başka bir grafik seçin ve ardından kodla aktarın.
Kutools for Excel ile birden fazla grafiği/resmi/şekli görsellere aktarma
Kutools for Excel’ın Çözüm Dışa Aktar aracı, Excel'de birden fazla grafiği, resmi veya şekli tek seferde aktarabilir.
Kutools for Excel'i yükledikten sonra lütfen aşağıdaki işlemleri yapın:(Kutools for Excel'i Şimdi Ücretsiz İndirin!)
1. Kutools Plus > İçe Aktar / Dışa Aktar > Çözüm Dışa Aktar'a tıklayın, ekran görüntüsüne bakın:
2. İçindeki Çözüm Dışa Aktar diyalog kutusunda tüm grafikler, resimler ve şekiller sol liste kutusunda listelenmiştir, dışa aktarmak istediğiniz türü belirtin ve ardından düğmesine tıklayarak dışa aktarılan görselleri kaydetmek için bir dizin belirtin, aynı zamanda ihtiyaçlarınıza göre Aktarım Biçimi'nden resimlerin formatını seçebilirsiniz, örneğin GIF, JPEG, TIF veya PNG.
3. Sonra tıklayın Tamam, tüm grafikler, resimler ve şekiller belirlenen konuma başarıyla aktarılmıştır. Ekran görüntülerine bakın:
![]() |
![]() |
![]() |
Demo: Çözüm Dışa Aktar
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.





- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin