PowerPoint'e güncel grafik çekmek

[sgd]

Merhaba,

Verilerimizi tutuğumuz ve bu veriler sonucunda oluşturduğumuz birkaç excel dosyamız mevcut. Bu grafikleri ise her ay tek tek ilgili excel dosyalarından powerpoint'e atıp sunum haline getiriyoruz. Her seferinde metin boyutunu, yazı karakterlerini vs uğraşmak zorunda kalıyoruz. Acaba girdiğimiz verileri otomatik olarak güncellerek devam eden bir powerpoint sunumu yapabilmek mümkün mü? Ben ilgili excel e ilgili ayın verilerini gireyim, veriyi girince tablo otomatik güncelleniyor bu güncellenen tabloyu otomatik olarak powerpointe atabilirsem büyük bir yükten kurtulmuş olacağım.

 

[tugkan]

Merhaba,
Dener misiniz? Bazı alanları özelleştirmeniz gerekiyor. Kodu inceleyip o bölümleri güncelleyebilirsiniz.

Excel ve PowerPoint arasında otomatik bağlantı kurarak verilerinizi kolayca güncelleyebilirsiniz. Excel dosyasındaki verileri PowerPoint'e bağlamak ve her veri değişikliğinde otomatik olarak güncellenmesini sağlamak için aşağıdaki adımları takip edebilirsiniz:

1. Excel Dosyasını PowerPoint'e Bağlamak

1. Excel Dosyasını Hazırlayın: İlgili Excel dosyasını açın ve tabloları ya da grafikleri oluşturun.
2. PowerPoint Sunumunu Açın: PowerPoint sunumunuzu açın.
3. Excel Verisini PowerPoint'e Aktarın:
   • PowerPoint'te uygun slayta gidin.
   • Menüden Ekle sekmesine tıklayın ve Tablo ya da Grafik seçeneğini seçin (ihtiyacınıza göre).
   • Veri Bağlantısı yapmak için Ekle > Nesne > Bağlantılı Excel Dosyasını Seç seçeneğini tıklayın.

Bu işlem, Excel dosyasındaki veriyi PowerPoint'e bağlar. Her seferinde PowerPoint'i açtığınızda Excel verilerindeki güncellemeler otomatik olarak PowerPoint'e yansır.

2. VBA ile Otomatik Güncellemeyi Sağlamak
Excel ve PowerPoint arasında daha gelişmiş otomasyon istiyorsanız, VBA (Visual Basic for Applications) kullanarak işlem adımlarını otomatikleştirebilirsiniz. Örneğin, Excel dosyanızdaki veriler her güncellendiğinde, bu veriyi otomatik olarak PowerPoint'e aktarmak için şu şekilde bir VBA kodu kullanabilirsiniz:

1. Excel VBA Kodu

Sub UpdatePowerPoint()
    Dim pptApp As Object
    Dim pptPresentation As Object
    Dim pptSlide As Object
    Dim pptShape As Object
    Dim excelRange As Range
    
    ' PowerPoint uygulamasını başlat
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    
    ' PowerPoint sunumunu aç
    Set pptPresentation = pptApp.Presentations.Open("C:\Path\to\your\presentation.pptx")
    
    ' Excel verisini seç
    Set excelRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")  ' Burada veri aralığını belirleyin
    
    ' PowerPoint'teki uygun slaytı seç ve veriyi ekle
    Set pptSlide = pptPresentation.Slides(1)  ' 1. slaytı seç
    Set pptShape = pptSlide.Shapes(1)  ' 1. şekli (tablo ya da grafik) seç
    
    ' Veriyi PowerPoint'e aktarma
    pptShape.Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = excelRange.Value  ' Burada uygun hücreyi seçin
    
    ' Sunumu kaydet ve kapat
    pptPresentation.Save
    pptPresentation.Close
End Sub

Bu VBA kodu, belirlediğiniz Excel verilerini PowerPoint sunumuna otomatik olarak aktarır ve güncellenmiş verilerle sunumu kaydeder.

3. Veriyi Grafik Olarak Aktarmak
Eğer verileri grafik olarak aktarmak isterseniz, Excel'deki grafiği PowerPoint'e ekleyebilirsiniz:

• Grafiği Excel'den kopyalayın (Ctrl + C).
• PowerPoint sunumunuza yapıştırın (Ctrl + V).
• Yapıştırma sırasında Bağlantıyı Yapıştır seçeneğini seçin, böylece verilerdeki değişiklikler grafiği otomatik olarak günceller.

Bu yöntemlerle, Excel verilerini PowerPoint sunumunuza bağlayarak her ay tekrar tekrar manuel iş yapmaktan kurtulabilirsiniz.