Речено је да до 50 посто ПоверПоинт презентација садржи податке који су копирани директно из Екцел-а. У ову изјаву није тешко поверовати. Често је много лакше анализирати и креирати графиконе и приказе података у Екцел-у него у ПоверПоинт-у. Након што су ти графикони и прикази података направљени, зашто их једноставно не бисте преместили у ПоверПоинт? Макро у овом одељку вам омогућава да динамички креирате ПоверПоинт слајдове који садрже податке из опсега који наведете.
Можете преузети радни пример слања Екцел података у ПоверПоинт .
Како функционише макро
У овом примеру копирате опсег из Екцел датотеке и налепите тај опсег на слајд у новокреираној ПоверПоинт презентацији.
Имајте на уму да пошто ће се овај код покретати из програма Екцел, морате да поставите референцу на библиотеку објеката Мицрософт ПоверПоинт. Можете поставити референцу тако што ћете отворити Висуал Басиц Едитор у Екцел-у и изабрати Тоол→Референцес. Померите се надоле док не пронађете унос Библиотека објеката Мицрософт ПоверПоинт кк , где је кк ваша верзија ПоверПоинт-а. Означите поље за потврду поред уноса.
Суб ЦопиРангеТоПресентатион ()
'Корак 1: Декларисајте своје променљиве
Дим ПП Ас ПоверПоинт.Апплицатион
Дим ПППрес као ПоверПоинт.Пресентатион
Дим ППСлиде Ас ПоверПоинт.Слиде
Дим СлидеТитле као стринг
„Корак 2: Отворите ПоверПоинт и креирајте нову презентацију
Поставите ПП = Нова ПоверПоинт.Апликација
Поставите ПППрес = ПП.Пресентатионс.Адд
ПП.Висибле = Тачно
„Корак 3: Додајте нови слајд као слајд 1 и поставите фокус на њега
Подесите ППСлиде = ПППрес.Слидес.Адд(1, ппЛаиоутТитлеОнли)
ППСлиде.Селецт
'Корак 4: Копирајте опсег као слику
Схеетс("Подаци слајда").Распон("А1:Ј28").ЦопиПицтуре _
Изглед:=клСцреен, Формат:=клПицтуре
„Корак 5: Налепите слику и подесите њен положај
ППСлиде.Схапес.Пасте.Селецт
ПП.АцтивеВиндов.Селецтион.СхапеРанге.Алигн мсоАлигнЦентерс, Труе
ПП.АцтивеВиндов.Селецтион.СхапеРанге.Алигн мсоАлигнМиддлес, Труе
„Корак 6: Додајте наслов на слајд
СлидеТитле = "Мој први ПоверПоинт слајд"
ППСлиде.Схапес.Титле.ТектФраме.ТектРанге.Тект = СлидеТитле
„Корак 7: Чишћење меморије
ПП.Активирај
Поставите ППСлиде = Ништа
Поставите ПППрес = Ништа
Поставите ПП = Ништа
Енд суб
У кораку 1, декларишете четири променљиве: ПП је променљива објекта која излаже објекат ПоверПоинт апликације, ПППрес је променљива објекта која излаже ПоверПоинт Пресентатион објекат, ППСлиде је променљива објекта која излаже ПоверПоинт Слиде објекат, а СлидеТитле је стринг променљива која се користи за прослеђивање текста за наслов слајда.
Корак 2 отвара ПоверПоинт са празном презентацијом. Имајте на уму да својство Висибле ПоверПоинт апликације постављате на Тачно да бисте били сигурни да можете да видите радњу док се код покреће.
У кораку 3 додајете нови слајд у презентацију користећи методу Адд објекта Слиде. Имајте на уму да користите ппЛаиоутТитлеОнли, осигуравајући да је слајд креиран са оквиром за текст наслова. Затим направите додатни корак и поставите фокус на слајд. То значи да изричито кажете ПоверПоинт-у да изабере овај слајд, чинећи га активним.
У кораку 4, користите метод ЦопиПицтуре да бисте копирали циљни опсег као слику. Опсег који се овде копира је опсег А1 до Ј28 на картици Подаци слајда.
Корак 5 лепи слику у активни слајд и центрира слику хоризонтално и вертикално.
У кораку 6, складиштите текст за наслов у променљиву стринг, а затим ту променљиву проследите у ПоверПоинт да бисте применили текст на оквир текста наслова.
У 7. кораку отпуштате објекте додељене вашим варијаблама, смањујући могућност било каквих проблема узрокованих руменим објектима који могу остати отворени у меморији.
Како користити макро
Да бисте имплементирали овај макро, можете га копирати и налепити у стандардни модул:
Активирајте Висуал Басиц Едитор притиском на Алт+Ф11.
У прозору пројекта пронађите назив пројекта/радне свеске.
Изаберите Инсерт→Модуле.
Унесите или налепите код.