我有一个powerpoint演示文稿,每张幻灯片上的照片都是一个大文件大小(.EMF)。我想将它们全部更改为.PNG,以使最终的文件大小更小。
到目前为止,我有这样的想法:
Sub ConvertShapeToPNG()
Dim osh As Shape
Set osh = ActiveWindow.Selection.ShapeRange(1)
osh.Copy
ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial ppPastePNG
osh.Delete
End Sub
这将拍摄在幻灯片上选定的
我有数以百计的照片,一个样本,需要裁剪,然后插入到PowerPoint幻灯片。六张照片,每个幻灯片在肖像模式与相同的文字标签,所有照片。PowerPoint相册只允许我输入最多4张照片。我找到了一些代码,我用一个自定义占位符布局来计算我为该特定示例选择的图像数量,然后在每张新幻灯片上放置一张照片。然而,我需要每张幻灯片6张照片。下面的代码不包括裁剪代码。
有人能帮忙吗?
下面张贴的代码
Public Function GetLayout( _
LayoutName As String, _
Optional ParentPresentation As Presentation = Nothin