Excel VBA PowerPoint
VBA'yı kullanarak PowerPoint için yaptığımız işi otomatikleştirebiliriz, ancak önce powerpoint'te çalışmak için VBA kodunu veya parçacıkları kullanmak için önce PowerPoint'teki güvenlik seçenekleri üzerinden çalışarak tüm makroları etkinleştirebiliriz ve ardından MS'deki makrolar için PowerPoint VBA referansını kullanabiliriz. Priz.
VBA'nın güzelliği, "Microsoft Word" ve "Microsoft PowerPoint" gibi diğer Microsoft ürünlerine başvurabilmemizdir. Genellikle Excel'de raporlar oluşturur ve ardından PowerPoint sunumları oluştururuz. Tüm excel kullanıcıları, sunumu excel verileri ve raporlarından hazırlamak için genellikle önemli miktarda zaman harcarlar. PowerPoint sunumlarını hazırlamak için önemli miktarda zaman harcıyorsanız, bu eğitim size VBA Kodlaması kullanarak Excel'in kendisinden nasıl PowerPoint sunusu oluşturacağınızı gösterecektir.
Powerpoint Nesne Modelini Etkinleştir
Adım 1: VBA Düzenleyiciyi açın ve ardından Araçlar ve Referanslara gidin.
Adım 2: Şimdi, VBA Projesine yapılan tüm referansları göreceksiniz. Aşağı kaydırın ve "Microsoft PowerPoint 15.0 Nesne Kitaplığı" nı seçin.
Adım 3: Tamam'a tıklayın. Artık PowerPoint'e excel'den erişebiliriz.
PowerPoint Sunusu Oluşturmak için VBA Eğitimi
PPT'yi iki şekilde oluşturabiliriz: Biri "Erken Bağlama", diğeri "Geç Bağlama" "Erken Ciltleme" tekniğini kullanarak nasıl PowerPoint sunumu oluşturacağınızı göstereceğiz .
Genellikle excel'den çizelge ve çizelge yorumlarına göre sunumlar hazırlarız. Bu amaçla, aynı çalışma sayfasında bazı basit excel grafikleri ve yorumları oluşturdum.
Adım 1: Alt programı VBA'da başlatın. Şimdi PowerPoint'e erişmek için, şimdi önceki adımlarda PowerPoint nesne modelini zaten etkinleştirdik. Buna erişmek için değişkeni PowerPoint.Application olarak tanımlamamız gerekiyor.
Kod:
Sub PPT_Example () PPApp'ı PowerPoint Olarak Karartın. Uygulama Son Alt
Adım 2: Sunumu PowerPoint'e eklemek için bir değişkeni PowerPoint.Presentation olarak tanımlamamız gerekir.
Kod:
PowerPoint Sunum Olarak Dim PPPresentation
Adım 3: Sunuyu PowerPoint'e ekledikten sonra Slide eklememiz gerekiyor. Değişkeni PowerPoint olarak bildirmek için.
Kod:
Sönük PPSlide As PowerPoint.Slide
Adım 4: Slayt PowerPoint'e eklendikten sonra, PowerPoint'teki şekillerden, yani metin kutularından yararlanmamız gerekir. Bir değişkeni PowerPoint.Shape olarak bildirmek için
Kod:
PPShape'i PowerPoint.Shape Olarak Karartın
Adım 5: Şimdi, çalışma sayfasındaki tüm grafiklere erişmek için değişkeni Excel.ChartObjects olarak tanımlamamız gerekiyor.
Kod:
Dim PPCharts As Excel.ChartObject
Tamam, işlemlere başlamak için bu değişkenler yeterli.
Adım 6: Şimdi, PowerPoint'i excel'den başlatmamız gerekiyor. Harici bir nesne olduğu için bunu yeni bir PowerPoint olarak ayarlamamız gerekiyor.
Kod:
PPApp = Yeni PowerPoint.Application ayarlayın.
Bu, yeni PowerPoint'i excel'den başlatacak.
Adım 7: Şimdi, PPApp değişkeni başlattığımız PowerPoint'e eşittir. Şimdi bu PowerPoint'i görünür yapın ve pencereyi büyütün.
Kod:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Şu anda, kodu F5 tuşunu kullanarak veya manuel olarak çalıştırın. Aşağıdaki gibi başlatılan PowerPoint uygulamasını görmelisiniz.
Adım 8: Şimdi, başlattığımız PowerPoint uygulamasına bir sunum eklememiz gerekiyor.
Kod:
PPPresentation = PPApp.Presentations.Add olarak ayarlayın
Şimdi PowerPoint sunumunu böyle görmeliyiz.
Step 9: After adding the presentation, we need to add a slide.
Code:
Set PPSlide = PPPresentation.Slides.Add(1, ppLayoutTitleOnly)
Now this will add the title slide like the below.
Step 10: Now we have more than one chart in the worksheet, we need to loop through each chart and paste in the presentation. Below is the code to copy and paste the chart as well as interpretation.
Below is the complete code for you.
Sub PPT_Example() Dim PPApp As PowerPoint.Application Dim PPPresentation As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PPShape As PowerPoint.Shape Dim PPCharts As Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add 'Loop through each chart in the Excel and paste into the PowerPoint For Each PPCharts In ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutText PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides(PPApp.ActivePresentation.Slides.Count) 'Copy the chart and paste in Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select 'Add heading to the slide PPSlide.Shapes(1).TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text 'Allignment of the chart PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWindow.Selection.ShapeRange.Top = 125 PPSlide.Shapes(2).Width = 200 PPSlide.Shapes(2).Left = 505 'Add interpretation If InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Region") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K2").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K3").Value & vbNewLine) 'Else if the chart is the "Renewable" consumption chart, then enter the appropriate comments ElseIf InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Month") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K20").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K21").Value & vbNewLine) PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K22").Value & vbNewLine) End If 'Now let's change the font size of the callouts box PPSlide.Shapes(2).TextFrame.TextRange.Font.Size = 16 Next PPCharts End Sub
