有人知道在PowerPoint中学习VBA的网站吗?

时间:2022-07-09 13:05:36

I can do a few things with PowerPoint, but I need to learn more about the following:

我可以用PowerPoint做一些事情,但我需要了解以下内容:

  • Adding a new textframe and text, and placing it where I want to on the slide.
  • 添加新的文本框架和文本,并将其放在幻灯片上我想要的位置。

  • How to use VB to control the master slide.
  • 如何使用VB来控制主幻灯片。

  • Add text to the notes field.
  • 在备注字段中添加文本。

What resources and tutorials are available to help me with those items?

有哪些资源和教程可以帮助我完成这些项目?

2 个解决方案

#1


Perfect for beginning PowerPoint VBA.

非常适合开始使用PowerPoint VBA。

#2


To find names and such Select a shape and step through this macro and highlight or watch the variables for values

要查找名称等,请选择一个形状并逐步浏览此宏,然后突出显示或观察值的变量

Sub Shape_name()

Let x = ActiveWindow.Selection.ShapeRange(1).Name

设x = ActiveWindow.Selection.ShapeRange(1).Name

Let y = ActiveWindow.Selection.ShapeRange(1).Type

设y = ActiveWindow.Selection.ShapeRange(1).Type

Let Z = ActiveWindow.Selection.ShapeRange(1).Id

设Z = ActiveWindow.Selection.ShapeRange(1).Id

Let a = ActiveWindow.Selection.ShapeRange(1).OLEFormat.ProgID

设a = ActiveWindow.Selection.ShapeRange(1).OLEFormat.ProgID

Let b = ActiveWindow.Selection.ShapeRange(1).Height

设b = ActiveWindow.Selection.ShapeRange(1).Height

Let c = ActiveWindow.Selection.ShapeRange(1).Width

设c = ActiveWindow.Selection.ShapeRange(1).Width

Let D = ActiveWindow.Selection.ShapeRange(1).Left

设D = ActiveWindow.Selection.ShapeRange(1).Left

Let E = ActiveWindow.Selection.ShapeRange(1).Top

设E = ActiveWindow.Selection.ShapeRange(1).Top

End Sub

#1


Perfect for beginning PowerPoint VBA.

非常适合开始使用PowerPoint VBA。

#2


To find names and such Select a shape and step through this macro and highlight or watch the variables for values

要查找名称等,请选择一个形状并逐步浏览此宏,然后突出显示或观察值的变量

Sub Shape_name()

Let x = ActiveWindow.Selection.ShapeRange(1).Name

设x = ActiveWindow.Selection.ShapeRange(1).Name

Let y = ActiveWindow.Selection.ShapeRange(1).Type

设y = ActiveWindow.Selection.ShapeRange(1).Type

Let Z = ActiveWindow.Selection.ShapeRange(1).Id

设Z = ActiveWindow.Selection.ShapeRange(1).Id

Let a = ActiveWindow.Selection.ShapeRange(1).OLEFormat.ProgID

设a = ActiveWindow.Selection.ShapeRange(1).OLEFormat.ProgID

Let b = ActiveWindow.Selection.ShapeRange(1).Height

设b = ActiveWindow.Selection.ShapeRange(1).Height

Let c = ActiveWindow.Selection.ShapeRange(1).Width

设c = ActiveWindow.Selection.ShapeRange(1).Width

Let D = ActiveWindow.Selection.ShapeRange(1).Left

设D = ActiveWindow.Selection.ShapeRange(1).Left

Let E = ActiveWindow.Selection.ShapeRange(1).Top

设E = ActiveWindow.Selection.ShapeRange(1).Top

End Sub