编写该代码的目的: 初衷 我最近在撰写一些教程类的PPT,撰写过程繁琐、重复,其中有很多操作步骤是一样的,PPT的部分页面时可以重用的,但是PPT页面中对应的截图不能重用,因为有变化;截图、粘贴、裁剪、缩放、移动位置、删除旧图,一顿操作枯燥而乏味。。。。。 我尝试寻找现有工具简化这一过程,努力的搜索与尝试了一番,发现唯一可堪一用的是“Pocket(口袋动画)”中的“设计”→“定位排版”→“对象尺子”、“应用尺子”;此功能可以实现图片的“宽高”、“位置”的获取与重用,这虽然可以减轻一些工作,但“裁剪”这一步仍然费劲,继续搜索而无所获。 于是,该代码代码诞生了! 正文 代码 Dim modeler01_CropTop As Single Dim modeler01_CropRight As Single Dim modeler01_CropBottom As Single Dim modeler01_CropLeft As Single Dim …