如何引用幻灯片母版的占位符

Question

我正在尝试获取幻灯片母版 文本占位符 2 中主占位符的尺寸 - 在代码中将是“MasterPlaceholder” - （其尺寸已被修改，并且仅拉动新尺寸在第三个布局中，如图所示）并将它们设置为调整其他布局中所有其他占位符大小的基础。给定标题占位符和正文/通用占位符之间的一定距离，我想循环所有布局并应用新大小。

但是，我不知道如何指向这个形状，我尝试了几种方法（还有“ActivePresentation.Designs(1).SlideMaster.Shapes.Placeholders.(“Text Placeholder 2”)”、“ActivePresentation.Designs(1)”。 SlideMaster.Shapes.Placeholders.Name("Text Placeholder 2")"，但我找不到一种没有错误的方法来指向它。

有人可以让我知道如何正确引用吗这也将帮助我找到一种引用“PlcHlder”的方法，这将是要调整的形状

Sub PlaceHolderResizer()
Dim LeftLimit As Single
Dim TopLimit As Single
Dim RightLimit As Single
Dim BottomLimit As Single
Dim DrawingAreaWidth As Single
Dim DrawingAreaHeight As Single
Dim MasterPlaceholder As Shape
Dim PlcHldr As Shape
Dim oShape As Shape
Dim HorizontalDistance As Single
Dim VerticalDistance As Single
Dim HeadingToPlaceholder As Single


HorizontalDistance = 360
VerticalDistance = 144
HeadingToPlaceholder = 144



Set MasterPlaceholder = SlideMaster.Shapes.Placeholders.Name("Text Placeholder 2")




     LeftLimit = MasterPlaceholder.Left
     TopLimit = MasterPlaceholder.Top
     RightLimit = MasterPlaceholder.Left + oShape.Width
     BottomLimit = MasterPlaceholder.Top + oShape.Height
     DrawingAreaWidth = MasterPlaceholder.Width
     DrawingAreaHeight = MasterPlaceholder.Height



For Each oShape In ActivePresentation.Designs(1).SlideMaster.CustomLayouts(4).Shapes



    If oShape.Name = "Content Placeholder 2" Then
    
        oShape = PlcHldr
        oShape.Left = LeftLimit
        oShape.Width = (DrawingAreaWidth / 2) - HorizontalDistance
    End If
Next oShape


End Sub

Answer 1

幻灯片母版上只能有一个文本占位符。因此，您可以使用占位符 Type 属性来识别它并获取其名称：

Sub GetPlaceHolderName()
    Dim oShape As Shape
    
    For Each oShape In ActivePresentation.SlideMaster.Shapes
        If oShape.PlaceholderFormat.Type = ppPlaceholderBody Then
            MsgBox oShape.Name
        End If
    Next oShape
End Sub

循环遍历对象集合以获取名称是 PowerPoint VBA 课程的标准内容，您将经常使用该技术。

Answer 2

如 https://learn.microsoft.com/en- us/office/vba/api/powerpoint.placeholders，我将索引 2分配给形状（因为有一个标题，这将是1），最后占位符被重新-尺寸（此时的大小并不重要，因为这是我稍后会修复的问题）。该代码仍然需要很大的改进，但至少我在我所指的项目中看到了一些操作。

我必须找到一种方法以某种方式通过名称指向占位符，这比索引号更健谈。

Sub PlaceHolderResizer()
Dim LeftLimit As Single
Dim TopLimit As Single
Dim RightLimit As Single
Dim BottomLimit As Single
Dim DrawingAreaWidth As Single
Dim DrawingAreaHeight As Single
Dim MasterPlaceholder As Shape
'Dim PlcHldr As Shape
Dim oShape As Shape
Dim HorizontalDistance As Single
Dim VerticalDistance As Single
Dim HeadingToPlaceholder As Single


HorizontalDistance = 72
VerticalDistance = 144
HeadingToPlaceholder = 144



Set MasterPlaceholder = ActivePresentation.SlideMaster.Shapes.Placeholders(2) ' here is how I should have called it




     LeftLimit = MasterPlaceholder.Left
     TopLimit = MasterPlaceholder.Top
'     RightLimit = MasterPlaceholder.Left + oShape.Width
'     BottomLimit = MasterPlaceholder.Top + oShape.Height
     DrawingAreaWidth = MasterPlaceholder.Width
     DrawingAreaHeight = MasterPlaceholder.Height



For Each oShape In ActivePresentation.Designs(1).SlideMaster.CustomLayouts(4).Shapes



    If oShape.Name = "Content Placeholder 2" Then
    
'        oShape = PlcHldr
        oShape.Left = LeftLimit
        oShape.Width = DrawingAreaWidth - HorizontalDistance
    End If
Next oShape


End Sub