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.
- Add text to the notes field.
添加新的文本框架和文本,并将其放在幻灯片上我想要的位置。
如何使用VB来控制主幻灯片。
在备注字段中添加文本。
What resources and tutorials are available to help me with those items?
有哪些资源和教程可以帮助我完成这些项目?
2 个解决方案
#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