user_epodw 发表于 2016-4-12 12:41:08

[原创]PowerPoint的VBA知识介绍

有关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 发表于 2016-4-12 13:45:36

谢谢分享！

wang8790599 发表于 2016-4-12 13:54:59

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

pengshu 发表于 2016-4-12 14:07:54

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

1092427021 发表于 2016-4-12 14:34:03

更改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 发表于 2016-4-12 14:39:26

可惜是英文

user_tpjwfwfg 发表于 2016-4-12 14:42:35

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

tt8bj 发表于 2016-4-12 14:53:54

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

user_iyqaf 发表于 2016-4-12 15:20:17

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

user_nhcyr 发表于 2016-4-12 15:37:36

谢谢分享！
页: [1] 2
查看完整版本: [原创]PowerPoint的VBA知识介绍