[原创]PowerPoint的VBA知识介绍

user_epodw

有关PowerPoint的VBA的书比较少，相关论坛讨论PPT的VBA在国内更少。
国外有一个网站介绍PowerPoint的VBA内容和知识相对比较多。
以下程序是自动将所有的Solid的Shap(2)的字体更改为18号字体。
Sub aa()
For ii = 1 To 13
With ActivePresentation.Slides(ii).Shapes(2)
.TextFrame.TextRange.Font.Size = 10
End With
Next ii
End Sub

xwll

谢谢分享！

wang8790599

谢谢楼主提供链接。但都是英文的，不便阅读。

pengshu

QUOTE:
以下是引用abcd321abcd在2007-12-29 16:24:04的发言：
谢谢楼主提供链接。但都是英文的，不便阅读。
中文的没有，只有英文．解决方法，下载一个有道在线翻译！

1092427021

更改TextBox 控件VBA程序
Sub Mm()
  Dim tt As TextBox
  Dim ss As Shape
Set ss = ActivePresentation.Slides(3).Shapes.AddOLEObject(Left:=30, Top:=30, Width:=650, Height:=450, ClassName:="Forms.TextBox.1", Link:=msoFalse)
With ss.OLEFormat.Object
  .Text = "50多年来，经过技术人员的不懈努力和敬业奉献，兰州石油化工工程公司先后完成各类大中型工程建设项目数以千计，其中获得国家和省部级工程设计和工程管理优秀奖的有37项。"
  .FontSize = 20
  .WordWrap = True
  .MultiLine = True
End With
End Sub

rinkin527

可惜是英文

user_tpjwfwfg

楼主提供的那个工具太棒了,有道在线!谢谢楼主@!

tt8bj

机会啊，国内怎么没人做这网站呢

user_iyqaf

多谢多谢，还向学到更多关于vba的知识

user_nhcyr

谢谢分享！