Екцел ВБА ПоверПоинт
Коришћењем ВБА можемо аутоматизовати посао који радимо за ПоверПоинт, али прво да бисмо користили ВБА код или исечке за рад у Поверпоинт-у, прво прорадимо кроз сигурносне опције у ПоверПоинту да омогућимо све макронаредбе, а затим можемо користити ПоверПоинт ВБА референце за макрое у МС-у Упориште.
Лепота ВБА је у томе што се можемо позивати на друге Мицрософтове производе попут „Мицрософт Ворд“ и „Мицрософт ПоверПоинт“. Обично креирамо извештаје у Екцелу, а затим креирамо ПоверПоинт презентације. Сви Екцелови корисници обично потроше знатну количину времена да припреме презентацију из Екцелових података и извештаја. Ако трошите знатну количину времена на припрему ПоверПоинт презентација, овај водич ће вам показати како да направите ПоверПоинт презентацију од самог Екцел-а помоћу ВБА кодирања.
Омогући Поверпоинт објектни модел
Корак 1: Отворите ВБА Едитор, а затим идите на Алати и референце.
Корак 2: Сада ћете видети све референце на ВБА пројекат. Померите се надоле и изаберите „Библиотека објеката Мицрософт ПоверПоинт 15.0“.
Корак 3: Кликните на, Ок. Сада ПоверПоинту можемо приступити из програма Екцел.
ВБА водич за креирање ПоверПоинт презентације
ППТ можемо створити на два начина, један помоћу „Еарли Биндинг“, а други помоћу „Лате Биндинг“. Показаћемо вам како да направите ПоверПоинт презентацију помоћу технике „Рано повезивање“ .
Обично од екцела припремамо презентације на основу графикона и интерпретације карата. Стога сам у ту сврху створио неке једноставне Екцел табеле и интерпретације на истом радном листу.
Корак 1: Покрените потпрограм у ВБА. Сада за приступ ПоверПоинту, већ смо омогућили ПоверПоинт објектни модел у ранијим корацима, сада. Да бисмо приступили овоме, морамо променљиву прогласити ПоверПоинт.Апплицатион.
Шифра:
Суб ППТ_Екампле () Дим ППАпп као ПоверПоинт.Апплицатион Енд Суб
Корак 2: Да бисмо додали презентацију у ПоверПоинт, променљиву морамо прогласити као ПоверПоинт.Пресентатион.
Шифра:
Затамните ПППресентатион као ПоверПоинт.Пресентатион
Корак 3: Након додавања презентације у ПоверПоинт, морамо додати Слиде. Да би променљиву прогласили ПоверПоинт.Слиде
Шифра:
Затамни ППСлиде као ПоверПоинт.Слиде
Корак 4: Једном када је слајд додан у ПоверПоинт, морамо да користимо облике у ПоверПоинту, тј. Оквире за текст. Прогласити променљиву као ПоверПоинт.Схапе
Шифра:
Затамни ППСхапе као ПоверПоинт.Схапе
Корак 5: Сада, да бисмо приступили свим графиконима на радном листу, променљиву морамо прогласити Екцел.ЦхартОбјецтс.
Шифра:
Затамни ППЦхартс као Екцел.ЦхартОбјецт
Ок, за почетак поступка, ове променљиве су довољне.
Корак 6: Сада морамо покренути ПоверПоинт из програма Екцел. Будући да је то спољни објекат, ово морамо да поставимо као нови ПоверПоинт.
Шифра:
Подесите ППАпп = Нова ПоверПоинт.Апплицатион
Ово ће покренути нови ПоверПоинт из Екцела.
Корак 7: Сада је променљива ППАпп једнака ПоверПоинту који смо покренули. Сада учините овај ПоверПоинт видљивим и максимизирајте прозор.
Шифра:
ППАпп.Висибле = мсоЦТруе ППАпп.ВиндовСтате = ппВиндовМакимизед
У овом тренутку само покрените код помоћу тастера Ф5 или ручно. Требали бисте видети апликацију ПоверПоинт која је покренута као доленаведена.
Корак 8: Сада морамо да додамо презентацију у ПоверПоинт апликацију коју смо покренули.
Шифра:
Подесите ПППресентатион = ППАпп.Пресентатионс.Адд
Сада бисмо требали видети ПоверПоинт презентацију попут ове.
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
