[PPT]

 

BackColor :&H80000004&

MultiLine : True

 ScrollBars:2 - fmScrollBarsVertical

 

 

Sub test()
    Dim v
    
    With ActivePresentation
        With .Slides(.Slides.Count - 1)
        
            .Select
            
            For Each v In .Shapes
                v.Select
            Next v
        End With
    End With
End Sub

Sub mycankao()

'MsgBox Windows(1).Presentation.Path '路径
'MsgBox ActivePresentation.Path '路径
'MsgBox ActivePresentation.Name 'ppt名
'MsgBox ActivePresentation.Slides(1).Name
'MsgBox ActivePresentation.Slides.Count

Dim v, k As Integer
'For Each v In ActivePresentation.Slides
'k = k + 1
'v.Name = k
'Next v

End Sub

Sub EachObject()

    Dim oshapes As Object, ph As Object, Oslide As Object

    With ActiveWindow.Selection.SlideRange.Shapes
        Set Oslide = ActiveWindow.Selection.SlideRange(1)
        For Each ph In Oslide.Shapes.Placeholders
            MsgBox ph.Name
        Next ph
    End With
End Sub

Sub pptmodel()
    Presentations.Open filename:=ActivePresentation.Path & "/模板.potx", Untitled:=msoTrue   '应用一个模板, 注msoTrue即True.
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex   '添加一个新的slide,并应用新的Layout
    ActiveWindow.Selection.SlideRange.Shapes(1).Select '选择第一个元素，也可以用名字来进行填入查找
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select   '选择这个元素的Text.
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(start:=1, Length:=0).Select  '选择一段字
    With ActiveWindow.Selection.TextRange   '选择这个字Selection
        .Text = "TTTT of the new presentatioin"   '设置其Text参数
        With .Font    '设置这个对象中的各个属性值
            .Name = "Times New Roman"
        End With
    End With
End Sub
 

Sub TestText()

   

'    ActiveWindow.Selection.SlideRange.Shapes(3).Select   '选择第二个shape

'        ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select   '选择其字体输入体

'        ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(start:=1, Length:=0).Select  '选择其中的字体

        With ActiveWindow.Selection.TextRange  '然后准备在其中进行设置

            .Text = "A" '+ Chr$(CharCode:=11) + "Secodn" '对上面的这个对象设置内容 Chr（）为字符转换方法，其中“$（”处的$值得研究，对其中CharCode:=11,或13是指发出的ASCII为回车符或只是换行符

'            With .Font   '对上面的对象进行各种设置
'
'                .Name = "Times New Roman"
'
'                .Size = 44
'
'                .Bold = msoTrue
'
'                .Italic = msoFalse
'
'                .Underline = msoFalse
'
'                '.BaselineOffset = 2
'
'            End With

        End With

End Sub

Sub 插入()
Dim filename As String
Dim file_add As String
Dim file_suffix As String
Dim index_name As String


file_path = "C:\Users\mikowoo\Desktop\001\result\"
file_suffix = ".pdf"
For i = 1 To 111
    If i >= 1 And i <= 9 Then
        index_name = "C00" & i
        ActivePresentation.Designs(1).SlideMaster.Shapes("文本框 2").TextFrame.TextRange.Text = index_name
        ActivePresentation.Designs(1).SlideMaster.Shapes("文本框 4").TextFrame.TextRange.Text = index_name
        filename = file_add & "销售顾问的一天" + index_name + file_suffix
        ActivePresentation.SaveAs filename, ppSaveAsPDF
        'Debug.Print filename
    Else
        If i >= 10 And i <= 99 Then
            index_name = "C0" & i
            ActivePresentation.Designs(1).SlideMaster.Shapes("文本框 2").TextFrame.TextRange.Text = index_name
            ActivePresentation.Designs(1).SlideMaster.Shapes("文本框 4").TextFrame.TextRange.Text = index_name
            filename = file_add & "销售顾问的一天" + index_name + file_suffix
            ActivePresentation.SaveAs filename, ppSaveAsPDF
            'Debug.Print filename
        Else
            index_name = "C" & i
            ActivePresentation.Designs(1).SlideMaster.Shapes("文本框 2").TextFrame.TextRange.Text = index_name
            ActivePresentation.Designs(1).SlideMaster.Shapes("文本框 4").TextFrame.TextRange.Text = index_name
            filename = file_add & "销售顾问的一天" + index_name + file_suffix
            ActivePresentation.SaveAs filename, ppSaveAsPDF
            'Debug.Print filename
        End If
    End If
Next i
End Sub