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