⽤VBA去操作PowerPoint
1.获取当前Prenation的名字
Sub NameThisPres()
MsgBox Windows(1).Prentation.Name
End Sub
2.显⽰当前Prentation上所有的Placeholder.
Sub EachObject()
Dim oshapes As Object
Dim ph As Object
Dim Oslide As Object
With ActiveWindow.Selection.SlideRange.Shapes
Set Oslide = ActiveWindow.Selection.SlideRange(1)
For Each ph In Oslide.Shapes.Placeholders ‘遍历所有其中的元素
MsgBox ph.Name
Next ph
End With
ActiveWindow.S
End Sub
3.打开⼀个模板，并进⾏相应的设置
Prentations.Open FileName:="E:/tempfiles/Tempo.potx", Untitled:=msoTrue '应⽤⼀个模板, 注msoTrue即True.
ActiveWindow.View.GotoSlide Index:=ActivePrentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex '添加⼀个新的slide，并应⽤新的Layout
ActiveWindow.Selection.SlideRange.Shapes(1).Select '选择第⼀个元素，也可以⽤名字来进⾏填⼊查找
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select '选择这个元素的Text.
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select '选择⼀段字
With ActiveWindow.Selection.TextRange '选择这个字Selection
.Text = "TTTT of the new prentatioin" '设置其Text参数
With .Font '设置这个对象中的各个属性值
.Name = "Times New Roman"
End With
End With
4.设置某个PlaceHolder的字体及内容
Sub TestText()
ActiveWindow.Selection.SlideRange.Shapes(2).Select '选择第⼆个shape
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select '选择其字体输⼊体
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select '选择其中的字体
With ActiveWindow.Selection.TextRange '然后准备在其中进⾏设置
.Text = "HHHHHH" + Chr$(CharCode:=11) + "Secodn" '对上⾯的这个对象设置内容 Chr（）为字符转换⽅法，其中“$（”处的$值得研究，对其中CharCode:=11，或13是指发出的ASCII为回车符或只是换⾏符
With .Font '对上⾯的对象进⾏各种设置
患难之交
.Name = "Times New Roman"
.Size = 44
.
Bold = msoTrue
.Italic = msoFal
.Underline = msoFal
'.BalineOfft = 2
End With
End With
End Sub
5.插⼊图⽚凉拌窝笋丝
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="E:/tempfiles/clip_image002.gif",
LinkToFile:=msoFal, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=30, Height:=60).Select
分析：
ActiveWindow.Selection.SlideRange 指的是当前的幻灯⽚，
Left:=0, Top:=0, Width:=30, Height:=60 定位和设置⼤⼩
PowerPoint定位并不是⽤像素来实现的，⽽是⽤磅测量屏幕。 如果在屏幕上放置⼀个图⽚并且通过选择Format Picture去观察它的位置，那么请注意位置是以英⼨来确定的。 这时需要⼀个翻译对照表来确定把图⽚放于何处。
如果⼀个图⽚，规定它的尺⼨为1个单位宽及1个单位⾼，那么把图⽚放在屏幕的左上⾓只需要设置成 Left:=0, Top:=0, Width:=1, Height:=1即可。
理科生的浪漫如果把图⽚⽤如下语句
ActiveWindow.Selection.SlideRange.Shape(“Picture 8”).Select
With ActiveWindow.Selection.ShapeRange
项的成语.IncrementLeft 720#
.IncrementTop 540#
End With
则会把图⽚放在右下⾓。
其中720磅宽和540磅⾼，在进⾏精确定位时，相当于是72磅对应1英尺, 即10:7.5的屏幕，由此也可以知道, 当前的屏幕的⽐例, 注：不同的屏幕这个值应当不⼀样.
所以总结前⾯的例⼦，要把⼀个图⽚导⼊进来，并让其居中,⽤如下语句.
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="E:/tempfiles/clip_image002.gif",
LinkToFile:=msoFal, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=30, Height:=60).Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 360#
.IncrementTop 270#
End With
6.加⼊WordArt在当前Prentation.
ActiveWindow.Selection.SlideRange.Shapes.AddTextEffect(msoTextEffect28, "Cap'n the cat" + Chr$(CharCode:=13) + "MouCatcher", "Impact", 36#, msoFal, msoFal, 10, 10).Select
With ActiveWindow.Selection.ShapeRange
End With
7.设置动画控件
ActiveWindow.Selection.SlideRange.Shapes(2).Select
With ActiveWindow.Selection.ShapeRange.AnimationSettings
.Animate = msoTrue
.EntryEffect = ppEffectFlyFromBottom
.TextLevelEffect = ppAnimateByAllLevels
.AnimateBackground = msoTrue
End With
8.设置幻灯⽚的转换
Sub Wipe_Right()
With ActiveWindow.Selection.SlideRange.SlideShowTransition
.EntryEffect = ppEffectWipeRight
.Speed = ppTransitionSpeedFast
.AdvanceOnClick = msoTrue
.AdvanceOnTime = msoTrue
.AdvanceTime = 3
不耻下问的反义词.SoundEffect.Type = ppSoundNone
End With
End Sub
冗长的意思9.使⽤控件⼯具栏
)插⼊⼀个⽤户窗体，并命名为UF1.
)在这个窗体上添加想要使⽤的控件。如加⼊Button, OptionButtion, CheckBox.
)并在各个控件上添加相应的响应⽅法，如下：
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
MsgBox "I hope here is wind"
End If
End Sub
Private Sub CommandButton1_Click()
MsgBox "I'm presd"
End Sub
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
MsgBox "I was lected"
End If
End Sub
)然后在Prentation上添加⼀个object以接收动作，并设置其动作选择刚才编辑的宏命令.
)然后运⾏这个Prentation.
10.使⽤项⽬符号
⽤VBA去改变在给定的页上的或在Slide Master 上的项⽬符号格式，要完成这个任务，需要把”从直观上看不很明显”的步骤加到代码上， 这个被记录的代码为项⽬符号返回某个数值， 例如：
.Character = 61646
这个值本⾝就不是⼀个很明显的格式。为了真正地访问⼀个指定项⽬符号的正确的值，代码需要以它⾃⼰的计算机语⾔把记录的值正确地翻译过来，这种语⾔对⼀般的VBA程序员来说可能不太常⽤，这个正确的字符代码能通过对记录的数字和4095 这个值做⼀个And操作来获取。
宏记录器为⼀个项⽬符号记录下正确的⼀个5位数字的值，例如.Caracter = 61646，但是， 为了返回待执⾏的代码，⼀个含有add操作的附加语句需要被⼈⼯加到VBE中。
下⾯这段代码为⼀个主页记录正确项⽬符号点的设置， 并以Wingdings字样把所有的项⽬符号改变为⼀个单独的字符。
Sub Format_Bullet()
ActiveWindow.ViewType = ppViewSlideMaster
ActivePrentation.SlideMaster.Shapes(1).Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
With ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Paragraphs(Start:=1,
Length:=1).ParagraphFormat.Bullet
.Visible = msoTrue
.UTextColor = msoTrue
.Font.Name = "Wingdings"
.Character = 61646 And 4095
ActiveWindow.ViewType = ppViewSlide
End With
End Sub
11.宏命令允许被⽤为定制的⼯具条按钮进⾏激活
步骤为：
先建⽴⼀个宏
回到Prentation上⾃定义⼯具栏，在⾃定义快速访问⼯具栏处选择命令：选择宏，并从列表中选择想要运⾏的宏命令，然后添加并确定。这时回到了Prentation状态，从顶部菜单上，我们就可以看到⾃定义的⼯具栏上的⼯具项。点击它，则会运⾏对应的宏命令，如同菜单项。
12.使⽤组合框
Sub ComboBox()
Dim MyArray(6, 2)
UrForm1.ComboBox1.ColumnCount = 2鲁布革
MyArray(0, 0) = "Steve"
MyArray(1, 0) = "Bill"
MyArray(2, 0) = "Iveson"
MyArray(3, 0) = "Joden"
MyArray(4, 0) = "John"
MyArray(5, 0) = "Tony"
MyArray(0, 1) = "Charli"
MyArray(1, 1) = "Beijing"
MyArray(2, 1) = "Japan"
MyArray(3, 1) = "New York"
MyArray(4, 1) = "Toromne"
MyArray(5, 1) = "Mactor"
‘写⼊其中的值到List中。
UrForm1.ComboBox1.List() = MyArray
End Sub
‘准备显⽰这个UrForm.
Sub Pres()
UrForm1.Show
End Sub
13.使⽤渐变⾊
Sub Gradation()
科龙空调With ActivePrentation.Slides(1).Shapes.AddShape(msoShapeRectangle, 0, 0, 400, 80).Fill
.ForeColor.RGB = RGB(128, 10, 10)
.BackColor.RGB = RGB(20, 170, 230)
.TwoColorGradient msoGradientVertical, 1
End With
End Sub
14.添加⼀个Shape并设置其中的⽂字， 设置⼀个Shape中的格式
Sub Word()
'添加了⼀个Shape，并设置其中的Text⽂本
ActivePrentation.Slides(1).Shapes.AddShape(msoShapeRectangle, 140, 140, 250, 140).TextFrame.TextRange.Text = "I'm a chine people"
'设置这个Shapez中的Text格式
With Application.ActivePrentation.Slides(1).Shapes(2).TextFrame.TextRange
.Paragraphs(1).Words(2, 5).Font.Bold = msoTrue
.Paragraphs(1).Words().Font.Color.RGB = RGB(255, 255, 0)
End With
End Sub
15.添加⼀个Shape，并设置其3D效果
Sub ThreeDFormat()
With ActivePrentation.Slides(1).Shapes.AddShape(msoShapeOval, 140, 140, 140, 140)
With .ThreeD
.Visible = msoTrue
.Depth = 75
.ExtrusionColor.RGB = RGB(255, 255, 0) End With
End With
End Sub
