Как я и ChatGPT4 макрос для Powerpoint написали — Екатерина Лежнева на vc.ru

Дано:

1. Есть десяток презентаций, где нужно исправить шрифты на другие шрифты определенного размера. В образце слайдов можно исправить только шрифт, но не размер. И то через раз работает

2. Моя лень и желание передать рутину кому-нибудь другому. Но некому)

И я подумала, что для этих целей идеально подойдет макрос.

Макросы — это небольшие программы без своего интерфейса, которые умеют запоминать набор действий в других программах, сохранять их и применять к документам.

Есть одно НО: вы когда-нибудь задумывались о том, что в Powepoint вообще есть макросы? Я, честно говоря, ни разу про это не думала, да и вообще макросы программировать не сильно умею. И на то, чтобы разобраться, как это сделать, мне нужно было бы потратить часа 3 как минимум.

Но у меня же есть ChatGPT4! Я человеческим языком объяснила, что я хочу:

И он мне тут же выдал ответ. Умилило, что в ответе он объяснил, как создать макрос, потому что я этого тоже не помнила и даже не задумывалась, что про это можно спросить.

Как я и ChatGPT4 макрос для Powerpoint написали

Но... Он не сработал. Я догадалась, что не сработал он из-за того, что в нем есть русский шрифт. И попросила его:

Sub ChangeSlideFonts() Dim slide As slide Dim shape As Shape Dim textRange As TextRange For Each slide In ActivePresentation.Slides For Each shape In slide.Shapes If shape.HasTextFrame Then Set textRange = shape.TextFrame.TextRange If shape.Type = msoPlaceholder Then If shape.PlaceholderFormat.Type = ppPlaceholderTitle Or shape.PlaceholderFormat.Type = ppPlaceholderCenterTitle Then textRange.Font.Name = "Montserrat" textRange.Font.Size = 32 textRange.Font.Bold = msoTrue Else textRange.Font.Name = "Montserrat" textRange.Font.Size = 18 textRange.Font.Bold = msoFalse End If Else textRange.Font.Name = "Montserrat" textRange.Font.Size = 18 textRange.Font.Bold = msoFalse End If End If Next shape Next slide End Sub

В общем, после этого я чувствовала себя повелителем мира и сэкономила несколько часов своей жизни!

Если вас интересует тема онлайн обучения и искусственного интеллекта, welcome на мой канал

t.me

Lezhneva pro AI & E-learning (канал Лежневой Екатерины)

Делюсь опытом в образовании и e-learning, экспериментирую с AI, помогаю развивать карьеру. Сайт https://taplink.cc/lezhneva