![]() |
ok, langsug aja kita pelajari
1.pertama buka powerpoint
2.tekan Alt + F11
3.muncul jendela VBA ppt, kemudian klik tab insert>module
4.kemudian isi kan script ini
Sub AddAndPopulateATextBox()
Dim oTextBox As Shape
Dim strText As String
' Edit this to add your own text:
strText = "Here's a whole wad of text that should wordwrap, scroll, and generally act the way you'd " _
& "expect text in a text box to behave." & vbCrLf
strText = strText & strText & strText & strText
Set oTextBox = ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=114, _
Top:=48, _
width:=522, _
height:=450, _
ClassName:="Forms.TextBox.1", _
Link:=msoFalse)
With oTextBox.OLEFormat.Object
.MultiLine = True
.WordWrap = True
.ScrollBars = 2 ' fmScrollBarsVertical
.Text = strText
End With
End Sub
5.terahir tekan F5 di keyboard
semoga bermanfaat, dan terimakasih telah berkunjung
0 comments:
Post a Comment
silah kan berkomentar yang baik