ppt 2021中如何设置第几页，共几页的页脚（页码）

zzpsx

ppt 2021中如何设置第几页，共几页的页脚（页码）

注意：我说的不是幻灯片编号。

lss001

...............

zzpsx

lss001 发表于 2023-2-21 13:31
添加页眉页脚页码
可参考以下附件

谢谢高手，能否增大页脚的字号，并把页脚放在右下角。

lss001

zzpsx 发表于 2023-2-21 19:58
谢谢高手，能否增大页脚的字号，并把页脚放在右下角。

设置调整位置使用Shapes对象
在If InStr(p.Name, "Footer ") Then下
增加以下代码：
p.Left = 500 '离左边500磅不够自行改

lss001

zzpsx 发表于 2023-2-21 19:58
谢谢高手，能否增大页脚的字号，并把页脚放在右下角。

增大字号也是Shapes对象
也是在If InStr(p.Name, "Footer ") Then 下
增加以代码：
p.TextFrame.TextRange.Font.Size =14
'14不够自行修改

zzpsx

lss001 发表于 2023-2-21 20:57
增大字号也是Shapes对象
也是在If InStr(p.Name, "Footer ") Then 下
增加以代码：

请问字体大小好像无法改变？

Dim ocls As New 类1
Sub InitializeApp()
    Set ocls.app = Application
    MsgBox "已经初始化类1"
End Sub
Sub 添加页眉页脚页码()
    Dim sd, s, p, i%
    Set sd = ActivePresentation.Slides
    For Each s In sd
        i = i + 1 'Footer页脚,Header页眉,SlideNumber页码
        With s.HeadersFooters.Footer
            .Visible = msoTrue
            .Text = "第 " & i & " 页 / 共 " & sd.Count & " 页"
        End With

        For Each p In s.Shapes
            If InStr(p.Name, "Footer ") Then '设置格式：颜色
                p.Right = 800  '离左边500磅不够自行改
                p.TextFrame.TextRange.Font.Size = 64
                p.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
                x = InStr(p.TextFrame.TextRange.Text, "/")
                p.TextFrame.TextRange.Characters(1, x) _
                    .Font.Color.RGB = RGB(0, 0, 255)
            End If
        Next
    Next

End Sub

lss001

zzpsx 发表于 2023-2-22 08:42
请问字体大小好像无法改变？

Dim ocls As New 类1

修改代码后需要运行一次
初始化代码InitialzeApp
或者保存，关闭，重启

zzpsx

可以了，谢谢。
可以把这个文件设置为母版之类吗？使得新建一个ppt就默认带这种页码格式，加个页面自动更新页码。

lss001

zzpsx 发表于 2023-2-22 13:03
可以了，谢谢。
可以把这个文件设置为母版之类吗？使得新建一个ppt就默认带这种页码格式，加个页面自动更 ...

把文件另存为加载项，然后加载即可