Vba - Как отправить новую строку команду (\ n) или команду вкладки (\ t) в текстовое поле. Rectextrange.text формы PowerPoints

StackOverflow https://stackoverflow.com//questions/25066225

  •  23-12-2019
  •  | 
  •  

Вопрос

SlideNumber = 1
Set oPPTSlide = oPPTFile.Slides(SlideNumber)

For y = 1 To oPPTSlide.Shapes.Count
    MsgBox oPPTSlide.Shapes(y).Name
Next

With oPPTSlide.Shapes("Title 1")
    .TextFrame.TextRange.Text = _ 
               "Operations Monthly Report\n" & _
               "April " & _
               "2014"
End With
.

Это код, который у меня есть сейчас.«\ N» вызывает редактирование текстовой коробки, чтобы начать новую строку.Является ли это возможным?Код в его контексте работает отлично работает.Точный текст отправляется в текстовое поле, хотя, не две строки текста.

Это было полезно?

Решение

Нет «\ n» в VBA вместо этого вы должны использовать VBNEWLINE или VBCRLF или VBLF

Заменить это

SlideNumber = 1
Set oPPTSlide = oPPTFile.Slides(SlideNumber)

For y = 1 To oPPTSlide.Shapes.Count
    MsgBox oPPTSlide.Shapes(y).Name
Next

With oPPTSlide.Shapes("Title 1")
    .TextFrame.TextRange.Text = _ 
               "Operations Monthly Report" & VbCrLf & _
               "April " & _
               "2014"
End With
.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top