У меня есть код для смены шрифтов, но он не работает должным образом :(Я хочу, чтобы петля прошла через всю презентацию и изменила размер шрифта и стиль по InputBox. Кто-нибудь может помочь мне в этом? Большое спасибо!Изменение размера и стиля шрифта
Sub FormatTextBoxes()
Dim intSlide As Integer
Dim strNotes As String
Dim nts As TextRange
Dim strFont, intSize
intSize = InputBox("Please enter font size", "fontsize", "12")
strFont = InputBox("Please enter font", "font type", "Calibri")
With ActivePresentation
For intSlide = 1 To .Slides.Count
Set nts = ActivePresentation.Slides(intSlide).NotesPage. _
Shapes.Placeholders(2).TextFrame.TextRange
With nts
If intSize = "" Then intSize = 12
.Paragraphs.Font.Size = intSize
.Paragraphs.Font.Name = strFont
End With
Next intSlide
End With
MsgBox ("FormatNotes uitgevoerd")
End Sub
Какие объекты вы хотите изменить размер шрифта/стиль для точности Этот код адреса страницы заметок текст-заполнитель объект только –