使用VBA创建基于PPT中用户输入的模板，以创建，添加文本框和格式化幻灯片的格式

Question

I have another questions that asks about the logic behind using several boolean radio buttons to ask survey questions, located here . The largets issue I have had was getting the text boxes to populate a separate slide to display the systems that will affect the customer based on their radio button input.

This post is an attempt to find a way to reduce the code needed to create, place, and format the text boxes. The below code is what I have so far, but it keeps telling me it expects an "=" when I run it.

Public Sub textBox(t As Integer, l As Integer, w As Integer, h As Integer, Sys As String)
Dim myTB As Shape

With ActivePresentation.Slides(7)
   Set myTB = .Shapes.AddTextbox(msoTextOrientationHotizontal, l, t, w, h)
   myTB.TextFrame.TextRange.Text = Sys
   myTB.TextFrame.TextRange.Font.Color.RGB = RGB(255,255,255)
   myTB.TextFrame.TextRange.Font.Size = 20
End With

End Sub

I think I may have the logic wrong in declaring the variables. What I want to be able to do is simply place textBox(200,300,200,25, "ERP Name") into my If Then or Case statement to format the boxes. Is there a better way to do this?

Answer 1

You'd need to use

CALL textBox(parm, parm, ... , parm) 

or leave out the parentheses.

For clearing everything out, here's a starting point:

Sub ClearTheField()

Dim oSl As Slide
Dim oSh As Shape

For Each oSl In ActivePresentation.Slides
    For Each oSh In oSl.Shapes
        If oSh.Type = msoOLEControlObject Then
            If Left$(oSh.OLEFormat.Object.Name, Len("TextBox")) = "TextBox" Then
                oSh.OLEFormat.Object.Text = ""
            End If
            If Left$(oSh.OLEFormat.Object.Name, Len("CheckBox")) = "CheckBox" Then
                oSh.OLEFormat.Object.Value = False
            End If
            If Left$(oSh.OLEFormat.Object.Name, Len("CommandButton")) = "CommandButton" Then
                oSh.OLEFormat.Object.Caption = "I changed too"
            End If

        End If
    Next
Next

End Sub