使用VBA代码从自定义模板中应用特定布局

Question

Sub ImportCharts()

Dim strTemp As String
Dim strPath As String
Dim strFileSpec As String
Dim oSld As Slide
Dim oPic As Shape

strPath = ActivePresentation.Path & "\Images\"
strFileSpec = "*.png"
strTemp = Dir(strPath & strFileSpec)


Do While strTemp <> ""
    Set oSld = ActivePresentation.Slides.Add(ActivePresentation.Slides.count + 1, ppLayoutCustom)
    Set oPic = oSld.Shapes.AddPicture(FileName:=strPath & strTemp, _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=0.45 * 72, _
    Top:=0.8 * 72, _
    Width:=10.1 * 72, _
    Height:=6.25 * 72) '
    strTemp = Dir

Loop
End Sub

在循环时，pplayoutcustom添加了第一个自定义布局。但是我想将内容页面布局添加为我的自定义布局（请参阅图像）。

单击此处以获取图像

Answer 1

此线程存在相同的问题，此答案主要是重述那里已经显示的内容。

例如，如果您知道您的自定义布局“内容页面”的索引始终是3，那么您可以这样进行此操作：

With ActivePresentation
    .Slides.AddSlide _
        Index:=.Slides.Count + 1, _ 
        pCustomLayout:=.Designs(1).SlideMaster.CustomLayouts(3)
End With

如果您不确定您的自定义布局将始终具有相同的索引，那么您' LL需要首先遍历所有自定义布局，找到所需的索引，然后使用上面的代码。当然，您将用自定义布局的真实索引替换3。