我想创建一个7列×5行的JPG图像PowerPoint幻灯片。
如果我在PowerPoint中创建一个表并从JPG文件插入一个对象,则图像会浮动在表上。
有没有办法将图像放入PowerPoint 2016中的表格单元格?
答案 0 :(得分:1)
如果图像与您要填充的单元格具有相同的纵横比,或者如果您不介意如果纵横比不匹配则图像变形,请用图片填充单元格
Sub TestIt()
Dim oTbl As Table
Set oTbl = ActivePresentation.Slides(1).Shapes(3).Table
Call FillCellWithPicture(oTbl, 4, 2, "c:\temp\picture.jpg")
End Sub
Sub FillCellWithPicture(oTable As Table, lCol As Long, lRow As Long, sPicture As String)
oTable.Cell(lRow, lCol).Shape.Fill.UserPicture (sPicture)
End Sub