vba - 用于调整图片大小并保存为 wmf 的 Powerpoint 宏

Question

我需要帮助编写一个宏女巫将完成以下步骤：

1. 插入文件 (.wmf) - 从桌面上的特定文件夹
2. 调整大小 - 纵横比关闭，8.5" x 15.5"
3. 另存为图片 .wmf - 与原始 .wmf 相同的文件名
4. 对文件夹中的所有文件重复这些步骤。

我在工作中这样做是为了将调整大小的图像插入另一个无法不按比例调整大小的程序中。无法将任何新程序下载到公司计算机，这是我目前唯一的选择。一次执行这个 .wmf 非常耗时。

请帮忙。

Answer 1

在我的 PPT FAQ 网站上有一些代码可以导入一个充满图像的文件夹，每张幻灯片一个。使用一些模组，您应该能够让它导入图像，将其缩放到您想要的大小，然后将其导出。

批量插入一个充满图片的文件夹，每张幻灯片一张 http://www.pptfaq.com/FAQ00352_Batch_Insert_a_folder_full_of_pictures-_one_per_slide.htm

在导入图片的代码之后，根据需要调整大小，然后添加：

oPic.Export "c:\temp\test.wmf", ppShapeFormatWMF

当然，用您要使用的路径和文件名替换“c:\temp\test.wmf”。