Создания заливки-в переменной

Question

PowerPoint В слове я использую следующее, чтобы вставить текст из поля ввода в указанном месте в слове:

Sub OpenWord() 


    Dim var1 As String 
    var1 = InputBox("vul!") 

    Documents.Open ("C:\Documents and Settings\aa471714\Desktop\TEMP BESTANDEN/Doc2.doc") 
    ActiveDocument.Bookmarks("Test").Select 
    Selection.Text = var1 


End Sub 

Я знаю, что хотел бы создать в том же функции для чего-то в powerpoint. Итак, что я сделал по слову (классифицируя область закладок в слове как «тест», а затем заполняю переменную там), которые хотят делать и в powerpoint. Определите объект каким-то образом, чтобы я мог заполнить там переменную.

Кто-нибудь подскажет, как мне это сделать в PPT?

Answer 1

Вот основы того, что вам нужно.

Sub WriteToTextBox() 
Dim tb As Shape 
Dim sld As Slide 
Dim pres As Presentation 
Dim var1 As String 


var1 = InputBox("Var1") 
Set pres = ActivePresentation 
Set sld = pres.Slides(23) 'Modify as needed 

Set tb = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 100, 50) 'Modify dimensions as needed 
    tb.name = "unique name" '< assign a unique name to the textbox so you can refer to it later 
    tb.TextFrame.TextRange.Text = var1 



End Sub 

Sub ReadFromTextBox() 
Dim s$ 
Dim sld As Slide 
Dim pres As Presentation 
Set pres = ActivePresentation 
Set sld = pres.Slides(23) 'Modify as needed 


s = sld.Shapes("unique name").TextFrame.TextRange.Text 'Read the value from the textbox 
MsgBox s 

End Sub