针对工作簿的操作

Private Sub CommandButton1_Click()
MsgBox Dir(“D:\test.xls”)   ‘显示文件名
End Sub

Private Sub CommandButton2_Click()
If Len(Dir(“D:\B.xls”)) = 0 Then    ‘如果文件名长度为0,即不存在
MsgBox “不存在”
Else
MsgBox “存在”
End If
End Sub

Private Sub CommandButton3_Click()
MsgBox Windows(1).Caption   ‘获取工作簿名字
End Sub

Private Sub CommandButton4_Click()
Dim i As Long
For i = 1 To Windows.Count   ‘从第一个到最后一个工作簿循环
If Windows(i).Caption = “B.xls” Then   ‘如果工作簿名字等于B.xls,显示文件已打开
MsgBox “文件已打开”
Exit Sub  ‘显示文件已打开后则退出程序
End If
Next
End Sub

Private Sub CommandButton5_Click()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Sheets(“sheet1”).Range(“a1”) = “test”
If Len(Dir(“D:\B.xls”)) = 0 Then
wb.SaveAs “D:\B.xls”
Else
wb.SaveAs “d:\” & Hour(Now) & Minute(Now) & Second(Now) & “.xls”  ‘以当前时间保存工作簿名
End If
End Sub

Private Sub CommandButton6_Click()
Dim wb As Workbook
Set wb = Workbooks.Open(“d:\B.XLS”)   ‘打开指定的文件
MsgBox wb.Sheets(“SHEET1”).Range(“A2”)  ‘显示A2的值
ActiveSheet.Range(“A2”) = Now  ‘把当前时间写入A2
wb.Close True  ‘关闭前保存
End Sub

Private Sub CommandButton7_Click()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Save  ‘保存
wb.SaveCopyAs “e:\a.xls”  ‘另存为
End Sub

Private Sub CommandButton8_Click()
FileCopy “d:\B.xls”, “e:\b.xls”  ‘复制 文件
Kill “d:\b.xls”  ‘删除文件
End Sub

PPT中图片排版的几种方法

当你在PPT中插入一张图片之后,接下来就是进行排版了,对于很多初学者,都不知道如何放置这张图,最常见的一种操作,就是PPT中中规中矩的放置一张方形的图片,如下图。

这样做出来的PPT不够大气,PPT本身是一个长方形,图片也是一个长方形,并且PPT页面空间是比较小的,直接这样填充一张长方形的图片,会空间上感觉有点占满了。

我参考了一些优秀PPT页面的排版,整理了以下六种排版方式,改变最常见的普通的这种方形排版,作为一种学习总结(文字随便配的,请忽略)。

第一种,全图型。全图形以Garr为代表,通常一副图配一句文字,文字可以放在图中空白处,也可以放在色块中,或是透明层上。如下图

第二种,填充型,通常在几何图形中填充图片,这样改变一般方形的布局,如下图效果。

第三种:挖版型。就是用PPT自带的工具对图像进行抠图,把图片中主体给抠出来,这种的话忽略了图片的一些背景信息,再配些文字,在排版上更容易处理。

第四种:羽化型。利用渐变对图片进行编辑,如白色渐变到透明,这样避免字直接写在图片看不清楚。

第五种:出血型。将图片放大,在PPT页面上只显示局部,观众脑海里会自动联想,自动进行补充信息,这样会感觉大气些。比如,看到某个人拿个宝马钥匙,一般人都会认为他拥有了宝马车,看到有人戴个几十万的手表,一般会认为他比较有钱。利用这个特点,在PPT页面排版时有时仅需要放置图片的局部图,让空间就进行了延伸,会显得更大气些。

怎么样?是不是都比第一张PPT要好看一些?赶紧找一张图片练练手。

目标才是最重要的

经常有人在培训时强烈要求老师说,“一定要教我们最最核心的技术”,“要教我们做非常漂亮美观的PPT,“要把PPT整的高大上一些”,鄙人以为,把PPT做得美观漂亮这观点没毛病,但不要忘了最最重要的一点,不要忽视做PPT最终的目的。

姑娘花几千买个化妆品,把自己打扮的漂漂亮亮的,仅仅是为了让自己看上去更美一些吗?花几万块钱买个包包,就是为了背在身上好看吗?花几十万买个名表,仅仅是觉得带在手上漂亮些吗?

一个讲师的PPT,如果学员一看就懂,同意认可其观点,接受其意见并付诸行动,这就是一个非常成功的PPT;一个竞职的PPT,如果一举就成功拿下这个岗位,这就一个非常的成功的PPT,一个产品展示的PPT,成功说服客户多多购买你产品,这就是一个非常成功的PPT。反之,如果学员复制了讲师的课件却从来不打开不去应用;如果老板觉得你只是PPT做得好,却把重要的职位交给了您的同事;如果客户觉得你的PPT高大上,最终却从您的竞争对手购买了产品。你还会觉得PPT最重要的是美观吗?

那么制作PPT最最重要的是什么?

鄙人觉得,首先我们应该考虑目标。也就是我们做好这个PPT最终想达到什么目的?接下来需要了解更多的信息,我们在什么场合播放,给谁看?多少人?年龄知识文化水平?甚至播放方式,光线都要考虑下。

根据不同的目标,我们制作设计PPT的情况就应该有所区别。

举个例子,假设我们是给幼儿园小朋友看的PPT,介绍仿生学的知识,目标是让小朋友掌握些知识,如果全文字小朋友肯定不会老老实实的坐着,不愿看也看不懂,那么这时PPT根本不需要追求排版美观,两个不同的图文排版,小朋友也根本分不出哪张PPT更漂亮,但可以适当做些动画,把蜻蜓慢慢像变魔术一样变成直升飞机,这样小朋友就感兴趣,也容易记住了。

再比如,竞聘演讲的PPT,如果仅仅是重视美观,很多人套用一个非常酷炫的模板,一眼看上去没什么破绽,或者说至少比没有什么设计基础的人做出来的PPT要好看很多,但这仅仅是看上去很美。每个人轮流几分钟上台演讲,你的领导可能对你的印象仅仅是好像PPT很酷炫。不要忘记,我们最终要拿下这个岗位,所以我们加深领导的印象,获取领导的认可。所以更多的时间应该花在内容策划上,标题应该怎么写比“竞聘演讲”更深刻?提炼什么一个口号?怎么突出自己的优点?怎么获得更多的支持? 这些不是比版式美观更重要的吗?

再比如,你给客户介绍产品,难道你的客户在你演示PPT时说,小王,走吧,我们去签单吧,你还说:等等,等我先把这些PPT播放完?

我们把PPT做得漂亮,目的是为了吸引别人看,我们把PPT逻辑清晰,目的是为了更有说服务力,我们把PPT做得简洁,目的是让观众更容易记住观点,我们把PPT做得有情感,目的是让观众有更多的共鸣,从而达到我们的最终目的。

漂亮不是我们最终目的,实现目标才是我们最终目的!

所以,如果我们借助了某个PPT已经达到目的,即使丑点也没关系,甚至有时PPT都可以不用。

天下事有难易乎?为之,则难者亦易矣!

创建这个网站真心不容易!

以前花了点小钱请别人设计了一个,后来工作太忙,结果登录的密码也忘记了,请几个专业人士帮忙,都说这密码忘了麻烦,无法破解,还有网页被黑客攻击,全是木马,如果请专业人士清理木马,都说太麻烦,还不如全部清除重做一个网站。

正好最近这几天不忙,不如自己来研究学下怎么制作网站。

说干就干,虽然我对于网站设计可是零基础,但只要下定决心去做,就肯定是可以做好的。

一步步来,先把所有的文件删除,直接通过FTP还删除不了,因为有些含有木马,通过万网后台把所有文件删除。然后淘宝花19元看了下Wordpress视频,算是简单入门,然后官网下载Wordpress安装文件,先下载的是英文版,结果总是链接不上,后来链接上了又出现白屏问题,再后来又要破解登录密码,又遇到已有数据库的问题,一个个问题一个个百度,有时花了两三个小时,反复测试研究,要是旁边如果有一个懂的人可能就是一句话,这就是自学和请教别人最大的不同,但是自学有一个好处,就是非常深刻。做过之后发现并没有想像的那么难,登录密码忘记了,我居然也可以很快解决这个问题,事在人为呀,不过由于鄙人是新手,还希望黑客高手手下留情放我一马 :)。

简单说下创建这个网站的目的,这个域名分为两个单词,PPT,HELP,主要用来自己研究PPT用,当作是一种学习总结,另外一些读书感悟,及营销方面的学习也会进行一些总结。

由于工作太忙,更新文章会显得随意,希望自己能够坚持。

2018,加油,有些事只要你真正想去做,没人可以阻止你!