ppt科研绘图之通过vba一键导出pdf

ppt是画科研插图的优秀工具，能够很方便的导出为pdf并插入latex，但手动通过“另存为-格式-pdf-当前页-确定”将一页ppt保存为一个pdf文件要选择多个选项，稍显繁琐，故编写了一小段vba脚本来自动化这一步骤。
执行该宏，可很方便的将ppt页导出为无边框的pdf文件：

示例文件下载：
链接: https://pan.baidu.com/s/1QGTC5a5kD35lD-7_EdPqpQ 提取码: kd45

首先确保将ppt保存为启用宏的pptm文件格式。
开启“开发工具”选项卡

打开vb编辑器填入如下代码并保存：

Sub 逐张存储()'https://stackoverflow.com/questions/17929124/export-each-slide-of-powerpoint-to-a-separate-pdf-fileDim strNotes As String, savePath As StringDim oPPT As Presentation, oSlide As SlideDim sPath As String, sExt As StringSet oPPT = ActivePresentation'sPath = oPPT.FullName & "_Slide_"sPath = oPPT.PathsExt = ".pdf"For Each oSlide In oPPT.Slidesi = oSlide.SlideNumberoSlide.SelectstrNotes = oSlide.NotesPage. _Shapes.Placeholders(2).TextFrame.TextRange.Text'MsgBox strNotes'MsgBox Len(strNotes) = 0savePath = sPath & "\" & strNotes & sExtIf Not Len(strNotes) = 0 ThenoPPT.ExportAsFixedFormat _Path:=savePath, _FixedFormatType:=ppFixedFormatTypePDF, _RangeType:=ppPrintSelectionShell "pdfcrop " & savePath & " " & savePathEnd IfNextSet oPPT = Nothing
End Sub
Sub 选中存储()Dim strNotes As String, savePath As StringDim oPPT As Presentation, oSlide As SlideDim sPath As String, sExt As StringSet oPPT = ActivePresentation'sPath = oPPT.FullName & "_Slide_"sPath = oPPT.PathsExt = ".pdf"Set oSlide = Application.ActiveWindow.View.SlidestrNotes = oSlide.NotesPage. _Shapes.Placeholders(2).TextFrame.TextRange.TextsavePath = sPath & "\" & strNotes & sExtIf Not Len(strNotes) = 0 ThenoPPT.ExportAsFixedFormat _Path:=savePath, _FixedFormatType:=ppFixedFormatTypePDF, _RangeType:=ppPrintSelectionShell "pdfcrop " & savePath & " " & savePathEnd IfSet oPPT = Nothing
End Sub

在宏管理器中双击脚本即可执行。

其中”逐张存储“的功能是遍历ppt中的所有页，逐个保存为pdf文件。其中文件名为每页的备注内容。

如备注为空则跳过该页。此外，对每个保存的pdf文件，还将执行pdfcrop（latex套件提供的一个pdf剪裁工具），将pdf的白边减裁掉，方便贴到latex中。
”选中存储“功能类似，但仅对选中的那一页ppt进行处理。
为更加方便的使用该宏，可将宏添加到自定义菜单。

ppt科研绘图之通过vba一键导出pdf相关推荐

PPT科研绘图：将PPT绘制的图像保存为高清图片
目录 step1: 改变PPT的导出分辨率设置 step2: 打开PPT,设置"图片大小和质量" step3: 将PPT页面导出为图像 step4:图片裁剪在论文写作中需要用到高 ...
PPT科研绘图之棱台
总之啊 ppt绘图可厉害了任何三维的图你都可以先画一个2d的图之后通过棱台效果造出来 \
PPT科研绘图第二节如何调整三维旋转参数
总结一下就是我们可以右键加入这个object的深度然后什么三维效果在ppt右边弹出来的最下面会出现的还能搞光源还能搞空间位置,旋转还能搞透视:近大远小的视觉效果还能搞图层,正常是新的层在 ...
ppt科研绘图图形布尔运算
实验
一键导出PDF文档中的高亮文字以及笔记（Python实现）
需求最近在阅读一些PDF格式的资料,经常会进行划线并做笔记,我希望这些内容在阅读结束之后能够方便地整理出来并回顾,于是探索了一下到处划线文字和笔记的方法. 首先,我去确认PDF阅读器是否提供了需要的 ...
PPT使用VBA导出pdf绘图
一键导出pdf pptx文件另存为pptm文件开发者工具,点击Visual Basic 新建模块输入以下代码 build module select NO 将参数设置为ppPrintCurrent ...
ppt科研论文绘图入门——01
目标1:利用PPT快速绘制如下所示的三维科研论文图片(后面继续发布学习日记): 参考视频:[1]b站视频:PPT科研绘图特训营课程回放01. (瑞斯拜!) 具体步骤: 打开ppt软件,(office在 ...
简历制作神器，无需登录，一键导出
给大家介绍一个简历在线填写的平台,一键导出PDF.不需要登录哦! 地址是这个 www.cqpiduoduo.com 这个平台是我自己做的,源自于一次偶然找工作写简历的因素,在互联网上找了各大写简历的平 ...
powerdesigner怎么导出pdf_各种科研绘图软件中的矢量图导出技巧
引言科技论文常含有插图,借助插图来形象直观.简明扼要地表达所要表述的内容(梁福军. 科技论文规范写作与编辑[M]. 清华大学出版社, 2014.).科研绘图软件有很多种,而软件导出的图片可以分为矢量 ...
科研绘图：PPT与Adobe Acrobat的交互使用
前言在学术研究中,科研绘图是极其关键的一环.在科研活动中产出的各种图片.照片往往都需要通过添加合适的注解或者标识才能达到对某种现象或者原理解释说明的目的.本文介绍了绘图软件PPT及PDF编辑软件Ad ...

ppt科研绘图之通过vba一键导出pdf

ppt科研绘图之通过vba一键导出pdf相关推荐

最新文章

热门文章