成语| 古诗大全| 扒知识| 扒知识繁体

当前位置:首页 > 趣味生活

幻灯片编号从0开始

Q1:ppt幻灯片编号怎么设置从0 开始

这个功能设置的比较隐蔽,需要在幻灯片大小那设置。

打开设计-幻灯片大小-起始编号设置为0 确定即可。

Q2:如何设置幻灯片的页码编号从2开始

雷鸣老师给我提了个很高级的问题:打印ppt讲义时,如何让页码不是从1开始。因为有时有好几个幻灯片打印,希望页码顺序能够相连,或者打印一套幻灯片的时候,中间卡纸了,要重新打印。ppt在这一点做到过份,其在重新打印的时候,出来的页面还是页码1。
网络上提出类似问题的人很多,大家都在怪微软公司在ppt打印方面的不通人性,但基本上没有看到简单有效的解决方案。综合自己实践研究,大致有以下几种解决方案可供参考。
1、利用空白幻灯片:在ppt的前面插入足够多的空白幻灯片,办法笨是笨了点,毕竟也是方法;
2、一页一页打印:设置幻灯片母版中的讲义母版,设置右下角数字区的“#”,使用固定数字,改一页打一页,呵呵。或者直接利用页脚的功能,在打印预览中的“选项”-“备注和讲义”中去除页码,在页脚中输入数字,这里的页脚位置也是在幻灯片母版中修改的,同样是一页一页打印。
3、先打印一系列仅仅打印了页码的空白纸张,然后利用这些已经有数字的白纸来打印。这个办法其实比上面两种要好,最容易操作。
4、上面三种方案都是临时的方案,有高人写了一个VBA(宏)来解决,我做了回好人,把他的代码汉化了:
(1) 在工具菜单上选择“宏”-“宏”,或者直接按快捷键“Alt+F8”,在宏名中随便输个名字,如“dayin”,然后点击“编辑”;
(2)在编辑窗口输入以下代码:
Dim i As Long
Dim lStart As Long
Dim lStop As Long
Dim lHandoutKind As Long
Dim lSlide As Long
Dim lSlideEnd As Long
Dim ppHandoutKind As PpPrintOutputType
Dim vbConfirm As VbMsgBoxResult

lSlide = InputBox("从哪一张幻灯片开始打印?", "开始幻灯片", "1")

lStart = InputBox("讲义起始页码编号: ", "讲义起始页码", "1")

lHandoutKind = InputBox("每页几张幻灯片?" & vbNewLine & "2, 3, 4, 6, 9?", "讲义打印类型", "4")

Select Case lHandoutKind
Case 1, 2、ppHandoutKind = ppPrintOutputTwoSlideHandouts
lHandoutKind = 2、Case 3、ppHandoutKind = ppPrintOutputThreeSlideHandouts
lHandoutKind = 3、Case 4、ppHandoutKind = ppPrintOutputFourSlideHandouts
lHandoutKind = 4、Case 5, 6、ppHandoutKind = ppPrintOutputSixSlideHandouts
lHandoutKind = 6、Case Else
ppHandoutKind = ppPrintOutputNineSlideHandouts
lHandoutKind = 9、End Select

vbConfirm = MsgBox("You have chosen to print " & lHandoutKind & "-up handouts, starting at page " & lStart & vbNewLine & " and slide number " & lSlide & ".", vbOKCancel)

If vbConfirm = vbOK Then

lStop = Round((ActivePresentation.Slides.Count - (lSlide - 1)) / lHandoutKind)
If Round((ActivePresentation.Slides.Count - (lSlide - 1)) Mod lHandoutKind) <= (lHandoutKind / 2) Then
lStop = lStop + 1、End If

For i = 1 To lStop

ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible = msoFalse
ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text = lStart
lStart = lStart + 1、
With ActivePresentation.PrintOptions

.RangeType = ppPrintSlideRange
With .Ranges

.ClearAll

lSlideEnd = lSlide + lHandoutKind - 1、
If lSlide > ActivePresentation.Slides.Count Then
lSlide = ActivePresentation.Slides.Count
End If
If lSlideEnd > ActivePresentation.Slides.Count Then
lSlideEnd = ActivePresentation.Slides.Count
End If
.Add Start:=lSlide, End:=lSlideEnd
lSlide = lSlide + lHandoutKind
End With

Set number of copies to 1.

.NumberOfCopies = 1、
.OutputType = ppHandoutKind

.HandoutOrder = ppPrintHandoutVerticalFirst
End With

ActivePresentation.PrintOut
Next i
End If

ActivePresentation.HandoutMaster.Shapes(4).TextFrame.TextRange.Text = ""
ActivePresentation.NotesMaster.HeadersFooters.SlideNumber.Visible = msoTrue(3)运行宏,根据提示输入数字即可。
其实这段VBA代码不过将上面的笨办法使用机器来自动实现罢了,因为你会发现打印机中输出的文件是一页一页的文件,而不是多页的。

Q3:怎么让PPT幻灯片的页码编号从零开始

如果正常加入页码(在母版中加入“数字区”即可实现),通常是从第一页(封面页)开始计数,也就是正文PPT第1页显示的是2这个页码,确实够2了!
所以在“文件”→“页面设置”中的幻灯片编号起始值,这个文本框中,直接修改为0。这样就是从0开始,正文第1页页码就是“1”了

Q4:怎样将幻灯片从0页开始编号?

首先在文件-页面设置-把起始编号改成0
然后在视图-页眉页脚里勾选幻灯片编号 点全部应用
就ok了

猜你喜欢

更多