在本节中我们来继续学习“宏”，录制“宏”程序：录制宏与用录音机录制音乐一样，好首先点击菜单“工具”—“宏”—“录制新宏”命令，当执行完这条命令后，就会弹出一个如图（1）

图（1）

所示的“录制新 宏”对话框，这时我们可以在“宏名”框中输入当前要录制宏的名称，好在这里输入“MY”这个名称；而“将宏保存在”下拉菜单中，可以选择一个宏要放置的Powerpoint幻灯片文稿；而“说明”框是对宏的描述。一切搞好之后我们就可以点击“确定”按钮，之后我们就进入到录制的“宏”状态，并看到一个“停止录制”工具栏，显示的结果如后图所示 ，还可以看到一个名为“停止录制”按钮，当点击这个按钮后，就可以结束当前录制的“宏”了。

　　现在我们就来具体演示并录制一个“宏”，首先按照上面的描述进入到录制状态，然后点击“插入”—“图片”—“来自文件”命令，然后选择一个图形文件，将这个文件插入到Powerpoint的文稿中，接着选择这个插入的图片，将当前这个图片移动到某个位置，如果觉得图片放置的位置不合适，我们可以多次调整这张图片的位置和大小，直到你认为这个图片达到最合适的位置和大小，最后当你点击“停止录制”按钮了。之后点击键盘“ALT+F11”，就可以进入到如图（2）所示的VBE即VB编辑器中，因为在此这前我们已经制作了两个“模块”，所以我录制的“宏”会被放置到第三个模块中，即“模块3”，如图（2）左侧的“工程—VBAProject”中


图（2）

　　以下就是我录制的“宏”程序代码，在这里可以看到有很多无用的代码，这些代码是我在调整图片位置时记录下来的，因此我们可以删除这些不需要的代码，并直接将位移量及尺寸大小的数值付给相应的代码中，这样做可以大大提高该“宏”的运行速度。

With ActiveWindow.Selection.ShapeRange
.IncrementLeft 106.5
.IncrementTop -225#
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 3.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 3.6, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 96#
.IncrementTop -18#
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 1.44, msoFalse, msoScaleFromBottomRight
.ScaleHeight 1.44, msoFalse, msoScaleFromTopLeft
End With
ActiveWindow.Selection.Unselect
End Sub

如下就是我们最终修改后的“宏”程序。

Sub my()

宏由 lz 记录，日期： 00-9-17


ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="D:\My Documents\lhc_LITTEL.jpg", LinkTofile:=msoFalse, SaveWithDocument:=msoTrue, Left:=338, Top:=261, Width:=45, Height:=18).Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 180
.IncrementTop -250#
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 4.1, msoFalse, msoScaleFromTopLeft
.ScaleHeight 4.1, msoFalse, msoScaleFromTopLeft
End With
ActiveWindow.Selection.Unselect
End Sub

　　以上两段代码完成的结果是一样的，也就是说我们录制的结果是所有你操作的步骤，是一种机械记录，所以我们可以去掉不必要的代码，如果你不知道哪段代码有用，哪条代码没有用，那么你可以采用注释的方法将你认为可以注释的代码注释掉，关于如何“注释代码”请查看上一节中我们学到的内容！

　　至此我们基本学完了如何使用“宏”的方法。宏程序除了可以给我们带来便利以外，还给我们带来很多的麻烦，例如有些人为了某种目的制作了一些宏病毒，如WORD中的“美丽杀”病毒，这是一种以邮件形式传播的病毒。幸好目前以Powerpoint作为宏病毒的载体还十分少。

　　为了防止宏病毒Powerpoint提供了安全选项（该命令也是所有OFFICE组件的通用命令，如果在Powerpoint中修改了这里的设置，那么也会影响到其它OFFICE组件程序的“宏”设置。），这就是：“安全性”，好我们点击菜单“工具”—“宏”—“安全性”，会弹出一个“安全性”对话框，如图（3）所示，这里有两个标签，一个是“安全级”、另一个是“可靠来源”。首先我们学习如何使用“安全级”标签，为了方便大家查看我使用了一个表格来显示每个单选框的含义及完成的结果。

图（3）

　　“可靠来源”标签：在这里我们可以看到一个列表框，可以列出我们信任的宏开发人员的姓名。如果要打开或要加载的宏项中包含此列中的人员所开发的宏，则这些宏将自动启用；而“信任所有安装的加载项和模板”选择框，如果我们对加载宏或者模板不信任，我们就可以将这个对话框的对勾去除，这样每次启用Powerpoint“加载宏”的时候就会提示我们是否“启用宏”。

　　在本节中我们讲述了如何使用“录制宏”命令，录制宏只是机械的记录你每一步的操作，所以，录制完成之后，你最好再对录制的宏进行加工。“录制宏”是初学VBA程序的最好方法，通过录制“宏”并查看代码，不久你将了解VBA代码的语法了。

待续...