PPT绘图系列免费视频教程开课啦

经过一段时间的尝试,自己录制了几小段视频教程。现在本博主打算推出自己的视频教程产品。欢迎大家关注哦~

【额,因为是第一次尝试,录得不太好,还请各位多谅解】

目前的demo:

http://i.xue.taobao.com/detail.htm?spm=a2174.7765247.0.0.LNxCMU&courseId=89084

课程亮点:

课程亮点:

¥全国31个省市自治区pptx格式地图模板

全国及31个省市自治区的pptx格式地图模板,每个地级市均为ppt中的多边形格式,可自行设置边框、填充样式。十分方便使用。

 

点击此链接下载完整ppt文件:https://item.taobao.com/item.htm?id=552448559370

或通过淘宝app扫描以下二维码进行购买:

VBA利用Eccel数据表自动生成PPT方案

在手头工作中遇到了一件工作量极大,但没什么技术含量的任务。手工复制粘贴,耗时耗力,预计花费大量时间和精力。因为ppt方案皆由Ecxel数据生成,故想到是否可借助office的VBA功能,来自动填充内容。
VBA早有耳闻,但从未实践过。网上搜索相关内容,亦可以看出有较多人对此内容颇有关注。既然有理论基础,那就不妨一试。磨刀不误砍柴工。
先介绍一下项目情况。每个项目由两页ppt组成,一页是其项目内容的介绍,包括文字、图、表等,另一页是一个标准的流程图,每个项目均相同,不同的是页码、项目编号、标题等不同。
首先制作一个母版,作为该ppt的核心模板。为正反不同的对称页面。

qq%e6%88%aa%e5%9b%be20160919112259

然后制作一个标准的页面,包含其中所要填写的内容的样式。第1页中的项目概况、项目计划、项目进展等均由excel生成,项目位置因需要人工判断,过于复杂,仍需要人工进行标注。第2页中,需要更改的仅为标题内容。

qq%e6%88%aa%e5%9b%be20160919112007 qq%e6%88%aa%e5%9b%be20160919112128

制作好模板后,如何进行操作呢?
我的逻辑是:先打开excel表取出我们要的数据,对第1页、第2页进行修改、填充。然后复制第1页、第2页,粘贴为第3页、第4页,然后继续取出数据进行修改、填充,如此循环复制,直到300余个项目均复制、粘贴完成,关闭excel表,清除缓存。

打开数据表:
Dim MyexcelApp As New Excel.Application
Dim MyexcelBook As New Excel.Workbook
Dim MyexcelSheet As New Excel.Worksheet
Pathstr = "E:\……\test.xls"
Set MyexcelBook = MyexcelApp.Workbooks.Open(Pathstr)
Set MyexcelSheet = MyexcelBook.Worksheets(1)
MyexcelSheet.Activate

为了操作方便,给ppt里面的多边形、表格或者文本框等重命名,如下:

qq%e6%88%aa%e5%9b%be20160919130416

加一个for循环,更新数据并复制粘贴:
For i = 2 To 300
'项目概况
ActivePresentation.Slides(i).Shapes("XMTextBox").TextFrame.TextRange.Text = "项目名称:" +
MyexcelSheet.Range("B" & (i + 6)).Value & Chr(13) & "责任单位:" +
MyexcelSheet.Range("C" & (i + 6)).Value & Chr(13) & "规划范围:" +
MyexcelSheet.Range("D" & (i + 6)).Value & Chr(13) & "建设内容与规模:" +
MyexcelSheet.Range("E" & (i + 6)).Value
'项目名称
ActivePresentation.Slides(i).Shapes("TitleTextBox").TextFrame.TextRange.Text =
MyexcelSheet.Range("B" & (i + 6)).Value
ActivePresentation.Slides(i).Shapes("PlanTable").Table.Cell(3, 1).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("B" & (i + 6)).Value
'项目编号
ActivePresentation.Slides(i).Shapes("IndexTextBox").TextFrame.TextRange.Text =
MyexcelSheet.Range("A" & (i + 6)).Value
'当前进度
ActivePresentation.Slides(i).Shapes("PlanTable").Table.Cell(3, 3).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("S" & (i + 6)).Value
'下一步推进重点
ActivePresentation.Slides(i).Shapes("PlanTable").Table.Cell(3, 6).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("T" & (i + 6)).Value
'存在的问题与困难
ActivePresentation.Slides(i).Shapes("PlanTable").Table.Cell(3, 7).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("U" & (i + 6)).Value
'投资安排情况
ActivePresentation.Slides(i).Shapes("MoneyTable").Table.Cell(3, 1).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("Y" & (i + 6)).Value
ActivePresentation.Slides(i).Shapes("MoneyTable").Table.Cell(3, 2).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("Z" & (i + 6)).Value
ActivePresentation.Slides(i).Shapes("MoneyTable").Table.Cell(3, 3).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("AA" & (i + 6)).Value
ActivePresentation.Slides(i).Shapes("MoneyTable").Table.Cell(3, 4).Shape.TextFrame.TextRange.Text =
MyexcelSheet.Range("AB" & (i + 6)).Value
'2017年目标
ActivePresentation.Slides(i).Shapes("Goal2017TextBox").TextFrame.TextRange.Text = "2017 年计划进度目标:"
& MyexcelSheet.Range("M" & (i + 6)).Value
ActivePresentation.Slides(i).Copy
ActivePresentation.Slides.Paste
Next

最后关闭表格链接,清除数据:
MyexcelBook.Close
Set MyexcelApp = Nothing
Set MyexcelBook = Nothing
Set MyexcelSheet = Nothing

放映并执行代码,完成!(ps,我把代码放到一个button的点击事件中了)

qq%e6%88%aa%e5%9b%be20160919113711

剩下的工作就是排版和更新图片了。虽然仍有很多工作量,但是已经大大减少了,不是么。

谈几点ppt排版的小技巧

个人工作中总结的几点,供大家参考。

PPT有人拿来汇报,可能不需要很多字;但在规划咨询中,PPT也常用来排版,字、图就会比较多,这时候,需要掌握一些额外的小技巧。

首先,请使用PPT母板。

很多人其实并不理解ppt模板的用途。PowerPoint的母板功能是跟InDesign的模板是一个套路的。用好母板可以省很多事,如果你从来没有在PowerPoint中打开过“视图-幻灯片母版”这个选项,那你已经走了好多年的弯路了……如果你打开过,但不知道咋用,那你需要用度娘好好学习一下!

其次,请尽可能使用更高版本的PowerPoint。

这里说的是PowerPoint,不是WPS,也不是其他免费版的办公软件。就是巨硬家的招牌产品Office套件中的那个PPT软件。建议使用2013版以上的PowerPoint。不管你是用什么方法,购买也好,订阅Office365 也好,XX也好……反正请放心的更新到最新或者比较新的那个版本。如果你还在用骨灰级的PowerPoint 2003……那我可以告诉你你已经凹凸很久了,光在制作ppt这项工作上,你就被别人落下了好几条街。更新到最新版本吧,可以有效提升你制作、排版的效率,节省你大把大把的时间!!

第三,规规矩矩,不要太豪放。

当你制作好ppt母版后,肯定会有一些页眉、页脚或者页边留白的区域,这些区域就让他们空着吧。不要试图把任何正文内容塞到这里来。在日常的工作中,常有一些同事无视母版的存在,页眉页脚范围内随便放图、放字,左右无留白,实在是非常不好看。

QQ截图20151010153823

内容的排放要遵循以下的原则:一段文字、一张(组)图片,都可以看成是一个内容块,各个内容块在排布时要像下面这样:

QQ截图20151010153831

最后,列举一些团队工作中常见的一些不好的PPT使用习惯:

  • 一个页面布满无数个文本框,特别是在同一个布局区域内使用无数个文本框,恨不能写一行拖一个文本框。在同一个布局区域内,能用一个框解决的,就不要再放第二个框。
  • 同一段文字内容中,有大有小,字体各式各样。显得杂乱无章。
  • 图片拉伸变形。在缩放图片时,请按下Shift键。若尺寸不满意,可用裁剪工具裁掉,不要压扁它们。

中国地图ppt图形模板

这是中国地图的ppt图形模板。每个省市都可以独自编辑颜色、边框和透明度等。虽然比例尺太小的关系没有标注南海和九段线,但那绝对是中国领土哦!!

QQ截图20151010150323 QQ截图20151010150340

回复本文获取下载地址:(评论无需注册)
————————————————-
链接:http://pan.baidu.com/s/1gdnUwH9 密码:p27q

如果需要全国31个省市自治区的地图ppt模板,可以点击这里哦:http://mapclub.cn/archives/2426

————————————————-

 

想自己用ppt绘制一副地图?可访问此视频教程:http://i.xue.taobao.com/detail.htm?spm=a2174.7765247.0.0.RWVI0U&courseId=89964

世界地图PPT图形模板

这是一个世界地图的ppt图形模板。每一个国家都是一个独立的ppt形状,即都可以独立的设置颜色、边框、透明度等等。PPTer们还不赶快下来用下!!

QQ截图20151010144641

QQ截图20151010144650

回复本文获取下载地址(评论无需注册):
——————————————–
链接:http://pan.baidu.com/s/1mgjGzVy 密码:rmxi

如果需要全国31个省市自治区的地图ppt模板,可以点击这里哦:http://mapclub.cn/archives/2426

——————————————–

想自己用ppt绘制一副地图?可访问此视频教程:http://i.xue.taobao.com/detail.htm?spm=a2174.7765247.0.0.RWVI0U&courseId=89964

用PowerPoint绘制简单地图要素

本文主要讲述如何利用Microsoft PowerPoint来绘制常用的公里、铁路、河流等线状地图要素。

首先来看最终想呈现的效果:

图片1

 

首先我们打开ppt,用曲线工具(下图选中的工具)绘制各条线状要素。用曲线工具可以绘制出圆滑的曲线,比多边形工具(下图中曲线工具左边第三个)要好看很多。

QQ截图20150718153108

 

绘制完毕后,将所有的河流线条进行组合(选中多个,右键–组合),将所有的低级别道路进行组合,这样方便后续调整和管理。然后将不同的线设置为不同的颜色。将高速公路置于最顶层,将河流置于最底层。如下图所示。

QQ截图20150718153517

但这个时候的地图并不好看,没人知道那条黑乎乎的线是铁路,而道路和河流的区别也不明显。接下来,要给高速公路加上描边,让铁路看上去更像铁路。实现的原理很简单,跟arcgis符号编辑器的方式相同,那便是多条线进行叠加。比如高速公路,底下一条线粗一些,调成黑色,上面一条线细一些,调成橘红色,当两条线的中心线重合的时候,你将会看到一条带有描边的公路。铁路的绘制方法同理,不过在上面的那条线要设置成虚线。这些操作都可以在“设置形状格式”的操作框里面进行设置,具体方式不再赘述。以上方法适用于2003-2013各个版本。

关于线条描边的操作,还有另外一种方式,就是运用新版ppt里面的发光效果。设置线条的发光效果,将发光颜色设置为黑色,将透明度设置为完全不透明,再调节发光效果的大小,既可。下图展示了叠加和发光两种不同方式绘制出的高速公路效果。叠加法操作较复杂,但边界清晰;发光发操作简单,但边界有毛边,同时,在线条的两头截面上也进行了发光,看上去不自然。

QQ截图20150718155053

 

添加几个小桥后成图:

QQ截图20150718160257