我用PPT建了一个相册,大概有300张图片,谁能教我如何批量处理?
发布网友
发布时间：2022-04-26 09:23
共2个回答
热心网友
时间：2022-06-26 16:43
打开PPT程序，新建一个空白ppt文稿，然后按Atl+F11打开VBA编辑窗口，将如下代码原样粘贴进入，然后按F5运行即可。注意，一些变量需要自行修改。
代码如下：
Sub aa()
MyPath = "F:\a" '可以自行修改为其他文件夹
Shell "cmd.exe /c dir /b/on " + MyPath + "\*.jpg > " + MyPath + "\filelist.dat", vbHide
i = 1
On Error Resume Next
Do Until Dir(MyPath + "\filelist.dat") <> "" '循环等待获取文件名并保存完毕，不然会出错找不到文件名
DoEvents
Loop
Open MyPath + "\filelist.dat" For Input As #1
Do Until EOF(1)
Line Input #1, fname
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=MyPath + "\" + fname, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=ActivePresentation.SlideMaster.Width, Height:=ActivePresentation.SlideMaster.Height).Select
ActiveWindow.Selection.ShapeRange.PictureFormat.CropBottom = 200 '从底边往上裁剪掉多少像素，可自行修改数字200为合适的值，以下同理；如果不需要从下往上裁剪，则删除此行代码，以下同理
ActiveWindow.Selection.ShapeRange.Top = ActiveWindow.Selection.ShapeRange.Top + 200 * 0.15 '这里的200跟上面一行的200要一样，以下同理；如果不需要从下往上裁剪，则删除此行代码，以下同理
ActiveWindow.Selection.ShapeRange.PictureFormat.CropRight = 360.95 '从右边往左裁剪掉多少像素，可自行修改
ActiveWindow.Selection.ShapeRange.Left = ActiveWindow.Selection.ShapeRange.Left + 360.95 * 0.15
ActiveWindow.Selection.ShapeRange.PictureFormat.CropLeft = 295.61 '从左边往右裁剪掉多少像素，可自行修改
ActiveWindow.Selection.ShapeRange.Left = ActiveWindow.Selection.ShapeRange.Left - 295.61 * 0.15
ActiveWindow.Selection.ShapeRange.PictureFormat.CropTop = 360.95 '从上边往下裁剪掉多少像素，可自行修改
ActiveWindow.Selection.ShapeRange.Top = ActiveWindow.Selection.ShapeRange.Top - 360.95 * 0.15
i = i + 1
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=i, Layout:=ppLayoutBlank).SlideIndex
Loop
Close #1
ActivePresentation.SaveAs FileName:="C:\Documents and Settings\Owner\桌面\演示文稿1.ppt" '创建好的相册默认保存在桌面上的，可自行修改
MsgBox "照片导入创建完毕！"
End Sub
热心网友
时间：2022-06-26 16:44
1、现在第一页上把需要遮盖的地方都处理好
2、把第一页上用于遮盖的全选上，复制
3、然后往下一页一页粘贴就可以了，复制内容、位置会和第一页完全一致的。
粘贴的时候，不用鼠标，用 PAGE DOWN + CTRL V ，其实也很快追问可是有很多这样的相册，都是好几百张图欸，要这样一个一个去粘吗，OMG~
