Как да работя с полета за съобщения и въвеждане в PowerPoint VBA?

Преглеждайки коментарите, видях няколко въпроса на читателя за това как да работя с полета за въвеждане и съобщения на Visual Basic в PowerPoint.

В този урок ще предоставим много основни основни познания, които да ви помогнат да използвате тези възможности, когато автоматизирате създаването на вашата презентация.

Настройка на раздела за програмисти

Първо, ще трябва да активираме средата за разработчици за PowerPoint. Следвайте този урок, за да настроите своя раздел за разработка.

В PowerPoint отидете в менюто Developer и натиснете Visual Basic.

В дървото на проекта щракнете с десния бутон върху вашата презентация, натиснете Вмъкване и след това изберете Модул. Ще бъде създаден нов VBA модул, това е мястото, където ще напишете своя код.

Кутии за съобщения в PowerPoint

Кутиите за съобщения са донякъде разбираеми, целта им е да покажат полезна информация на крайния потребител. Напишете следния код във вашия модул:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Натиснете F5 или Run и вижте резултата:

Пример за съобщение и поле за въвеждане

За разлика от кутиите за съобщения, полетата за въвеждане се използват за получаване на обратна връзка от потребителя. Нека разгледаме примера по-долу. Скриптът автоматично вмъква нови слайдове в презентацията.

Ето какво ще приложим:

1. Първо ще подканим потребителя за броя на слайдовете за добавяне (с помощта на поле за въвеждане).
2. След това ще уведомим потребителя за броя на слайдовете, които трябва да бъдат създадени (с помощта на кутия за съобщения)
3. И накрая, ще продължите и ще създадете слайдовете програмно.
4. Последно ще запазим модифицираната презентация

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Надяваме се, че това е помогнало, не се колебайте да оставяте коментари, ако е необходимо.